Autor Beitrag
hibbert
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1007

WinServer2003, Win XP, Linux
D6 Pers, D05
BeitragVerfasst: Sa 06.07.02 19:48 
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.
ausblenden 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


Zuletzt bearbeitet von hibbert am Di 25.02.03 19:53, insgesamt 1-mal bearbeitet
Klabautermann
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Veteran
Beiträge: 6366
Erhaltene Danke: 60

Windows 7, Ubuntu
Delphi 7 Prof.
BeitragVerfasst: 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 diskutiert.
Wenn du nur ganze Zahlen zulassen willst kannst du auch das SpinEdit von der Komponentenpalette Beispiele verwenden.

Gruß
Klabautermann
DBR
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 46



BeitragVerfasst: So 07.07.02 10:01 
einfache Variante:
ausblenden 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:
home.pages.at/dbr-so.../delphi/zahledit.htm