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
Delete(s,p,l-p+1);
alles nach ';~' abgeschnitten. Das funktionier auch soweit.
Ich vermute das er dann noch vorhandene Leerzeichen hiermit
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.