Detectar tipo de dato introducido por teclado

[isarmiento]

Empezado por cloayza

A ver si esto te ayuda...

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;


var
   value:String;
   entero:Integer;

function IsRoman(Value:String):Boolean;
var
  I: Integer;
begin
     Result:=True;
     for I := 1 to Length(Value) do
     begin
         if Not CharInSet(UpCase(Value[i]),['I','V','X','L','C','D','M'])  then
         begin
              Result:=False;
              Exit;
         end;
     end;
end;

function IsNumber(Value:string):Boolean;
var
   NumVal:Integer;
begin
     Result:=TryStrToInt(Value, NumVal);
end;

begin
      try
         write('Ingrese valor        :');
         Readln(value);
         if IsNumber(Value) then
            writeln('Ingreso un número    :'+Value)
         else if IsRoman(Value) then
            writeln('Ingreso número romano:'+Value)
         else
            writeln('Ingreso una palabra  :'+Value);

         readln;
      except
        on E: Exception do
          Writeln(E.ClassName, ': ', E.Message);
      end;
end.

Saludos cordiales

Muchas gracias por responder.... uso delphi 2007 y me manda un error en el System.SysUtils ... dice "[Fatal Error] Project2.dpr(8): File not found: 'System.SysUtils.dcu'"

sabes que puede ser?? gracias <3

[isarmiento]

Empezado por isarmiento

Muchas gracias por responder.... uso delphi 2007 y me manda un error en el System.SysUtils ... dice "[Fatal Error] Project2.dpr(8): File not found: 'System.SysUtils.dcu'"

sabes que puede ser?? gracias <3

Gracias por la ayuda <3

Ya lo he resuelto