Файл с информацией

[werser]

Доброе время суток! Проблема такая:
Есть файл, в нем находитса 10 строк Примерно так
1 Иванов Иван Иванович
2 Петров Петр Петрович

....

Нужно по щелчку по кнопке перенести информацию из файла в компонент СтрингГрид так что б колонки выглядили примерно так:

1 | Иванов| Иван | Иванович

Заранее благодарен. Я пробовал переносить но переносить в колонку всю строку или весь файл полностью

[WOLFak]

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:longint;
 s:string;
 f:TextFile;
begin
 AssignFile(f,'f:\test.txt');
 reset(f);
 for i:=0 to 9 do
  begin
   readln(f,s);
   s:=s+' ';
   for j:=0 to 2 do
    begin
     form1.StringGrid1.Cells[j,i]:=copy(s,1,pos(' ',s));
     delete(s,1,pos(' ',s));
    end;
  end;
 CloseFile(f);
end;

[werser]

А ты б не мог сюда свой исходник выложить! Пожалуйста

[WOLFak]

как? мне его выложить????? как суда вообще файл вложить?

[werser]

Раньше можно было вроде! А вот если такая строка в файле то как быть
1|2332|2323|Петров|


То как? Помогите пожалуйста

[WOLFak]

строка с палочками '|'???

[WOLFak]

s:=s+'|';     
for j:=0 to 3 do   
    begin   
     form1.StringGrid1.Cells[j,i]:=copy(s,1,pos('|',s));   
     delete(s,1,pos('|',s));   
    end;

тоесть в начале к s надо прибавить знак разделения если в конце строки не вводится знак разделения(любой)
после в цикле идти от 0 до (кол слов в строке)-1
и там в pos изменять знак разделения pos('|',s) или pos(' ',s)

[werser]

Спасибо за помощь, я понял в чем была причина. Когда я сам пытался то переносило всю строку. А не розбивало по столбцам. Спасибо что помог разобратса! Огромное