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

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

Вставка текста в TMemo из файла [D7, XP]

Nosferattu ©   (2006-08-07 22:40:00) 

Здравствуйте! Подскажите пожалуйста, как можно в компонент TMemo или Label или в любой другой(не знаю какой подходит для этой цели) путём нажатия кнопки загрузить текст из внешнего текстового файла. Заранее огромное спасибо!

---

Gydvin   (2006-08-08 11:03:00) [1]

> > Имя не скажу   (07.08.06 23:05) [2]

Долго же он будет открываться :)) если файл большой

---

Ega23   (2006-08-08 09:35:00) [2]

> Имя не скажу   (07.08.06 23:05) [2]


Нефигово было бы Memo сначала очистить...

---

Loginov Dmitry   (2006-08-08 07:41:00) [3]

> Имя не скажу   (07.08.06 23:05) [2]


А файл должен Пушкин закрывать?

---

Имя не скажу   (2006-08-07 23:06:00) [4]

> Мефисто   (07.08.06 23:00) [1]
> TMemo.Lines.LoadFromFile('MyFile.txt');

не бейте меня, пожалуйста!!!! ))

---

Имя не скажу   (2006-08-07 23:05:00) [5]

Ну так и загружай.
Если текстовый, тогда считываешь строку и например вот так

примерно вот так


procedure TForm1.Button1Click(Sender: TObject);
var  f:textfile;
s:string; //
begin
If opendialog1.Execute then begin
assignfile(f,Opendialog1.FileName);
reset(f);
while not eof(f) do begin
readln(f,s);
memo1.Lines.Add(s)
end;
end;
end;


Прошц не ругать - я не мастер))))

---

Мефисто   (2006-08-07 23:00:00) [6]

TMemo.Lines.LoadFromFile('MyFile.txt');

---

Наверх