Вопрос по 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;

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