Товарищи помогите!!!!
есть файл...

qwertyuiop.txt

12,23, 34,45,56
23,31, 56,78,89

          .
          .
          .
          .
          .

заранее не известно сколько в файле будет таких строчек
как сей файл прочитать и записать в два массива
первые два числа в один массив
остальные три в другой.....??

Используй открытые массивы, при чтении каждой строки - увеличиваешь размер массива на единицу и добавляешь значение в конец.

Теоретически всё понятно.... а ка это на практике...?

Код

procedure TForm1.Button1Click(Sender: TObject);  var s:string; {temp string}      t:textfile; {file}      a: array of array[1..2] of integer; {first array}      b: array of array[1..3] of integer; {second array}      i:integer; {temp loop counter}      function getbefore(substr, str:string):string;      begin {internal function, return string in front of substring}       if pos(substr,str)>0 then         result:=copy(str,1,pos(substr,str)-1)       else         result:=str;      end;{function getbefore(substr, str:string):string;}      function getafter(substr, str:string):string;      begin {internal function, return string behind substring}       if pos(substr,str)>0 then         result:=copy(str,pos(substr,str)+length(substr),length(str))       else         result:='';      end;{function getafter(substr, str:string):string;}      function GetValue(var s:string):integer;      begin{internal function, return first number and remove it from string}        result:=Strtointdef(GetBefore(',',s),0);{set 0 for not numeric value}        s:=GetAfter(',',s);      end;{function GetValue(var s:string):integer;} begin  assignfile(t,'c:\1.txt'); {open file}  reset(t);  while not eof(t) do {read file line by line}    begin      readln(t, s); {read line}      setlength(a,length(a)+1); {increase bounds of array on 1}      setlength(b,length(b)+1); {increase bounds of array on 1}      for i:=1 to 2 do a[length(a)-1][i]:=GetValue(s); {fill out array}      for i:=1 to 3 do b[length(b)-1][i]:=GetValue(s); {fill out array}    end; {while not eof(t) do}  closefile(t); {closing file} end;

Ужас какой... а через TStringList никак?

Цитата(Song @ 16.8.2002, 13:31)

Ужас какой... а через TStringList никак?

А в чём ужас то? Ну загрузил через TStringList, а ведь разбрасывание данных по массивам приведёт к тому же коду, разница будет только в 3х строчках...

А разбрасывать не надо... одной наверное строчкой сформировать такой список где каждое число на одной строке и всё..

Цитата(Song @ 16.8.2002, 15:23)

А разбрасывать не надо... одной наверное строчкой сформировать такой список где каждое число на одной строке и всё..

Может я не понял задачу, но автор просил буквально следующее: "записать в два массива первые два числа в один массив остальные три в другой.....?" К сожалению не было уточнено какая структура должна быть этих массивов, и если достаточно просто строковых массивов, тогда конечно код становится гораздо проще - просто используются два TStringList вместо массивов и всё, но я решил, что автору всё-таки нужны цифры и решил взять следующие структуры массивов для заполнения:

a: array of array[1..2] of integer; {first array}
b: array of array[1..3] of integer; {second array}

Конечно код можно несколько упростить за счёт элиминирования функций getbefore и
getafter, так как они встречаются всего по одному разу, но просто я их часто использую в своих программах и решил взять их как они есть без изменений...

А что есть TStringList? Такой же массив... только строковый...
Ладно, молчу-молчу  
Мы уже об одном и том же и всё спорим.