Прочитать файл

← →
igor456 © (2005-10-01 20:26) [0]

Есть файл с таким содержимым
41
18467
6334
26500
19169
15724
11478
29358
26962
24464
5705
28145
23281
16827
9961
491
2995
11942
4827
5436

Как прочитать такой файл в массив ?

← →
Джо © (2005-10-01 20:29) [1]

А в чем конкретная проблема? Работа с файлом? Работа с массивом?

← →
igor456 © (2005-10-01 20:34) [2]

> А в чем конкретная проблема? Работа с файлом? Работа с массивом?

В делфи второй день. Надо на выходе получить массив, который будет хранить эти числа. Не знаю как прочесть из файла вот эти числа.

← →
Джо © (2005-10-01 20:39) [3]

> [2] igor456 © (01.10.05 20:34)
>
> В делфи второй день. Надо на выходе получить массив, который
> будет хранить эти числа. Не знаю как прочесть из файла вот
> эти числа.

Тогда разбей задачу на составляющие. Сначала изучи работу с массивами как составляющими языка. Затем изучи работу с файлами, начиная со стандартных Assign,Reset,ReadLn,Close. А затем уже применяй полученные знания, тут, я думаю, подкорректируют твои конкретные решения. А так - все будет без толку, поверь.

← →
Loginov Dmitry (2005-10-01 20:39) [4]

Удалено модератором
Примечание: Преднамеренная, необузданная реклама, плохо кончится

← →
Tonich © (2005-10-01 20:45) [5]

> Loginov Dmitry (01.10.05 20:39) [4]

а ты все рекламку толкаешь )))
нут ну так тоже нельзя, вот человк научиться пользоваться этими LoadArrayFromAscii а потом и сфайла ничего не сможет прочитать !!!

вот держи, парвда не самый лучший вариант.
массив - integer , но ты ж сам не указал какие именно числа у тебя будут (integer or Real)

var F:TextFile; jj:Integer; ii:Integer; a:array of Integer; begin ii:=1; AssignFile(F,"C:\tt.txt"); reset(F); while not Eof(F) do begin SetLength(a,ii); Readln(F,jj); a[ii-1] := jj; inc(ii); end; CloseFile(F); end;

Tonich, спасибо!

← →
Loginov Dmitry (2005-10-01 21:07) [8]

> Удалено модератором
> Примечание: Преднамеренная, необузданная реклама, плохо
> кончится

Извеняюсь, больше так не буду ;)))

Прочитать файл Найти похожие ветки