Hallo.
Bitte pack den Quelltext in (Delphi)(/Delphi)-Tags (mit eckigen Klammern), dann kann man ihn auch vernünftig lesen. Hier einmal in einer augenfreundlicheren Variante:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
j, i: Integer;
z, x: string;
begin
j := length(edit1.Text);
x := edit1.Text;
for i := 1 to j do
begin
if edit2.Text[1] = edit1.Text[i] then
begin
z := ansiuppercase(x[i]);
delete(x, i, 1);
insert(z, x, i);
edit1.Text := x;
end;
end;
end;
Dann siehst du wohl auch einfacher, dass du den Dialog
hinter das
end; der for-Schleife packen musst. Wie du schon richtig sagst, muss die
for-Schleife zuvor passieren.