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

[Sh@de]

в некотором файле *.txt записаны числа сколько их неизвестно. подскажите пожалуйста как числа из этого файла загрузить в массив. заранее спасибо(знаю что задание простое, но я только на второй курс перехожу, с работой с файлами раньше не сталкивался, а на летнюю практику надо)если можно в простейшей форме

[Gogent]

Какой язык?

[DedBoroda]

const vol = 30000;
var t:text;
    m:array[1..vol] of integer;
    i:integer;
begin
i:=1;
assign(t,'nekoe.txt');
reset(t);
while not eof(t) do
      begin
           Read(t,m[i]);
           inc(i);
      end;
close(t);
end.

[Grag]

DedBoroda, а как узнать сколько чисел было прочитано из файла?
А если их больше 30000?

[Gogent]

ArrayList splitted=new ArrayList();
StreamReader sr=new StreamReader(""); //в кавычках указываешь путь к файлу
string str=sr.ReadToEnd.Replace('\n',' ').Replace('\r',' ');
splitted=str.Split(' ');
ArrayList number=new ArrayList();
foreach(string s in splitted){
double d=double.Parse(s);
numbers.Add(d);}

[DedBoroda]

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

А если их больше 30000?

поставь 3000000000, тока компилировать на free, один хрен

а как узнать сколько чисел было прочитано из файла?

из переменной i

[Serge_Bliznykov]

DedBoroda, 1) а с чего Вы решили, что автору топика нужен пример на Delphi ?!
2) а слабо проверить? Рискну предположить, что Ваш пример банально не откомпилируется, т.к.:
[Error]: Data type too large: exceeds 2 GB
3) а про динамические массивы Вы что-нибудь слышали?

короче, не зачёт!

[DedBoroda]

1) а с чего Вы решили, что автору топика нужен пример на Delphi ?! а про динамические массивы Вы что-нибудь слышали?

А это не дельфи, и компилировать не в делфи. Внесите свой вклад - напишите на другом языке свой пример.

2) а слабо проверить? Рискну предположить, что Ваш пример банально не откомпилируется, т.к.:
[Error]: Data type too large: exceeds 2 GB

У нас 2010 год, проблем с памятью уже давно нет и компилируется всё ИМХО.

[Serge_Bliznykov]

Внесите свой вклад - напишите на другом языке свой пример.

Зачем на другом?! я и на Delphi могу написать нормальный код. Вопрос, надо ли это Sh@de?! Судя по тому, что за 5 дней он не удосужился ничего написать, эта проблема форумчан волнует больше, чем автора топика...

У нас 2010 год, проблем с памятью уже давно нет и компилируется всё ИМХО.

И чем же у Вас в вашем имхо этот код компилируется?!!!

const vol = 3000000000;
var t:text;
    m:array[1..vol] of integer;
    i:integer;
begin
...

Вы, наверное, верите в компилятор, вместо того, чтобы взять и проверить?!
тогда сообщаю, этот код ни в одном известном мне компиляторе не компилируется!
Free Pascal Compiler version 2.4.0 [2009/12/18] for i386
выдаёт ошибку:

test1.pas(3,19) Error: The range of the array is too large
test1.pas(17) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
....

[lowercase]

вот собственно такой код в делфи консоли я написал и откомпилировал... никаких ошибок небыло... проверял файл около 1,5 гб... все норм

program read_num;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var f:textfile;
    a:array of integer;
begin
  assignfile(f,'c:\num.txt');
  reset(f);
  while not eof(f) do begin
    setLength(a,length(a)+1);
    read(f,a[length(a)-1]);
    writeln(a[length(a)-1]);
  end;
  closefile(f);
end.