есть файл - см прикрепленный рисунок.
считываю его содержимое по строкам файла и заношу эти строки в элементы одномерного (?) массива buf :
| Код |
var Fname:AnsiString;
f:TextFile;
buf:array[1..200] of string;
k:integer;
k:=1;
AssignFile(f,'C:\1.txt');
Reset(f);
while not EOF(f) do
begin
readln(f, buf[k]);
inc(k);
end;
CloseFile(f);
|
Вопрос: как сформировать двумерный массив, заполненный элементами из текстового файла построчно (см. рис.):
buf[1,1]= 234, buf[1,2]= цу2 и т.д. до конца строки....
buf[2,1]= 789, buf[2,2]= 2ываы и т.д.
................до конца файла
|
