![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#19
|
|||
|
|||
ya casi esta
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; |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ayuda con este codigo | kurono | Varios | 4 | 13-06-2008 01:03:29 |
Ayuda con este código que me dejaron | LAFALOFO | Varios | 7 | 14-09-2006 20:50:26 |
una ayuda con este error please | dariana20 | SQL | 3 | 14-06-2006 23:14:06 |
Ayuda con este error???? | danytorres | Varios | 1 | 27-10-2004 11:38:09 |
Me ayuda alguien con este msg de error? | NaZZ | Varios | 4 | 12-03-2004 09:31:25 |
![]() |
|