Scleife verlassen ?

[René]

Hallo, ich gebe den Focus solange an ein TEdit zurück, bis die richtige Eingabe erfolgt ist, möchte aber durch betätigen eines TButton (Beenden) die Scleife verlassen können. z.B. If Button1.press then exit ( geht nicht ). Kann mir jemand den richtigen Code nennen? Danke

[Jens Schumann]

Hallo Rene,<br>ich glaube, ich habe gerade eine Blockade, aber ich kann mir nicht vorstellen, wie man den Inhalt von TEdit zur Validierung in einer Schleife abfragt (warum auch). Poste doch mal den Code.<br>Jens Schuman

[Falk Prüfer]

Hi René,

ich gehe davon aus, daß Du Deine Eingabe im OnExit Ereignis des TEdit überprüfst. Diese mußt Du einfach nur wie folgt ändern:
<br>
procedure TForm1.Edit1Exit(Sender: TObject);<br>
begin<br>
if Activecontrol = Button1 then Exit<br>
else begin<br>
.
.
.
end;<br>
end;<br>

Gruß Fal