MessageDlg - Schleifen Problem

[Der schöne Günther]

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.