Скачать: CL | DM;

Как считать строки из текстового файла как массив   Найти похожие ветки 

← →
rust-02 ©   (2010-03-10 20:39) [0]

Имеется текстовой файл с содержанием:
Hello
How are you
Goodbye

Как считать этот текстовой файл как массив. Например
a[1]=Hello
a[2]=How are you
a[3]=GoodBye

написал код:
program Project43;

{$APPTYPE CONSOLE}

uses
SysUtils;
var z:textfile;
i:integer;
a:array [1..3] of string;
begin
AssignFile(z,"C:\Documents and Settings\Рустем\Мои документы\321.txt");
reset(z);
i:=1;
while not eof(z) do
begin
while not eoln do
begin
read(z,a[i]);
inc(i);
end;
end;
writeln(a[1]);
read;
readln
end.

Что тут не правильно?

---

← →
Anatoly Podgoretsky ©   (2010-03-10 20:54) [1]

> rust-02  (10.03.2010 20:39:00)  [0]

Ну например Read вместо  ReadLN
Зачем два цикла.
Что будет если строк окажется четыре

И почему бы не использовать StringList, загрузка одной командой.
Или это лабораторная работа, поскольку удивляет бессмысленностью.

--

---

← →
rust-02 ©   (2010-03-10 21:01) [2]

каждую строку надо читать как отдельный элемент массива.

---

← →
sniknik ©   (2010-03-10 21:14) [3]

> каждую строку надо читать как отдельный элемент массива.
надо же, тогда вопрос -
и почему бы не использовать StringList, загрузка одной командой.
???

---

← →
{RASkov} ©   (2010-03-11 10:30) [4]

TStringList + F1

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.042 c