Control de Datos Repetidos Delphi. (Necesito Ayuda)
 

Hola, tengo un problema, mañana rindo un final en Delphi y no hay forma de encontrarle solución a una parte del código, así que si alguien sabe algo lo agradecería.

Básicamente tengo que hacer un programa donde se cargan datos en un archivo y le realizo consultas. Es sobre venta de pasajes, ingreso nombre ,dni, importe, destino etc. Y luego puedo realizar consultas sobre los pagos y destinos.

Mi problema es con esta parte del enunciado:
Lo que yo sé es que tengo que comparar el destino y el núm de doc. si son iguales significa que para ese destino con ese doc ya se realizó el pago. La comparación la haría de este modo

Código Delphi [-]
(Registro.NumDoc=Edit2.Text) and (Registro.Destino=Combobox2.Items[Combobox2.itemindex])

Según mi profesor tengo que utilizar un While o un Until para resolverlo. Si a alguien se le ocurre algo bienvenido sea.
Desde ya, gracias.

Hola napsterk89.
Lo típico sería declarar un campo de pago, pero si la condición para considerar un registro pagado es tál como comentas, podrías hacer:

Código Delphi [-]
function IfHavePay(var FileReg: TFileReg; reg: TRegister): Boolean;
var
  r: TRegister;
begin
  Result:= False;
  Seek(FileReg, 0);
  while not Result and not Eof(FileReg) do
  begin
    Read(FileReg, r);
    Result:= (r.NumDoc = reg.NumDoc) and (r.Destino = reg.Destino);
  end;
end;

Un ejemplo de uso:

Código Delphi [-]
...
type
  TRegister = packed record
    NumDoc : string[9];
    Destino: string[15];
    ...
  end;

  TFileReg = file of TRegister;
...

procedure ...
var
  FileReg: TFileReg;
  r: TRegister;
begin
  AssignFile(FileReg, 'nombre_archivo.dat');
  Reset(FileReg);

  r.NumDoc := Edit2.Text;
  r.Destino:= Combobox2.Items[Combobox2.itemindex];

  if IfHavePay(FileReg, r) then
    ShowMessage('Pagado')
  else
    ShowMessage('Impago');

  CloseFile(FileReg);
end;

Saludos :)