Buchstaben ersetzen

[grenzgaenger]

normal läuft das doch so, oder...?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j:Integer;
    Datei:TextFile;
    Zeile: String;
    zeichen: char;

begin
  AssignFile(Datei, 'Liesmich.TXT');
  Reset(Datei);
  While not EOF(Datei) do Begin
    Readln(datei,Zeile);
    for i := 0 to length(zeile) do
    begin
     if zeile[i] = 'a' then zeile[i] := 'b';
  //  ... und hier noch 'n paar abfragen oder cases....
    end; 
    Memo1.Lines.Add(Zeile);
  end;
  closeFile(datei);
end;

das ging sogar (beinahe) unter tp, 3.0... , nur dass du da kein tMemo hast..