Скачать: CL | DM;

Вопрос по Teidt???   Найти похожие ветки 

← →
Delphi5.01 ©   (2002-05-24 08:17) [40]

da zachem takie gori prog kotorie fakticheski delaut odno i toje prosto porabotaem mozgami i soblerom odnu celuu progu is otvetov. esli trudno vso v valit v odin Case razdelim proverku na dve chasti pervoie proverim na nalichii cifr

Case Key Of
"0".."9": ; //nichego ne delaem
#8, #13 : ; //Backspase i Del razreshaetsa vse propustili #13
"-" : if Edit.Text<>"" then ; //moojno nabrat minus esli esho nichego ne nabralos
"e", "E": If (Edit.Text<>"")and(Edit.Text[Length(Edit.Text)]<>"-")and(Edit.Text[Length(Edit.Text)]<>"e") then ; //mojno nabrat e esli do six por nabrano chto libo a takje esli poslednaa ccifra ne "-" esli "-" znachit nbran tolko odin simvol smotrite tretuu stroku casea, nu i konechno doljen bit nabrana cifra kakaiat
Else : Key:=#0;
end;
vot i proverka konchilas a vot teper esle
If Edit.Text<>"" then begin
//zdes vishitivaem eto chislo
end;

---

← →
Andrey007   (2002-05-24 09:49) [41]

Ну, в общем, понятно, что если числа целые, то надо использовать TSpinEdit. А вот в случае с вещественными числами проще обрабатывать по OnKeyPress не каждое нажатие, а окончание ввода. Например
if key=#13 then
try
StrToInt(Edit1.Text);
...
except
ShowMessage("Облом!")
end;

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.51 MB
Время: 0.009 c