[learndel]

чтоб каждый последующий элемент брался из файла ч.з. ","
Щас делаю вроде так

Код:

1 2 3 4 5 6 7 8 9 10 11

var s:integer; rez: array[1..4] of integer; prosedure for i:=1 to 4 do begin AssignFile(f,'qw.txt'); reset(f); readln(f,s); res[i]:=IntToStr(s); end;

но неудобно много txt шек приходится создавать
хочу сделать двумерный массив чтобы заполнялся
ч.з. "," строки массива, а ч/з eoln столбцы...

_________________________________________

Помогите пожалуйста, Сорри если пост некорректен...

[AlexSku]

Если между числами не запятые, а пробелы или табуляция, то:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); var   s: integer;   rez: array[1..3, 1..4] of integer;   i, j: integer;   f: TextFile; begin AssignFile(f,'qw.txt'); reset(f);   for i:=1 to 3 do     for j:=1 to 4 do     begin       read(f,s);       rez[i, j]:=s;       StringGrid1.Cells[j,i]:= IntToStr(s);     end; CloseFile(f); end;

[learndel]

Спс большое, мне как раз что-то типа этого и нужно, выводить не обязательно

Код:

1	StringGrid1.Cells[j,i]:= IntToStr(s);

, но для проверки правильности заполнения можно...
StringGrid1.Cells[j,i] это где в Делфи?

[YERokez]

StringGrid компонент на закладке Additional.

Cells[j,i] это пропертя TStringGrid. В испекторе она не указана, надо через Help смотреть.