moin moin,
ich kann das problem nicht nachvollziehen. Ich nutze folgende Prozedur:
Delphi-Quellcode:
procedure RemoveBlanks(Richedit: TRichedit);
var i,c: integer;
begin
for i := 0 to RichEdit.Lines.Count-1 do
for c := Length(Richedit.Lines[i]) downto 1 do
begin
if Richedit.Lines[i][c] = ' ' then
Richedit.Lines[i] := Copy(Richedit.Lines[i], 1, c-1)
else
Break;
end;
end;
Gruß
Angos