Работа с индексными файлами

procedure TForm1.Button6Click(Sender: TObject);
var kolRow, b, j, k:integer;
f:textfile;
begin
 kolRow:=0;//кол-во строк, относящихся к служебной информации
 assignfile(f,'Отчёт1.txt');//связываем переменную с текстовым файлом
 reset(f);//открываем файл для чтения
 i:=0;//устанавливаем начальный индекс строк
 while not eof(f) do//цикл заполнения таблиц из базы данных
 begin
  readln(f,s);//читаем текст из текущей строки файла и записываем его в переменную S
  b:=1;//устанавливаем начальный номер 1-го символа слова
  j:=0;//устанавливаем начальный индекс столбцов
  i:=i+1;//увеличиваем индекс строк
  for k:=1 to length(s) do//цикл сортировки данных в строке
   begin
    if s[k]='|' then//проверяем наличие разделителя
     begin
      ListView2.Items[j].SubItems:=copy(s,b,k-b);//записываем в ячейку значение
      b:=k+1;//запоминаем номер символа, с которого начинается новое слово
      j:=j+1;//увеличиваем номер столбца
     end;
    end;
 end;
end;

var f:textfile;s,b:string;i:integer;n:TListItem;
begin
try
assignfile(f,'Отчёт1.txt');
reset(f);
i:=0;
while not eof(f) do
  begin
  readln(f,s);
  n:=ListView2.Items.Add;
  while s<>'' do
    begin
     b:=copy(s,1,pos('|',s)-1);
    if n.Caption='' then n.Caption:=b
    else
     n.SubItems.Add(b);
     delete(s,1,pos('|',s));
    end;
   inc(i);
  end;
finally
closefile(f);
end;
end;

Procedure ReadListView(S: String; ListView: TListView);
Const Razdel = '|';
Var f: TextFile;
Begin
 AssignFile(f, 'base\base.db');
 Reset(f);
 try
  While not Eof(f) Do
   Begin
    ReadLn(f,S);
    With ListView.Items.Add Do
     Begin
      Caption:=Copy(S,1,Pos(Razdel,S)-1);
      System.Delete(S,1,Pos(Razdel,S));
      S:=StringReplace(S,Razdel,#13#10,[rfReplaceAll]);
      SubItems.Text:=S;
     End; {With}
   End; {While}
 finally
  CloseFile(f);
 end;
End;

ReadListView('base\base.db', ListView1);

Const Razdel = '|';
var f:textfile;
s:string;
i:integer;
begin
AssignFile(f, 'base\base.db');
ReWrite(f);
try
 With ListView1 Do For i:=0 to Items.Count - 1 Do
  WriteLn(f,StringReplace(Items.Caption + Razdel + Items.Item.SubItems.Text,#13#10,Razdel,[rfReplaceAll]));
finally
 CloseFile(f);
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
if Selected
then ShowMessage(Item.Caption);
end;

edit2.text:=ListView1.Selected.Caption;
edit3.text:=ListView1.Selected.SubItems.text;
edit4.text:=ListView1.Selected.SubItems.text;
edit5.text:=ListView1.Selected.SubItems.text;

[LEFT]procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
[LEFT] Selected: Boolean);
begin
if Selected
then begin
edit2.text:=Item.Caption;
edit3.text:=Item.SubItems[0];
edit4.text:=Item.SubItems[1];
edit5.text:=Item.SubItems[2];[/LEFT]
 
[LEFT]end;
end;[/LEFT]