Можно ли в StringGrid вывести.......

[diznt]

Есть .txt файл примерно с таким содержанием

bot@rambler.ru;11111
gaga@rambler.ru;535332
byhaha@rambler.ru;85032

и т.д.

теперь следующий вопрос......
Можно ли в StringGrid вывести в колонки к примеру такое
в первую колонку строку bot@rambler.ru
Во вторую колонку 11111

Но есть одна проблема что нужно пропустить знак ;
Собственно вот и вопрос

[artemavd]

А почему именно из текстового файла считывать? Почему сразу в StringGrid не заносить в ячейки? Зачем себе жизнь усложнять то.

[diznt]

Мне надо так надо!))

[puporev]

Если нужны не ссылки, а просто их написание (текст), то можно сделать так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var  f:textfile;
     s:string;
     i:integer;
begin
     assignfile(f,'text.txt');
     reset(f);
     i:=0;
     while not eof(f) do
       begin
         readln(f,s);
         StringGrid1.Cells[0,i]:=copy(s,1,pos(';',s)-1);
         StringGrid1.Cells[1,i]:=copy(s,pos(';',s)+1,length(s)-pos(';',s));
         inc(i);
       end;
end;

[diznt]

хм.....
А что такое eof(f)

и inc(i) ???

[puporev]

Мм ... да.
eof(f) - конец файла
inc(i) это i:=i+1;