Leer un fichero de tipo record

[Isuri]

Hola,

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


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]

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]

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]

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

PD: tambien, comprobaria si se encuentra el fichero


if not fileexists('mi_agenda.txt') then showmessage('no se encuentra el fichero en la ruta especificada');