помогите написать сортировку в типизированом файле

[krolfrol]

вот это задание !"Типизированный файл содержит сведение об оплате за электро инергию. ввывести на экран фамилии абонентовб не заплотивших вовремя"
я его частично сделал!! у мя проблема с сортировкой!!! помогите программа приложенна в архиве [ATTACH][/ATTACH]

[VadEr]

1) пиши в одном регистре: "не оплатил" с маленькой буквы;
2) если переписываешь одну запись, - переписывай и другую:

if zap.oplata = 'не оплатил' then
     begin
      seek(f,j);
      write(f,zap_v);
      write(f,zap);
     end;

3) код для открыть/создать идентичен, используй процедуру. Или просто проверку на наличие файла (для одной кнопки).
4) лучше будет, если таблица бутет наращиваться в месте с файлом (определяешь размер(кол-во) записей и устанавливаешь строки в таблице).
5) Какой смысл в процедуре Clean? (не нужна)

p.s. буквы "Ё" и "ё" в указанные диапазоны не входят - их надо отдельно писать (эти буквы несуществуют только в научной литературе).

[krolfrol]

спасибо!! и правда не заметил не дочетов!!
но у мя сортировка все равно не работает она выберает одну запись и все поля заполняет(((
вот листинг

begin
 reset(f);
 for i:=filesize(f)-1 downto 1 do
  for j:=0 to i-1 do
   begin
    seek(f,j);
    read(f,zap,zap_v);
    if zap.oplata = 'не оплатил' then
     begin
      seek(f,j);
      write(f,zap_v);
      write(f,zap);
     end;
    end;
  for i:=0 to fileSize(f)-1 do
  begin
   seek(f,i);
   read(f,zap);
   s:=i+1; //Прибовляе 1. чтоб начиналось с 1 ячейки
   //выводим данные
   strGrid.Cells[0,s] := zap_v.Famil;
   strGrid.Cells[1,s] := zap_v.oplata;
  end;
end;

в чем проблемма???

[VadEr]

Читаешь в одну переменную, а выводишь из другой:

for i:=0 to fileSize(f)-1 do
begin
seek(f,i);
read(f,zap);
s:=i+1; //Прибовляе 1. чтоб начиналось с 1 ячейки
//выводим данные
strGrid.Cells[0,s] := zap_v.Famil;
strGrid.Cells[1,s] := zap_v.oplata;
end;
end;

[krolfrol]

если написать везде zap то он ничего не отсортирует!!! эт я видемо от отчаиня так написал=)

[VadEr]

Нет же, сортировка проходит. Это вывод нарушен (поставь одну переменную).
Например:
ааа - опл
ббб - неопл
ввв - опл
ггг - неопл

после сортировки будет:
ааа - опл
ввв - опл
ггг - неопл
ббб - неопл

[krolfrol]

ммм. ты гений!!! Thanks of lot!!!