Wörterbuch Datei

[Delphi-Narr]

Nee, Notepad geht, hatte noch einen anderen Editor benutzt

Hab jetzt also Deutsch::Englisch

Jetzt möchte ich mir ein Programm machen, dass diese Datei einmal komplett umschreibt.

Delphi-Quellcode:

var
i:integer;//Zählt die Zeilen
i2:integer;//Zählt in den Zeilen von Zeichen zu Zeichen
SL:TStringlist;

begin
     SL := TStringList.Create; 
         Try 
      Try 
        SL.LoadFromFile('C:\Users\Alt.txt');//Datei wird in die Liste geladen
        For i := 1 to SL.Count-1 do //Solange, bis das Ende der Liste erreicht ist
            begin
                 for i2:=1 to {Länge der aktuellen Zeile i} do
                    begin
                         if {Das i2-te Zeichen aus der aktuellen Zeile}=(':') then
                         begin
                              {Ersetze das Leerzeichen davor, das aktuelle Zeichen, das Zeichen danach 
                              (auch ':') und das Leerzeichen danach durch einen Zeilenumbruch
                               Aus
                               Hallo :: Hello
                               soll werden
                               Hallo
                               hello}
                         end;
         gewisse ends und finallys...

        SL.SaveToFile('C:\Users\Neu.txt');

end;