komma am ende von string entfernen

[himitsu]

Oder man setzt das Komma abhängig vom string und nicht vom Index.

Delphi-Quellcode:

var iZaehler: Integer;
    sKstring: string;

begin
  for izaehler := 1 to 100 do
  begin
    if sKstring <> '' then sKstring := sKstring + ', ';
    sKstring := sKstring + IntToStr(iZaehler);
  end;
  Memo1.Lines.Add(sKstring);
end;

IfThen, statt dem IF geht natürlich auch.