Вывод результатов

← →
MQIndrik © (2009-05-20 22:54) [0]

У меня вопрос. Есть файл, как сделать, чтобы информация из него выводилась на экран в memo/label? Знаю что команда проста, но не знаю горю помогите пожайлуста! Информации может быть много даже целый документ, тип тхт. Заранее благодарен!

← →
turbouser © (2009-05-20 23:12) [1]

readln + f1

← →
Игорь Шевченко © (2009-05-20 23:13) [2]

Memo.Lines.LoadFromFile ?

← →
Anatoly Podgoretsky © (2009-05-20 23:22) [3]

Вот проблема только с TLabel - информации много, места мало.

← →
Германн © (2009-05-21 00:46) [4]

> Anatoly Podgoretsky © (20.05.09 23:22) [3]
>
> Вот проблема только с TLabel - информации много, места мало.
>
>

Не. Главная проблема в первой закладке палитры!
Хотя сейчас закладок уже нет, но это не меняет сути. :)

← →
MqIndrik © (2009-05-21 06:54) [5]

Я использовал код:
var f:TextFile; s:String; begin AssignFile(f,"file.txt"); Reset(f); Read(f,s); Memo1.Lines.Add(s); CloseFile(f); end;
Но он не выводит...

← →
Юрий Зотов © (2009-05-21 07:12) [6]

> MqIndrik © (21.05.09 06:54) [5]

Он должен выводить, но только одну строку. Чтобы вывести все строки, нужен цикл.
var f: TextFile; s: String; begin AssignFile(f, "file.txt"); Reset(f); try Memo1.Clear; whille not EoF(f) do begin ReadLn(f, s); Memo1.Lines.Add(s) end finally CloseFile(f) end end;
Но гораздо проще так:
Memo1.Lines.LoadFromFile("file.txt");

В любом варианте файл либо должен находиться в текущем каталоге, либо надо указывать путь к нему. И, конечно, файл действительно должен быть текстовым (тут находились умельцы, которые пытались загрузить в Memo, например, картинку и сильно удивлялись, почему это не получается).

← →
brother © (2009-05-21 07:13) [7]

1. Memo.Lines.LoadFromFile("file.txt");
2.
var f:TextFile; s:String; begin AssignFile(f,"file.txt"); Reset(f); while not Eof(f) do begin Readln(InputFile, Line); Memo1.Lines.Add(s); end; CloseFile(f); end;

зы и чего это я сегодня такой добрый? )))

← →
brother © (2009-05-21 07:14) [8]

> brother © (21.05.09 07:14) [8]

:o)

PS
Clear и try-finally все же не помешали бы. Кто его знает, что там в Memo1 уже есть и что там на Memo1.OnChange повешено (может и исключение возникнуть, тогда файл останется открытым).

PPS
Кстати, и Begin/EndUpdate тоже не помешало бы. Я о нем тоже забыл.

спасибо всем!

> brother (21.05.2009 7:13:07) [7]

Быстрее надо на кнопки нажимать :-)

Вывод результатов Найти похожие ветки