Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
1-28847
Zirus
2003-02-03 05:21
2003.02.10
Колесо


1-28802
John
2003-02-02 10:44
2003.02.10
Работа с файлами...


3-28677
Behemoth
2003-01-24 14:28
2003.02.10
Удалить все дубликаты записей


1-28828
158963
2003-02-02 17:44
2003.02.10
I need help. please


1-28800
borg
2003-02-02 10:02
2003.02.10
Извините за глупый вопрос!