verschachtelte schleifen

[3_of_8]

Das ist doch Unsinn.

Soll man jetzt da wirklich sinnloserweise eine zweite Schleife reinbauen, obwohl es absolut nichts bringt? Versteh einer die Lehrer...

EDIT: Mein Ansatz wäre so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
    str: String;
    oldchar, newchar: Char;
begin
str:=edit1.text;
oldchar:=edit2.text[1];
newchar:=edit3.text[1];
for I:=1 to length(str)  do
  if AnsiCompareText(str[I], oldchar)=0 then str[I]:=newchar;
edit1.text:=str;
end;