komma am ende von string entfernen

[Lyan]

hallow ie kann ich eigtl. ein komma am ende von einem String entfernen?

Code:

procedure TForm2.Button1Click(Sender: TObject);
var i: Integer;
begin
  i := 0;
    repeat
      inc(i);
      memo1.Lines.Add(inttostr((i)));
    until (i = 100);
end;
procedure TForm2.Button2Click(Sender: TObject);
var iZaehler: Integer;
    sKstring: string;

begin
  for izaehler := 1 to 100 do
  begin
    sKstring := sKstring + inttostr(iZaehler) + ', ';   // Hier das Komma ;
  end;
  memo1.Lines.add(sKstring);
end;
end.

danke

[Sir Rufo]

:wiejetzt:

Du fügst ein Komma an das Ende vom String ein und willst jetzt wissen, wie man das wegbekommt?
Lass es einfach sein ... dann kommt da auch kein Komma hin ...

(bzw. so wie du das aufgeschrieben hast geht das ja schon mal gar nicht ... das wird so nicht compiliert)

[Lyan]

Zitat:

Zitat von Sir Rufo (Beitrag 1120923)

:wiejetzt:

Du fügst ein Komma an das Ende vom String ein und willst jetzt wissen, wie man das wegbekommt?
Lass es einfach sein ... dann kommt da auch kein Komma hin ...

(bzw. so wie du das aufgeschrieben hast geht das ja schon mal gar nicht ... das wird so nicht compiliert)

jetzt - so meine ich

doch wird compiliert

[Bummi]

ich nehme an Du meinst so etwas

Delphi-Quellcode:

var iZaehler: Integer;
    sKstring: string;

begin
  for izaehler := 1 to 100 do
  begin
    sKstring := sKstring + inttostr(iZaehler)+ ', ' ; // Hier das Komma
  end;
  memo1.Lines.add(Copy(sKstring,1,Length(sKstring) - 2));
end;

[Lyan]

Zitat:

Zitat von Bummi (Beitrag 1120929)

ich nehme an Du meinst so etwas

Delphi-Quellcode:

var iZaehler: Integer;
    sKstring: string;

begin
  for izaehler := 1 to 100 do
  begin
    sKstring := sKstring + inttostr(iZaehler)+ ', ' ; // Hier das Komma
  end;
  memo1.Lines.add(Copy(sKstring,1,Length(sKstring) - 2));
end;

ahja genau copy :) dank dir!

[Sir Rufo]

Zitat:

Zitat von Lyan (Beitrag 1120926)

Zitat:

Zitat von Sir Rufo (Beitrag 1120923)

:wiejetzt:

Du fügst ein Komma an das Ende vom String ein und willst jetzt wissen, wie man das wegbekommt?
Lass es einfach sein ... dann kommt da auch kein Komma hin ...

(bzw. so wie du das aufgeschrieben hast geht das ja schon mal gar nicht ... das wird so nicht compiliert)

jetzt - so meine ich

doch wird compiliert

Ja, nach der Änderung ... ;)

Wenn du aber dort kein Komma haben möchtest, dann lass das doch einfach weg?

[Andreas L.]

In der Schleife

Delphi-Quellcode:

  if izaehler <> 100 then
    sKstring := sKstring + ', ';

So wird das Komma bei jedem Durchlauf außer beim Letzten hinzugefügt.

[Lyan]

Zitat:

Zitat von Andreas L. (Beitrag 1120934)

In der Schleife

Delphi-Quellcode:

  if izaehler <> 100 then
    sKstring := sKstring + ', ';

So wird das Komma bei jedem Durchlauf außer beim Letzten hinzugefügt.

ah auch gut herzlichen dank! ;)

[Neutral General]

Eine Alternative wäre auch nach der Schleife folgendes:

Delphi-Quellcode:

SetLength(sKstring,Length(sKstring)-1);

[Sir Rufo]

Möchtest du etwa folgendes Ergebnis haben:

Code:

1,2,3,4,5,6,7,8, .... ,100

Dann füge einfach die Zahlen in ein StringList (jede Zahl mit Add immer rein)
Und mit der Eigenschaft CommaText bekommst du dann die gewünschte Ausgabe ;)

Delphi-Quellcode:

var iZaehler: Integer;
    sl : TStringList;

begin
  sl := TStringList.Create;
  try

    for izaehler := 1 to 100 do
      sl.Add( IntToStr( iZaehler ) );

    memo1.Lines.add( sl.CommaText );

  finally
    sl.Free;
  end;
end;