komma am ende von string entfernen

[Sir Rufo]

@DeddyH: Das geht doch auch schöner ohne Array

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var iZaehler: Integer;
    sKstring: string;
begin
  for izaehler := 1 to 100 do
  begin
    sKstring := sKstring + inttostr(iZaehler) + IfThen( izaehler <> 100, ', ', '' );
  end;
  memo1.Lines.add(sKstring);
end;

Und falls das IfThen nicht beim Delphi dabei ist

Delphi-Quellcode:

function IfThen( BoolValue : Boolean; const TrueStr : string; const FalseStr : string = '' ) : string;
begin
  if BoolValue then
    Result := TrueStr
  else
    Result := FalseStr;
end;