Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Leer un fichero de tipo record (https://www.clubdelphi.com/foros/showthread.php?t=64403)

Isuri 31-03-2009 10:33:02

Leer un fichero de tipo record
 
Hola,

tengo un fichero de tipo record, creo que me guarda bien los datos pero cuando intento leer, no leer nada

Código Delphi [-]
function TDatos.getRegistro(Value: string): TRegistro;
var
   Registro: TRegistro;
   FMiAgenda: File of TRegistro;
begin
  AssignFile(FMiAgenda,'Mi Agenda.txt');
  try
    Reset(FMiAgenda);
    while(not EOF(FMiAgenda)) do
      read(FMiAgenda,Registro);
    ShowMessage(Registro.Nombre);
  finally
    CloseFile(FMiAgenda);
    Result := Registro;
  end;
end;

Al hacer showMessage, el mensaje que mando esta vacio

gracias

ElKurgan 31-03-2009 11:42:21

Código:

function TDatos.getRegistro(Value: string): TRegistro;
var
Registro: TRegistro;
FMiAgenda: File of TRegistro;
begin
AssignFile(FMiAgenda,'Mi Agenda.txt');
try
Reset(FMiAgenda);
while(not EOF(FMiAgenda)) do
begin
read(FMiAgenda,Registro);
ShowMessage(Registro.Nombre);
end;
finally
CloseFile(FMiAgenda);
Result := Registro;
end;
end;



Un saludo

Isuri 31-03-2009 12:26:07

Ya bueno ese no es el problema, ya que asi tampoco funciona. si podeis darme otra solucion. como lo tenia yo aunque sea deberia ver el ultimo registro

coso 31-03-2009 14:29:12

hola, yo miraria si se te han grabado correctamente los datos primero. saludos

PD: tambien, comprobaria si se encuentra el fichero

Código Delphi [-]
if not fileexists('mi_agenda.txt') then showmessage('no se encuentra el fichero en la ruta especificada');


La franja horaria es GMT +2. Ahora son las 10:25:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi