Работа с БД и файлами

[neonex]

имеется кнопка и 2 Adoquery с адоконекшнами. при нажатии на кнопку выполняется такой код

procedure Totchet.Button2Click(Sender: TObject);
var
i,k: integer;
n:string;
num,usl,dat,time: string;
begin
ADOQuery1.First;
for i := 0 to ADOQuery1.RecordCount-1 do

begin
n:= ADOQuery1.FieldByName('numCard').AsString;

ADOQuery2.Active:= false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='SELECT * FROM personUse WHERE numCard="'+n+'"';
ADOQuery2.Active:= true;

for k:= 0 to ADOQuery2.RecordCount-1 do begin

num:= ADOQuery2.fieldbyname('numCard').AsString;
usl:= ADOQuery2.fieldbyname('whatUse').AsString;
dat:= ADOQuery2.fieldbyname('data').AsString;
time:= ADOQuery2.fieldbyname('time_use').AsString;
ADOQuery2.Next;
WriteOtch('Посещение №'+inttostr(k+1)+' Карта №'+num+'  #'+usl+'#  '+dat+'  '+time+'',otch);// запись данных в файл
ADOQuery1.Next;
end;


WriteOtch('===============================================================',otch);


end;

Все вроде замечтательно, но есть единственное НО , последняя запись из Adoquery заносится много раз подряд, чего делать подскажите

[Аватар]

И это скомпилировалось?

ADOQuery2.Next;
WriteOtch('Посещение №'+inttostr(k+1)+' Карта №'+num+'  #'+usl+'#  '+dat+'  '+time+'',otch);// запись данных в файл
END;
ADOQuery1.Next;
end;

Где то дальше похоже лишний END есть.
А циклы мне кажется предпочтительней делать так:

ADOQuery.First;
while not ADOQuery.Eof do begin
  ...
  ADOQuery.Next;
end;

[neonex]

Сообщение от Аватар

И это скомпилировалось?

ADOQuery2.Next;
WriteOtch('Посещение №'+inttostr(k+1)+' Карта №'+num+'  #'+usl+'#  '+dat+'  '+time+'',otch);// запись данных в файл
END;
ADOQuery1.Next;
end;

да, я прост не показал что WriteOtch это:

/////Функция ведения отчета в файл
function WriteOtch(otch : string; f : string): string;
var
  otchs : TStringList;

begin
  otchs := TStringList.Create;
  if (FileExists(Pchar(f))) then
  begin
    otchs.LoadFromFile(Pchar(f));
    otchs.Add('--> '+otch);
    otchs.SaveToFile(f);
  end
  else
  begin
    otchs.Add('--> '+otch);
    otchs.SaveToFile(f);
  end;
  otchs.Free;
end;

Твоя помощь просто неоценима, после замены If'ов на while not проблема решилась. Спасибо.