Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

rust-02 © (2010-03-10 20:39:00)
Имеется текстовой файл с содержанием:
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.

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

{RASkov} (2010-03-11 10:30:00) [1]
TStringList + F1

sniknik (2010-03-10 21:14:00) [2]
> каждую строку надо читать как отдельный элемент массива.
надо же, тогда вопрос -
и почему бы не использовать StringList, загрузка одной командой.
???

rust-02 (2010-03-10 21:01:00) [3]
каждую строку надо читать как отдельный элемент массива.

Anatoly Podgoretsky (2010-03-10 20:54:00) [4]
> rust-02 (10.03.2010 20:39:00) [0]

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

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

--

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »