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

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

Как открыть текстовый файл? [D4, WinME]

UDS ©   (2003-02-02 20:07:00) 

Как и в каком компоненте открыть текстовый файл?

---

Shadow   (2003-02-02 20:25:00) [1]

2mrcat
http://delphi.mastak.ru/nuts/nuts.html

---

Eugene1501   (2003-02-02 20:22:00) [2]

var
AFile:TStrings;
begin
AFile:=TStringList.Create;
AFile.LoadFromFile("ttt.txt");
...
AFile.Free;
end;

Это если текст не в мемо выводить.

---

UDS   (2003-02-02 20:19:00) [3]

Все! Нашёл простой способ


Memo1.Lines.LoadFromFile("vopros1.tst");

---

mrcat   (2003-02-02 20:16:00) [4]

хде ссылка на орешник?

---

UDS   (2003-02-02 20:14:00) [5]

А если текст состоит из нескольких строк?

---

Shadow   (2003-02-02 20:13:00) [6]

В орешник %)))))))))))))))))))))))))))

---

mrcat   (2003-02-02 20:10:00) [7]

F1

var

F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;

---

Наверх