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