Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if (Edit1.Text='') then
- suder:='0'
- else
- suder:=StrtoFloat(Edit1.Text);
- or
- suder:=StrToFloaTdef(Edit1.Text,0);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement