Fórum AJUDEM UM AMIGO INICIANTE-SEI QUE É FACIL #142909
06/03/2003
0
Anonymous
Curtir tópico
+ 0Posts
06/03/2003
Anonymous
Gostei + 0
06/03/2003
Alphablend
Gostei + 0
07/03/2003
Anonymous
OBRIGADO PELA ATENÇÃO
Gostei + 0
07/03/2003
Anonymous
exemplo:
var
S, T: string;
begin
Str(1.4:2:1, T);
S := T + ´ Truncs to ´ + IntToStr(Trunc(1.4)) + #1310;
Str(1.5:2:1, T);
S := S + T + ´ Truncs to ´ + IntToStr(Trunc(1.5)) + 1310;
Str(-1.4:2:1, T);
S := S + T + ´ Truncs to ´ + IntToStr(Trunc(-1.4)) + 1310;
Str(-1.5:2:1, T);
S := S + T + ´ Truncs to ´ + IntToStr(Trunc(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0);
Gostei + 0
08/03/2003
Anonymous
Gostei + 0
09/03/2003
Dor_poa
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)