Форум: "Основная";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;


---

← →
igor456 ©   (2005-10-01 20:53) [6]

Tonich, спасибо!

---

← →
Tonich ©   (2005-10-01 21:01) [7]

но всеравно, послушайся
> Джо ©   (01.10.05 20:39) [3]

---

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

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


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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.035 c