Thema: Delphi welche unit für TMemo?

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

Re: welche unit für TMemo?

  Alt 21. Apr 2004, 14:04
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;
Andreas
  Mit Zitat antworten Zitat