[delphik]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.BitBtn1Click(Sender: TObject); Var  i,j,n : integer;  s,st: String ; begin  if OpenDialog1.Execute=true then begin    // Открыть текстовый файл     ListBox1.Items.Clear;     ListBox1.Items.LoadFromFile(OpenDialog1.FileName);  // Загрузка файла     StringGrid1.RowCount:=ListBox1.Items.Count;  // Задание кол. строк в таблице     for i:=0 to ListBox1.Items.Count-1 do begin         s:=ListBox1.Items[i];        st:='';j:=1;        Repeat st:=st+s[j]; j:=j+1; Until (s[j]=';');        StringGrid1.Cells[0,i+1]:=st;        j:=j+1;st:='';        Repeat st:=st+s[j]; j:=j+1; Until (s[j]='|');        StringGrid1.Cells[1,i+1]:=st;        j:=j+1;st:='';        Repeat st:=st+s[j]; j:=j+1; Until (s[j]='|');        StringGrid1.Cells[2,i+1]:=st;        j:=j+1;st:='';        Repeat st:=st+s[j]; j:=j+1; Until (s[j]=')');        StringGrid1.Cells[3,i+1]:=st;        j:=j+1;st:='';     end;  end;

Примерно это выглядит так..

Moderatorial: Пользуемся тегами. Иначе последуют санкции.