Entwickler-Ecke :: Thema anzeigen - Edit field Eingabe checken

Ice - Fr 24.01.03 13:52
Titel: Edit field Eingabe checken

Hallo Leute,

ich habe folgendes Problem: Ich möchte die Eingabe in ein EditField auf Zahlen checken, werden Zahlen eingegeben ist das OK, wenn nicht sollte ein Fehler kommen.
Hat da jemand ne Idee oder nen Hinweis?

Im voraus schon mal vielen Dank,

Ice

opfer.der.genauigkeit - Fr 24.01.03 14:02

Schau mal in der Komponentenliste unter Zusätzlich, da gibt´s MaskEdit. Ist denk ich mal die einfachste Variante. Ansonsten mußt du die Eingabetasten abfragen. Oder du durchsuchst den String im Edtfeld nach deinen Kriterien.

Und zum Erzeugen der Fehlermeldung: ShowMessage() oder MessageDlg(); Je nachdem was du dann machen magst.

Ice - Fr 24.01.03 14:52

sorry mit MaskEdit funktioniert das nicht ich müsste schon eien Abfrage programmieren, aber trotzdem danke!

Wie kann ich denn das word format z.b. in einen Charakter umwandeln?Dann könnte ich nämlich in einem set nach dem Character suchen und wenn er nicht dabei ist einen Error auslösen...

Ice

smiegel - Fr 24.01.03 14:56

Hallo,

schau Dir einmal das Ereignis OnKeyPress des Edit-Feldes an. Das ist Dein Einstiegspunkt. Dort kannst Du dann das in Key übergebene Zeichen prüfen, ob es eine Zahl ist.

In etwa so:

Quelltext

1:
2:
3:
4:

TForm1.Edit1KeyPress(Sender:TObject; var Key:Char);
begin
  if not (Key in ['0'..'9', #8]) then Key:=#0;
end;

opfer.der.genauigkeit - Fr 24.01.03 16:01

smiegel hat folgendes geschrieben:

In etwa so:

Quelltext

1:
2:
3:
4:

TForm1.Edit1KeyPress(Sender:TObject; var Key:Char);
begin
  if not (Key in ['0'..'9', #8]) then Key:=#0;
end;

*An Stirn langt*
Es geht manchmal so einfach und ich denk nich dran. :autsch:

hansg - Fr 24.01.03 21:22

Hallo,
schau mal hier http://www.delphi-forum.de/viewtopic.php?t=6261 ich hatte ein ähnliches Problem.
Wobei Du

Quelltext

1:	s:='TextmitZahlen012336undSonderzeichen#$%';

durch
s:=edit1.text; ersetzt.

Gruß Hans

foxy - Di 28.01.03 12:13

kannst auch arbeiten mit array

Quelltext

1:	k := array [32..255] of byte

geht auc so prüfste ob irgendwas drin steht

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!