Ver Mensaje Individual
  #2  
Antiguo 28-09-2006
mensana mensana is offline
Miembro
 
Registrado: sep 2006
Posts: 69
Reputación: 18
mensana Va por buen camino
// Código no comprobado

try
Valor := StrToInt(Edit1.Text);
Result := True;
except
on E:EConvertError do: Result := False;
end;
Responder Con Cita