Hi,
kreiere eine StringList, lade das File, Prüfe Lines[x] auf '' und lösche die gegebenenfalls. Kurzer Code:
Delphi-Quellcode:
procedure TForm1.ClearLineBtnClick(Sender: TObject);
var List : TStringList;
Counter : Integer;
begin
List := TStringList.Create;
try
List.LoadFromFile(FFileName);
IF List.Count = 0 then Exit; // nichts geladen dann raus
For Counter := List.Count - 1 downto 0 to begin
IF List.Strings[Counter] = '' then
List.Delete(Counter);
end;
// hier alles tun was mit der bereinigten Liste getan werden soll
// z.B.:
List.SaveToFile(FFileName);
finally
List.Free; // List definitiv frei geben
end;
Ich hab das hier mal einfach auf einen Button gelegt, wobei ich davon ausgehe, dass FFileName als Member deklariert ist (String) und ein Dateiname woanders zugewiesen wurde. Gegenüber einem Memo müßte auch nicht unbedingt eine visuelle Kompo genutzt werden.
Andere Möglichkeiten bestehen sicher auch noch.
Gruß oki