formular daten an memo übergeben...

[jim_raynor]

1. Wenn du doppelte Leerzeilen löschen willst, kannst du einfach die einzelnen Zeilen am Ende durchgehen und doppelte Löschen.

Delphi-Quellcode:

// Minus zwei, da ich immer auf die nächste Zeile schaue
for Dummy:=Form2.RichEdit1.Lines.Count-2 downto 0 do
begin
  if (Form2.RichEdit1.Lines[Dummy]='') and (Form2.RichEdit1.Lines[Dummy+1]='') then
    Form2.RichEdit1.Lines.Delete(Dummy)
end;

2. <> = unglich also das gleiche wie if not (Edit1.Text='') then ...