Нужно считать текстовой файл до определённых слов. delphi

← →
rust-02 © (2010-03-11 17:34) [0]

есть программа с содержанием
hello
goodbye
bye
end
net
da
Написал цикл
while ( not eof(z) ) and ( i <= 10 ) and (a<>"end") do
begin
Readln(z,a);
inc(i);
end;
что не правильно?

← →
Медвежонок Пятачок © (2010-03-11 17:50) [1]

хорошее содержание.
хорошая программа.
все правильно.

← →
Leonid Troyanovsky © (2010-03-11 18:50) [2]

> Медвежонок Пятачок © (11.03.10 17:50) [1]

> хорошее содержание.

- Хорошая песня, молодцы, ребята! [День выборов]

:)

--
Regards, LVT.

← →
rust-02 © (2010-03-11 18:54) [3]

но программа не работает.
когда пишу write(a[5]) он мне показывает туе

← →
Игорь Шевченко © (2010-03-11 18:56) [4]

> но программа не работает

больно слышать.

← →
rust-02 © (2010-03-11 19:02) [5]

но программа не работает.
когда пишу write(a[5]) он мне показывает net

но показывает же

> rust-02 © (11.03.10 19:02) [5]

> когда пишу write(a[5]) он мне показывает net

- А может это туя?
- ... И Тую найдем.

- А может это "пха"? Есть же такое грузинское дерево..или ... японское?

-Это "пих": жен. рода "пихта", а муж. - "пих".

--
Regards, LVT.

> когда пишу write(a[5]) он мне показывает net

net - 5-ое слово, что удивительно

Нужно считать текстовой файл до определённых слов. delphi Найти похожие ветки