[Delphi] DÚVIDA!

[KopaG 13]

var

calcaQ,calcat,camisat,camisaq,toalhat,toalhaq,r,a,b,c:real;

 

begin

 

 

 

 

 

calcaQ:= strtofloat (edit1.text);

 

if edit2.text = 'P' then

calcat:= 5

 

else if edit2.text = 'M' then

calcat:= 6

 

else if edit2.text = 'G' then

calcat:= 7

 

else if edit2.text = 'GG' then

calcat:= 8

 

else

showmessage('tamanho de calça não reconhecido');

 

a:= calcaq * calcat;

 

 

 

 

 

 

 

camisaq:= strtoint (edit3.text);

 

if edit4.text = 'P' then

camisat:= 10

 

else if edit4.text = 'M' then

camisat:= 11

 

else if edit4.text = 'G' then

camisat:= 12

 

else if edit4.text = 'GG' then

camisat:= 13

 

else

showmessage('tamanho de camisa não reconhecido');

 

b:= camisaq* camisat;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Toalhaq:= strtofloat(edit5.text);

 

if edit6.text = 'P' then

toalhat:= 1

 

else if edit6.text = 'M' then

toalhat:= 2

 

else if edit6.text = 'G' then

toalhat:= 3

 

else if edit6.text = 'GG' then

toalhat:= 4

 

else

showmessage('tamanho de toalha não reconhecido');

 

c:= toalhaq* toalhat;

 

 

 

 

r:= a+b+c;

label7.Caption:= floattostr®;

 

 

Edit1.text:='';

Edit2.text:='';

Edit3.text:='';

Edit4.text:='';

Edit5.text:='';

Edit6.text:='';

 

 

 

 

 

end;

 

 

 

 

 

 

*se eu quiser deixar um edit sem escrever nada, ai eu faço a operação usando outros edits

*ai da um erro.. q o edit n é considerado um integer no meu caso

*como eu faço

*pra permitir? '-'

*q ele fique vazio