var
s : String ;
begin
s := edit1.text ;
try
strtofloat(s+'0');
except
delete(s,length(s),1);
edit1.text := s ;
edit1.SelStart := length(s);
end ;
end ;
procedure Trzdj.Edit10KeyPress(Sender: TObject; var Key: Char);
var i,j:integer;
begin
if key in ['0'..'9',#13,#8,'.'] then begin
if key=#13 then begin
if edit10.text<>'' then
begin
j:=0;
for i:=1 to length(trim(edit10.text)) do begin
if edit10.text[i]='.' then begin
j:=j+1;
next;
end;
if j>1 then
showmessage('请认真输入价格!')
else
begin
edit10.text:=formatfloat('0.00',strtofloat(edit10.text));
edit6.SetFocus;
end;
end;
end;
end;
end
else
begin
key:=#0;
messagebox(handle,'1','2',mb_ok+mb_iconerror);
end;
end;
满足你的要求了,给分吧!!