Как загрузить массив из файла

[Нокс]

У меня имется файл, в котором содеражатся числа
1248

1251

1251

1254

1249

1256

и т.д.
Этот файл находится по адресу file("D:\TreeX.dat")
Мне нужно в программе использовать элементы этого массива
Условно говоря чтобы я мог работать с каждой переменной из файла..
Dim x[4]
x[1] = 1278
x[2] = 1276
x[3] = 1274
x[4] = 1271
Ну короче нужно, чтобы у меня переменная Х принимала все значения из файла =)
Чтобы я мог обращаться к ней таким образом

for i = 1 to 58
Walker(x[i])

ЗЫ Помогите, уж очень нужно.. Спасибо заранее..

[Блуд]

можно сделать так,с учётом что числа в файле записаны так:
1234
4232
3123

assingfile(fFile,'D:\TreeX.dat');
reset(fFile);
i:=1;
j:=1;
while not(eof) do
begin
 readln(fFile,x[i]);
 i:=i+1;  
end;

а далее используешь массив

если так:
1234

123

41234

assingfile(fFile,'D:\TreeX.dat');
reset(fFile);
i:=1;
while not(eof) do
begin
 if ((i mod 2)<>0) then
   begin
   readln(fFile,x[j]);
   j:=j+1;
   end;
 i:=i+1;  
end;

ещё нужно учесть индекс начала массива (в примере с 1)

[Stilet]

Нокс

а всетки на каком языке то?

[Hacker19_90]

Сообщение от Нокс

У меня имется файл, в котором содеражатся числа
Dim x[4]

Basic наверно.

[Stilet]

Hacker19_90

Не знал что в бейсике к элементу массива через [] обращаются...

[Hacker19_90]

оператор DIM.