slaughter
10 de Febrero del 2004

Hola a todos,
El problema que tengo es el siguiente:
Hasta la declaraci贸n de la variable variant todo correcto, pero a la hora de asignar la variant a un Tedit viene el problema; lo que hago es lo siguiente:

procedure ...
var
numero: variant;
begin
numero:=Edit1.Text;
...

end;

ES CORRECTO ¿? Muchas GRACIAS a todos

esigu?
10 de Febrero del 2004

Haber... supongo que no sabes programar na de na no ? entiendo que quieres coger el valor que hay dentro del TEdit... pues la propiedad TEXT es de texto por lo tanto creas una variable String... ejemplo:

proc....
var
num : integer;
begin

try

if ( Edit1.Text <> \'\' ) then
num := StrToInt( Edit1.Text );

except

ShowMessage(\'ERROR: el valor introducido no es un numero valido.\');
end;

end;