Entwickler-Ecke

Sonstiges (Delphi) - hab mal ne frage...


hibbert - Sa 06.07.02 19:48
Titel: hab mal ne frage...
hallo,
bin erst mal ein anfänger und habe eine frage:
kann man edit felder so umformen, dass man nur zahlen in sie schreiben kann?
zb.dass in edit1 nur 1,2,3,4,5,6,7,8,9,0 und nich a,b,c... eingetragen werden kann.
und ...
erkennen variabeln, die aus einenm Editfeld entstehen,nur die erste zahl?
zb.

Quelltext
1:
2:
3:
4:
var a:integer
a:=strtoint(edit1.text);
if a > 63 then
label1.caption:='OK';

wenn ich in das edit feld eine 7 eingebe, dann erscheint der text im label,obwohl doch 7 etwas kleiner ist als 63, oder?
ich hoffe,dass mir jemand helfen kann.
danke im vorraus!
mfg hibbert


Klabautermann - Sa 06.07.02 20:44

Hallo,

AUQ-Richtlinien hat folgendes geschrieben:
Bitte formuliere Deine Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.

die solltest du einmal lesen.

Das problem wird übrigens im moment auch hier [http://www.auq.de/viewtopic.php?t=430] diskutiert.
Wenn du nur ganze Zahlen zulassen willst kannst du auch das SpinEdit von der Komponentenpalette Beispiele verwenden.

Gruß
Klabautermann


DBR - So 07.07.02 10:01

einfache Variante:

Quelltext
1:
2:
3:
4:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key  in ['0'..'9',#8]) then key:=#0;
end;
ansonsten:
http://home.pages.at/dbr-software/delphi/zahledit.htm