TrimRight

[holger_barntrup]

Hallo zusammen

Ich komm hier grad an einem alten Quelltext von meinem verstorbenen Kollegen nicht weiter.

Delphi-Quellcode:

  RichEditDateiOhneRem.Lines.BeginUpdate;
  for i := 0 to sl.Count-1 do begin
    s:=sl[i];

    //* wenn das Suchkriterium ';~' nicht vorkommt ist p=0
    //* wenn p=1, das Suchkriterium steht am Zeilenanfang. Der Konverter würde eine Leerzeile erzeugen.
    p:= pos(';~',s);
    if p<>1 then begin     //* (p=0) OR (p>1)
      l:=Length(s);
      Delete(s,p,l-p+1);
      TrimRight(s);
      RichEditDateiOhneRem.Lines.Add(s);
    end;
    if p>0 then Inc(k);   //* Anzahl der RemEntfernungen
  end; //* Next i

Er hat hier

Delphi-Quellcode:

Delete(s,p,l-p+1);

alles nach ';~' abgeschnitten. Das funktionier auch soweit.
Ich vermute das er dann noch vorhandene Leerzeichen hiermit

Delphi-Quellcode:

TrimRight(s);

abschneiden wollte.
Das funktioniert nicht, ich weiß nicht ob das überhaupt mal ging.
Ich kann das Trim Right auch auskommentieren, die Ausgabe bleibt gleich.
Ursprünglich ist das Programm glaub ich in Delphi2007 entstanden?
Was ist da falsch, ich komm da nicht drauf.

[himitsu]

TrimRight ist eine Funktion
und nun rate mal, was man mit deren Ergebnis (Result) machen sollte.

[holger_barntrup]

Man bin ich blind heut ... :oops:

Danke, geht jetzt. :!:

Das kann nie funktioniert haben.