Zitat von
glkbkk:
also, das soll auch keine oberfläche haben
das soll ja im prinzip nur ne datei ändern, und das wollt ich halt über ne memo machen
Dann brauchst du auch keine Klasse TMemo sondern
TStringList.
Hier mal ein Beispiel:
Delphi-Quellcode:
procedure CleanEmptyComments(const fn:string);
var
list : TStringList;
idx : integer;
begin
list := TStringList.Create;
try
list.LoadFromFile(fn); // Datei laden
repeat // ausmisten
idx := list.IndexOf('//');
if idx >= 0 then
list.Delete(idx);
until idx=-1;
list.SaveToFile(fn); // Datei speichern
finally
list.Free;
end;
end;