cesar.zapata,
Cita:
Empezado por cesar.zapata
La consulta es que el profesor nos ha pedido que cuando introducimos los datos sean en datos de STRING y cuando estos datos sean validados se conviertan el NUMEROS REALES
|
Cita:
Empezado por cesar.zapata
NO PIDO QUE ME HAGAIS EL DPR , SOLO QUE SI TENEIS TIEMPO ME HECHEIS UNA MANO CON LO DE INTRODUCIR LOS DATOS CON STRINGS
|
Revisa este código:
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Dialogs;
type
TData = record
Fecha : Integer;
Data1 : String;
Data2 : Integer;
Data3 : Double;
end;
var
Data : Array of TData;
Input : String;
CountData : Integer;
i : Integer;
procedure LoadData;
begin
Write('Cantidad de Datos a Ingresar: ');
Readln(Input);
CountData := StrToInt(Input);
SetLength(Data,CountData);
for i := 0 to CountData-1 do
begin
Write('Input Fecha en formato AAAAMMDD: ');
Readln(Input);
Data[i].Fecha := StrToInt(Input);
Write('Input Data1 (String): ');
Readln(Input);
Data[i].Data1 := Input;
Write('Input Data2 (Integer): ');
Readln(Input);
Data[i].Data2 := StrToInt(Input);
Write('Input Data3 (Float): ');
Readln(Input);
Data[i].Data3 := StrToFloat(Input);
end;
end;
begin
LoadData;
end.
El código anterior permite cargar
N datos por medio de una variable String y posteriormente asignar dichos valores a variables en un
arreglo de registros con sus tipos correspondientes por medio de funciones de conversión. Quizás puedas aplicar la idea general a tu proyecto.
Revisa estos links:
Espero sea útil
Nelson.