Feststellen ob in einem Edit Zeichen eingegeben wurden?

[mlspider]

Hallo ihr Delphianer ,

Kurz und schmerzlos: Ich möchte ein Button erst auf Enabled:=True setzen, wenn mindestens 3 Zeichen in einem Editfeld eingegeben wurden.

Hat irgend jemand eine Funktion parat?

Danke!

[Steve]

Hi,

wie wärs mit IF Length(EditX.Text)> MinnimalLaenge oder so?

Gruß
Stephan

[Ultimator]

Und das ganze am besten im TEdit.OnChange-Event

[mlspider]

Hab ich mir schon gedacht. Nur wie soll das OnChange-Ergeignis ausehen? Eine Bedingungsschleife?

[Steve]

Hi,

wozu ne Schleife? der Inhalt wird immer ausgeführt, wenn das Ereignis eintritt, d.h., sobald sich der Inhalt des Edits ändert:
ButtonX.Enabled := Length(EditX.Text) > MinLaenge; Gruß
Stephan

[mlspider]

Ja Steve, Du hast recht!!! Man kann es so lösen. Ich habe eine Bedingung draus gemacht:

Delphi-Quellcode:

if Length(Edit2.Text)>2 then
 Button5.Enabled:=True;

War ja auch eine ziehmlich dämliche Frage von mir. Hätte ja auch selbst drauf kommen können.

Trotzdem nochmals Danke!

[Steve]

Hi,

nur ein kleiner Hinweis noch : bei Deiner Lösung bleibt der Button enabled, auch wenn wieder Zeichen im Edit gelöscht werden, d.h. wenn die Bedingung einmal erfüllt wurde, bleibt der Button enabled, auch wenn die Bedingung eigentlich gar nicht mehr erfüllt wird .

Gruß
Stephan

[mlspider]

Ja stimmt, hab ich voll außer acht gelassen. Danke. Also keine Bedingung!!! (peinlich!!!!)

[Matze]

Zitat von mlspider:

Also keine Bedingung!!! (peinlich!!!!)

Oder eine Bedinung mit Else-Zweig.

[mlspider]

If Bedingung then Enabled:=True else Enabled:=False brauche ich eingentlich nicht. Trotzdem Danke. Habe mich für die Variante von Steve entschieden:

Delphi-Quellcode:

procedure TForm1.Edit4Change(Sender: TObject);
begin
 Button1.Enabled := Length(Edit4.Text) >2;
end;

Erfüllt den Zweck für mein Programm völlig.