lo resolvi asi... no se si es la mejor manera, pero es la que pense
Código:
procedure TArchivo.MostrarLista(var ver:TStringGrid);
var fila, columna,i: integer; d1,d2: word; d3, d4: real;
begin
if IOresult<> 0 then
begin
showmessage('El Archivo esta vacio');
exit;
end;
ver.Cells[0,0]:='Nombre';
ver.Cells[1,0]:='Apellido';
ver.Cells[2,0]:='DNI';
ver.Cells[3,0]:='Saldo';
while not eof(archi) do begin
read(archi, datos);
columna:=0;
for fila:=1 to 3 do
ver.Cells[columna,fila] := datos.nombres;
inc(columna);
for fila:=1 to 3 do
ver.Cells[columna,fila] := datos.Apellido;
inc(columna);
for fila:=1 to 3 do
ver.Cells[columna,fila] := FloatToStr(datos.DNI);
inc(columna);
for fila:=1 to 3 do
ver.Cells[columna,fila] := FloatToStr(datos.saldo);
inc(columna);
end;
end;
casi..falta hacer una validadcion poniendo los valores negatovos y los positivos..