загрузка из файла Опции

[Sancho]

вот значт задача такая..

в текстовом файле записаны цифры (их количество мы не знаем). Нам необходимо эти цифры занести в массив. Вроде все сделал, но пишет какие-то непонятные цифры
вот код

Код

procedure load(var a:array of integer);
var f:file of integer; n:string;h,s,i:integer;
begin
Writeln('vvedite adres faila');
readln(n);
assign(f,n);
i:=0;
reset(f);
while not eof(f) do begin
read(f,h);
i:=i+1;
a[i]:=h;
Writeln(h);
end;
close(f);
readln;
end;

если в файле цифры 34 5 3 45 3
то выводит он их в виде 13363 13600 13088 13344 и т.д.

я так понимаю. что это все из-за несоответствия параметров.. массвич интеджер, а читаем стринг

можно было бы изменить тип массива. но это не допустимо... надо что-то здесь мутить..


заранее спасибо большое

[volvo]

Sancho,

в текстовом файле записаны цифры

и

var f:file of integer;

это несовместимо... File Of Integer - не текстовый, а типизированный...

Кроме этого, при передаче массива как Array of integer, нумерация начинается с 0, у тебя же нулевой элемент будет пропущен, так что

i := -1;

P.S. Лучше всего сделать загрузку вектора функцией, которая будет возвращать число прочитанных элементов...