$.ListFieldNames := 'sname';

.ListFieldNames := 'sname; fio';

var
  fProps := TcxLookupComboBoxProperties;
...
begin
  for поле in (список_имен_полей) do
  begin
    if fProps.ListFieldNames <> '' then
      fProps.ListFieldNames := fProps.ListFieldNames + ';';
    fProps.ListFieldNames := fProps.ListFieldNames  + поле;

  for поле in (['f1', 'f2', 'f3']) do

    if fProps.ListFieldNames <> '' then
      fProps.ListFieldNames := fProps.ListFieldNames + ';';
    fProps.ListFieldNames := fProps.ListFieldNames  + поле;

      fProps.ListFieldNames := fProps.ListFieldNames + IfThen(fProps.ListFieldNames <> '', ';') + поле;

var 
  i : integer;
...
begin
...
for i := 0 to Pred(SomeObj.Size) do
  Foo(Struct[i])

for var i := 0 to Pred(SomeObj.Size) do
  Foo(Struct[i])

  TBroadcastThread = class(TThread)
    .....
    constructor Create(AServer: TServerSocket; ACapacity: Integer);
    destructor Destroy; override;
  end;

....

constructor TBroadcastThread.Create(AServer: TServerSocket; ACapacity: Integer); 
[dcc32 Error] E2037 Declaration of 'Create' differs from previous declaration
begin
  ...
end;

TStringList.Find(const S: string; var Index: Integer): Boolean; virtual;

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

function TMethodHelper.ToString: string;
begin
  Result := Format('D: %p (%s), C: %p', [
    Data, 
    IfThen(Data <> nil, TObject(Data).ClassName, 'nil')
    Code
  ]);
end;

class function TRtl.IfThen<T>(ACondition: Boolean; const ATrue, AFalse: T): T;
begin
  if ACondition then
    Result := ATrue
  else
    Result := AFalse;
end;

TRtl.IfThen<boolean>(False, FormatDriveC, DoNothing);