komma am ende von string entfernen

[DeddyH]

Delphi-Quellcode:

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