Calculo e Letras
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
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
Curtidas 0
Respostas
Paulino
07/03/2003
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
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
GOSTEI 0
Anonymous
07/03/2003
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
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
GOSTEI 0