wenn es um viele Zeilen ginge und man nicht den Weg über .Text gehn wöllte ...
nja und wenn man mal genau das macht, was man sich dachte machen zu wollen ...
Delphi-Quellcode:
var i: integer;
begin
Memo1.Lines.BeginUpdate;
for i := Memo1.Lines.Count - 1 downto 1 do begin
if Pos(',', Memo1.Lines[i - 1]) = Length(Memo1.Lines[i - 1]) then begin
Memo1.Lines[i - 1] := Copy(Memo1.Lines[i - 1], 1, Length(Memo1.Lines[i - 1]) - 1)
+ Memo1.Lines[i];
Memo1.Lines.Delete(i);
end;
end;
Memo1.Lines.EndUpdate;
end;
bzw.
Delphi-Quellcode:
var i: integer;
S: String;
begin
Memo1.Lines.BeginUpdate;
for i := Memo1.Lines.Count - 1 downto 1 do begin
S := Trim(Memo1.Lines[i - 1]);
if Pos(',', S) = Length(S) then begin
Memo1.Lines[i - 1] := Copy(S, 1, Length(S) - 1) + Memo1.Lines[i];
Memo1.Lines.Delete(i);
end;
end;
Memo1.Lines.EndUpdate;
end;