Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Как открыть текстовый файл?   Найти похожие ветки 

← →
UDS   (2003-02-02 20:07) [0]

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

---

← →
mrcat ©   (2003-02-02 20:10) [1]

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;

---

← →
Shadow ©   (2003-02-02 20:13) [2]

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

---

← →
UDS   (2003-02-02 20:14) [3]

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

---

← →
mrcat ©   (2003-02-02 20:16) [4]

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

---

← →
UDS   (2003-02-02 20:19) [5]

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


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

---

← →
Eugene1501   (2003-02-02 20:22) [6]

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

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

---

← →
Shadow ©   (2003-02-02 20:25) [7]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c