| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вывод результатов [D7, XP]

MQIndrik ©   (2009-05-20 22:54:00) 

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

---

Anatoly Podgoretsky   (2009-05-22 20:35:00) [1]

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

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

---

MqIndrik   (2009-05-22 20:12:00) [2]

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

---

Юрий Зотов   (2009-05-21 07:23:00) [3]

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

:o)

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

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

---

brother   (2009-05-21 07:14:00) [4]

> [6] Юрий Зотов ©   (21.05.09 07:12)

ну Юрий)

---

brother   (2009-05-21 07:13:00) [5]

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;

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

---

Юрий Зотов   (2009-05-21 07:12:00) [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, например, картинку и сильно удивлялись, почему это не получается).

---

MqIndrik   (2009-05-21 06:54:00) [7]

Я использовал код:
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 00:46:00) [8]

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

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

---

Anatoly Podgoretsky   (2009-05-20 23:22:00) [9]

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

---

Игорь Шевченко   (2009-05-20 23:13:00) [10]

Memo.Lines.LoadFromFile ?

---

turbouser   (2009-05-20 23:12:00) [11]

readln + f1

---

Наверх