Форум: "Начинающим";
Текущий архив: 2009.07.12;
Скачать: [xml.tar.bz2];
Вниз
Вывод результатов Найти похожие ветки
← →
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]> [6] Юрий Зотов © (21.05.09 07:12)
ну Юрий)
← →
Юрий Зотов © (2009-05-21 07:23) [9]> brother © (21.05.09 07:14) [8]
:o)
PS
Clear и try-finally все же не помешали бы. Кто его знает, что там в Memo1 уже есть и что там на Memo1.OnChange повешено (может и исключение возникнуть, тогда файл останется открытым).
PPS
Кстати, и Begin/EndUpdate тоже не помешало бы. Я о нем тоже забыл.
← →
MqIndrik © (2009-05-22 20:12) [10]спасибо всем!
← →
Anatoly Podgoretsky © (2009-05-22 20:35) [11]> brother (21.05.2009 7:13:07) [7]
Быстрее надо на кнопки нажимать :-)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.07.12;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.006 c
