проблема с файлом

[_rav]

program inout;
{$APPTYPE CONSOLE}
uses
SysUtils;
var f1,f2:TextFile;
mas:array of double;
cnt,i:integer;
str:string;

begin
{ TODO -oUser -cConsole Main : Insert code here }
cnt := 0;
if not FileExists('Input.txt') then
begin
writeln('Input.txt doesn''t exist');
readln;
exit;
end;

AssignFile(f1,'Input.txt');
Reset(f1);
Writeln('Hello, Medved!');

while not Eof(f1) do
begin
Readln(f1,str);
if (str <> '') then
begin
mas[cnt] := StrToFloat(str);// ?????
cnt := cnt + 1;
end;
str :='';// Как правильно почистить str ?
end;

Writeln('The mas:');
SetLength(mas,cnt);

for i := Low(mas) to High(mas) do
begin
Writeln(mas[i]);
end;

Close(f1);
end.

Помогите новичку! Нужно, чтобы прога считала из txt файла массив double(каждая строка - число) и сформировав массив double вывела на консоль. В чем ошибка не пойму - массив не формируется ?

[zetrix]

интересно получается, ты объявляешь динамический массив, что-то пытаешь в него внести, а лишь потом задаёшь его размер!

Кароче вот что надо делать:

program inout;
{$APPTYPE CONSOLE}
uses
SysUtils;
var f1,f2:TextFile;
mas:array of double;
cnt,i:integer;
str:string;

begin
{ TODO -oUser -cConsole Main : Insert code here }
cnt := 0;
if not FileExists('Input.txt') then
begin
writeln('Input.txt doesn''t exist');
readln;
exit;
end;

AssignFile(f1,'Input.txt');
Reset(f1);
Writeln('Hello, Medved!');

while not Eof(f1) do
begin
Readln(f1,str);
if (str <> '') then cnt := cnt + 1; //здесь ты определишь: сколько у тебя будет чисел
end;
close(f1);
reset(f1);
SetLength(mas,cnt); //задаёшь размер массива

cnt:=0;
while not Eof(f1) do
begin
Readln(f1,str);
if (str <> '') then
begin
mas[cnt] := StrToFloat(str);
cnt := cnt + 1;
end;
end;

Close(f1);
Writeln('The mas:');

for i := Low(mas) to High(mas) do
begin
Writeln(mas[i]);
end;
end.

Как правильно почистить str ?

А зачем это вообще делать?

[Alar]

str :='';// Как правильно почистить str ?

str:=''; - так правильно.

посмотри ещё

str:=nil; ....

[X=Vitamin=X]

Сообщение от zetrix

интересно получается, ты объявляешь динамический массив, что-то пытаешь в него внести, а лишь потом задаёшь его размер!

Не в этом дело ! ! !
Он переменной cnt изначальное значение задал 0, а надо 1, т.к. массив индексируется с первого элемента, а не с нулевого! ! !

[Alar]

Сообщение от X=Vitamin=X

Не в этом дело ! ! !
Он переменной cnt изначальное значение задал 0, а надо 1, т.к. массив индексируется с первого элемента, а не с нулевого! ! !

можно и с нулевого, даже нужно.

Но сначало надо задать его размерность.

[_rav]

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

[X=Vitamin=X]

Сообщение от Alar

можно и с нулевого, даже нужно.

Но сначало надо задать его размерность.

Размерность - дк это да, а индексировать всеравно надо с первого, с нулевого - он будет дико ругатся(хотя кто знает )
По крайней мере я после Паскаля всегда индексирую с 1го...

[Alar]

X=Vitamin=X, можешь хоть с 10 добавлять, и работать с элементами массива от 10....

Массив начинаеться с 0, это надо знать.