Hallo,
mach es doch so - dann spielt es auch keine Rolle, ob nach >5 Zeichen noch Text kommt.
Der ganze Text (egal wo), wird dann "gesichert":
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := Memo1.Lines.Count - 1 downto 0 do
begin
if Trim(Memo1.Lines[i]) = '' then
Memo1.Lines.Delete(i);
Memo1.Lines[i] := Trim(Memo1.Lines[i]);
end;
end;
Macht dann aus:
================================================== =====
Dies ist
ein
**************kleiner Test.
******Alles sollte nun weg und linksbündig sein...
================================================== =====
dieses hier:
================================================== =====
Dies ist
ein
kleiner Test.
Alles sollte nun weg und linksbündig sein...
================================================== =====