Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.176 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: MessageDlg - Schleifen Problem

  Alt 28. Mai 2013, 18:03
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.

Geändert von Der schöne Günther (28. Mai 2013 um 18:08 Uhr)
  Mit Zitat antworten Zitat