Calculo e Letras

07/03/2003

0

Olá, estou com um probleminha.
Tenho 4 DBedit onde vou fazer uma multipliação entre eles, com números inteiros e fracionários.
Mas um dos campos terá números fixos que para facilitar o usuário quero que ele coloque letras ao inves dos números, ex.
Se for digitadi G vai ter que calcular 1, MG = 0,001 e se for MCG = 0,00001, mas quando coloco a letra no campo da erro, de conversao como sintring e valor nao combinam, já tentei de tudo. O que faço alguém pode me ajudar


Obrigado.


Delphi1

Delphi1

Responder

Posts

07/03/2003

Paulino

Declare uma variável string[10] ou outro tamanho, o máximo possível de caracteres do edit, e a seguir, ao calcular, atribua o valor de texto do edit à variável.
Daí faça um laço até o tamanho da variável a que foi atribuido o valor e verifique as letra, caso seja G, entenda-se 1, MG, entenda-se 0.001 e assim por diante.

para mais escreva-me: paulino@usa.com


Responder

07/03/2003

Anonymous

crie um function

funtion StringDoidaToFloat(s:string):float
begin
if s = ´xpto´ then
result:=0,171
else
if s= ´qwert´ then
result := 1.234
else
result:= 3,14159;
end;


use esta fucntion

tot:= StringDoidaToFloat(edit1.text) * 7;

[]´s


Responder

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar