Hallo!
Ich komme mal wieder nicht weiter. Ich möcht einen Text in Memo1 einlesen, alle A's durch B's ersetzen und dann in Memo2 ausgeben.
Nur funktioniert das Ganze nichso.
Kann mir Jemand helfen?
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);
Memo1.Lines.Add(Zeile);
end;
closeFile(datei);
for i:=0 to Memo1.Lines.Count do
begin
zeile:=Memo1.Lines[i];
for j:= 0 to 10 do
begin
zeichen := zeile[j];
if zeichen = 'b' then
begin
zeile[j] := 'a';
end;
end;
Memo2.Lines.Add(Zeile);
end;
end;
Das mit dem 0 to 10 in der zweiten For-Schleife is nur zu Test zwecken, wenns bei den ersten 10 klappt, muss es auch bei den nächsten 10 funktionieren.. xD
Danke schonmal!
