Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Текст и строки » Сохранить текст из TEdit

Сохранить текст из TEdit

Автор: Aver

В классе TStrings есть метод SaveToFile(), сохраняющий текст, находящийся в этих строках. У TRichEdit и TMemo есть свойство Lines типа TStrings, поэтому можно сохранять текст, вызывая этот метод:

CustomMemo.Lines.SaveToFile('c:\123.txt');

или

CustomRichEdit.SaveToFiles('c:\TestFile.txt');

где CustomMemo и CustomRichEdit - объекты классов TMemo или TRichEdit.

А как же сохранить текст из TEdit? Очень просто.

Пишем процедуру

procedure WriteTextFile(const Content, Path: string);
var F: TextFile; 
begin 
 AssignFile(F, Path);
 Rewrite(F);
 Writeln(F, Content);
 CloseFile(F);
end;

Первый параметр - текст, который нужно сохранить, второй - имя сохраняемого файла.

Пример использования:

На форме размещаем один TEdit и кнопку TButton. В обработчик OnClick кнопки пишем вызов нашей процедуры сохранения:

procedure TForm1.Button1Click(Sender: TObject);
begin
 WriteTextFile(Edit1.Text, 'c:\TestFile.txt');
end;

Текст из TEdit сохранится в файле C:\TestFile.txt.

Отличный каталог - alldigital видеокамера kodak playsport, советуем просмотреть

alldigital.ru
Бижутерия

Адреса магазинов в Москве. Бижутерия и аксессуары оптом.

iloveme.su

Просмотров: 2644

Обсудить на форуме