Mindestlänge von Editfeldern

[Premaider]

Wie lege ich eine Mindestlänge für Editfelder fest ?

[haentschman]

Hallo...

indem du beim OnExit die Länge prüfst und entsprechend reagierst... 8-)

[Popov]

Mindestlänge als solches gibt es nicht. Alternativ kannst du MaskEdit nehmen. In EditMask z.B. 10 mal A eingeben und schon müssen 10 Buchstaben/Zahlen eingegeben werden.

[Premaider]

Ich habe das jetzt so gelöst

Delphi-Quellcode:

If((((Edit10.text<>'') and (Edit11.text<>'') and (length(Edit10.text)<> 1 or 2) and (length(Edit11.text)<> 1 or 2)))) Then das machen was ich will :D

Danke euch

[Popov]

Auf was bezieht sich 1 von 1 or 2 und die 2? Nicht du mußt es verstehen, sondern Delphi.

[Premaider]

Auf die Länge der Eingabe im Editfeld

[mkinzler]

Dann muss es

Delphi-Quellcode:

...(length(Edit10.text) <> 1 or length(Edit10.text) <> 2) ...

heissen
oder besser gleich

Delphi-Quellcode:

length(Edit10.text) > 2

[Popov]

Das war mir schon klar, aber bei

Delphi-Quellcode:

length(Edit10.text)<> 1 or 2

ergeben 1 or 2 = 3. Di fragst also ob die Länge ungleich 3 ist, nicht ob sie 1 oder 2 ist.

Das ist Binär:

0001 ist 1
or
0010 ist 2
=
0011 ist 3

//Edit

@mkinzler

Meine Antwort bezog sich auf den Post von Premaider, nicht deinen. Im Nachhinein klingt meine Antwort als ob ich auf dich antworten würde.

[himitsu]

Zitat:

Delphi-Quellcode:

length(Edit10.text)<> 1 or 2

Ich denk du kennst kein OR?

Und ich wette das es nicht funktionieren wird.
Den Tipp mit den Tutorials würde ich wirklich empfehlen.

[edit]
komisch, irgendwie waren vor 2 Minuten koch keine anderen Antworten zu sehn. :shock:
Ein Aprilscherz von Daniel oder des Internets?

[Sir Rufo]

Zitat:

Zitat von Premaider (Beitrag 1159652)

Ich habe das jetzt so gelöst

Delphi-Quellcode:

If((((Edit10.text<>'') and (Edit11.text<>'') and (length(Edit10.text)<> 1 or 2) and (length(Edit11.text)<> 1 or 2)))) Then das machen was ich will :D

Danke euch

Also wenn du prüfen möchtest, dass in den Edit-Feldern mindestens 3 Stellen gefüllt sind, warum dann nicht direkt so prüfen wie man es sich denkt?

Delphi-Quellcode:

if ( Length( Edit10.Text ) >= 3 ) and ( Length( Edit11.Text ) >= 3 ) then