Memofeld in StringList einlesen?

[marabu]

Die Funktion liefert die Anzahl der entfernten Leerzeilen:

Delphi-Quellcode:

function TrimLines(s: TStrings): Integer;
begin  
  Result := s.Count;
  s.BeginUpdate;
  s.Text := Trim(s.Text);
  s.EndUpdate;
  Result := Result - s.Count;
end;