[learndel]

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

Код:

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]

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

Код:

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]

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

Код:

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

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

[YERokez]

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

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