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;

[Bummi]

@DeddyH

mit Abstand am hübschesten ...

[DeddyH]

Danke

[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;

[DeddyH]

Ich nehme aber lieber die Array-Lösung, die geht immer und benötigt keine Funktion.

[Bummi]

@DeddyH

wobei Sir Rufo's Lösung universeller einsetzbar ist ...

[Lyan]

Und jetzt möchte ich noch per radiobutton auswählen können das NUR grade Zahlen angezeigt werden oder nur ungerade,, ;D

[TiGü]

Schön für dich, wie wäre es mit selber nachdenken?
Wie würdest du denn diese Aufgabe mit Stift und Papier lösen?

[stahli]

Das solltest Du aber selbst schaffen - oder?
Durch Versuch+Irrtum lernt man am besten...

Ich werfe nur mal noch "odd" in den Raum

[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.