Buchstaben ersetzen

[scrat1979]

Zitat von Ricoo:

In Delphi 2005 Personal hat das mit StringReplace super funktioniert.
Mein Problem ist jetzt aber, dass das ne Hausaugabe war und mein Lehrer nur Delphi 3 hat und sich
strikt weigert irgentwas Anderes zu benutzen. Jetzt wollt ich das halt alles nochmal in Delphi 3
schreiben aber da scheint es die StringReplace Funktion noch nicht zu geben. -.-

Hat jemand vielleicht noch einen anderen Vorschlag?

Schade. Dann musst Du Deinen ursprünglichen Source-Code ein wenig anpassen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j     :Integer;
    Zeile    : String;
begin
{
  AssignFile(Datei, 'Liesmich.TXT');
  Reset(Datei);

  While not EOF(Datei) do Begin
    Readln(datei,Zeile);
    Memo1.Lines.Add(Zeile);
  end;
  closeFile(datei);
}
  Memo1.Lines.LoadFromFile('Liesmich.TXT'); // Etwas einfacher :-)

  for i:=0 to (Memo1.Lines.Count-1) do // -1 nicht vergessen!
    begin
      zeile := Memo1.Lines[i];

      for j:= 1 to length(zeile) do // ist etwas allgemeiner gehalten, und: Bei "1" anfangen!
        begin
         if zeile[j] = 'b' then
            zeile[j] := 'a';
        end;

      Memo2.Lines.Add(Zeile);
    end;
end;

Mit Memo1.Lines.Text sparst Du noch ein paar Zeilen, wollte Deinen Source aber so wenig wie möglich verändern. Code ist ungetestet - viel Spaß damit!
BTW, bei Deiner Version werden Großbuchstaben "B" nicht berücksichtigt. Sollten mehrere Zeichen umgewandelt werden, dann würde ich Dir die CASE-Anweisung empfehlen. Spart bei vielen Zeichen eine Menge Code und Fehlermöglichkeiten

SCRaT