поиск не ищет

[.Тапка.]

есть прога, в ней должен производиться поиск в файле (метод золотого сечения), но ищет и выводит на одну позицию меньше, чем есть (на скрине видно)

я так думаю, что проблема в выводе данных на стринггрид.
собственно, код.

procedure TFSearch.BSearchClick(Sender: TObject);
var
flg:boolean;
pos,left,right,mid:integer;
z1:TZap1;
z2:TZap2;

begin

reset(f1);
 reset(f2);
 left:=0;
 right:=filesize(f1)-1;
 flg:=false;
  repeat
    mid:=trunc((right-left)/1.619)+left;
    seek(f1,mid);
    read(f1,z1);
    if z1.typez=StrToInt(SearchE.Text)
    then flg:=true
    else
      if StrToInt(SearchE.Text)<z1.typez then right:=mid-1
        else
          left:=mid+1
until (left>right) or flg;
if flg then showmessage('Нашел') else showmessage('Не нашел');

if flg then
  begin
    pos:=mid;
    while pos>=0 do
    begin
      seek(f1,pos);
      read(f1,z1);
      if StrToInt(SearchE.Text)<>z1.typez then break;
      seek(f2,0);
      while not eof(f2) do
      begin
        read(f2,z2);
        if z2.artic = z1.artic then
        begin
          with SG3 do
          begin
            Rowcount:=Rowcount+1;
            SG3.Cells[0,Rowcount-2]:=z1.name;
            SG3.Cells[1,Rowcount-2]:=IntToStr(z1.typez);
            SG3.Cells[2,Rowcount-2]:=IntToStr(z1.artic);
            SG3.Cells[3,Rowcount-2]:=IntToStr(z1.treb);
            SG3.Cells[4,Rowcount-2]:=IntToStr(z2.kol);
          end;
          break;
        end;
      end;
      dec(pos);
    end;
    pos:=mid+1;
    while pos<=filesize(f2)-1 do
    begin
      seek(f1,pos);
      read(f1,z1);
      if StrToInt(SearchE.Text)<>z1.typez then break;
      seek(f2,0);
      while not eof(f2) do
      begin
        read(f2,z2);
        if z1.artic=z2.artic then
        begin
          with SG3 do
            begin
            Rowcount:=Rowcount+1;
            SG3.Cells[0,Rowcount-2]:=z1.name;
            SG3.Cells[1,Rowcount-2]:=IntToStr(z1.typez);
            SG3.Cells[2,Rowcount-2]:=IntToStr(z1.artic);
            SG3.Cells[3,Rowcount-2]:=IntToStr(z1.treb);
            SG3.Cells[4,Rowcount-2]:=IntToStr(z2.kol);
            end;
          break;
        end;
        
      end;
      inc(pos);
      
    end;
  end;
  closefile(f1);
  closefile(f2);
  if not flg then Showmessage('Заказчиков с таким типом не найдено!');
end;

и может кто-нибудь подсказать функцию что бы полностью очистить стринггрид?
заранее спасибо

@темы: Delphi

Comments

[Neitent]

Очистки стринггрида нету. Только ручками.
В код не всматривалась толком, пока вижу при беглом осмотре вывод на строку
Rowcount-2. Кажись, там rowcount-1 должно быть, нет? Первая строка улетает в далекие края

[.Тапка.]

Neitent, препод поставил -2, обманул наверное ( спасибо, попробую так
написать отдельную процедуру для очистки стрингрида?