Konverter

[Cosamia]

Gehen wir davon aus, dass ich den Wert "06.04.06" in dem Dat File ändern will.
Ich muss überprüfen ob es ein "Datum" ist, oder nicht. Falls es keines ist muss ich das aktulle Datum einsetzen.

Zum einlesen der Datein nutze ich bisher folgenden Code:

Delphi-Quellcode:

procedure getFiles(dir: string);

begin
   if FindFirst(dir+'*',faAnyFile,search)=0 then
      begin
         repeat
            if (((search.Attr and faDirectory)>0) and (not(leftStr(search.Name,1)='.'))) then getFiles(dir+search.Name+'\')
            else
               begin
                  if ExtractFileExt(search.Name)='.'+Convert.Ext.Text then
                     begin
                        Convert.Content.Items.LoadFromFile(dir+search.name);                   //Listbox Content
                        Convert.Results.AddItem(search.Name,Application);      //Schleife
                        Convert.Caption:='Anzahl ['+intToStr(convert.Results.Count)+']';
                        Convert.Results.Items.SaveToFile('.\listbox.dat');   //Inhalt von Listbox Results wird abgespeichert
                        Convert.Content.Items.Delete(2); //Nur als kleine Übung
                        Convert.Content.Items.SaveToFile(Convert.Ziel.Text+search.name);  //Inhalt von Content wird in neue Dateien gespeichert
                     end;
               end;
         until not(FindNext(search)=0);
      end;
   FindClose(search);
end;

procedure TConvert.BtnGoClick(Sender: TObject);
begin
   convert.Caption:='Anzahl [0]';
   Results.Clear;
   if not(rightStr(Path.Text,1)='\') then Path.Text:=Path.Text+'\';
   if DirectoryExists(Path.Text) then getFiles(Path.Text);
end;

In obengenannter Schleife sollte dann anstatt der Eliminierung der dritten Zeile die Modifikation stattfinden.

Mir fiel bisher nichts besseres ein!