[cocute]

he encontrado esto, pero no se si sirve para lo que digo, no se como usarlo

procedure StrToVar(const StrVar : string; out UtypedVar);
begin
try move(StrVar[1],UTypedVar,length(StrVar)); except end;
end;