String (Editfeld) auf Sonderzeichen prüfen

alexschultze · Beiträge: 317

hiho

ich habe einen Edit, und ich will sicherstellen das die Eingaben Alphanumerisch sind, evtl. mit den Zeichen @_- als Ausnahme noch möglich.

Ideen? Alex

alexschultze · Beiträge: 317

ach so, zusätzlich interessiert mich, wie ich prüfen kann ob eine Edit - Eingabe eine halbwegs gültige E-mail Adresse in der Form a@b.de ist

alex

Klabautermann · Verfasst: Di 29.10.02 19:43

Hallo,

soetwas kannst du recht einfach im OnKeyPress Ereignis des Edit Feldes überprügfen. Die Abfrage könnte dann so aussehen:

markieren

Quelltext

1:
2:

IF NOT (Key IN ['a'..'z', 'A'..'Z', '0'..'9', '@', '.']) THEN 
  Key := #0;

Beim überprüfen ob die Eingabe eine E-Mailadresse ist, musst du gucken ob sie ein @ und mindestens einen Punkt enthält. Der Punkt darf weder als erstes noch als letztes Zeichen vorkommen. Auch das @ darf an diesen Positionen nicht erscheinen und mindestens ein Punkt muss nach dem @ folgen.
Das ganze musst du jetzt nur noch deinem Delphi verklickern

.

Gruß
Klabautermann

PS: Du solltest noch einmal überlegen, wenche Zeichen du noch zulassen musst, z.B. Bindestriche.

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Quelltext

1:
2:
3:
4:

uses
  Masks;

if(MatchesMask(Edit1.Text,'*@*.???')) then ;

ginge zur Not auch ohne große Verklickerungen ...

alexschultze · Beiträge: 317

beides genial. ich brauche für das erste noch ein kleinen Tipp:
Retourntaste geht nicht!

Ehemaliges Mitglied Erhaltene Danke: 1

alexschultze hat folgendes geschrieben:

beides genial.

Tja, nur dass dir zumindest eine Lösung bereits bekannt war ...

25.10.02, 23:05

alexschultze hat folgendes geschrieben:

sagt mal, gibt in Delphi überhaupt Wildcards?

26.10.02, 08:23

MathiasSimmack hat folgendes geschrieben:

Eine andere Möglichkeit (inkl. Wildcards) wäre die Unit "Masks" mit der Funktion "MatchesMask"

26.10.02, 11:22

alexschultze hat folgendes geschrieben:

dieses mask ist sehr interessant.

Zu finden hier, selbe Sparte, ein paar Zeilen tiefer ... Zumindest die Frage nach der "Syntaxprüfung" einer Mail-Adresse hättest du selbst beantworten können. :wink:

alexschultze · Beiträge: 317

*grins* ja, ich bin hyperaktiv

Zuviele Threads auf einmal, aber ich hab auch sooo viele Fragen und freue mich sehr über die rege Beteilgung

Sobald ich die schlimmste Phase hinter mir hab bin ich den Usern hier schuldig, jede Menge Antworten auf Fragen zu schreiben *g*

Wie ist das jetzt noch mit der Retourntaste?

Gast Erhaltene Danke: 1

ich glaube #8

Guck dir Tipp 3 an:

mitglied.lycos.de/po...3/pub/topten/faq.txt

Ehemaliges Mitglied Erhaltene Danke: 1

#8 ist Backspace. Return ist #13.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme