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

← →
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, загрузка одной командой.
???

TStringList + F1

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