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

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

Автор: Aver

Tweet

В классе 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.

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

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

0   Спам
(20.05.2010)
3. Anonymous
Можно, только надо сконкатенировать два текста, ну или объеденить как-нить по-другому
WriteTextFile(Edit1.Text + #13#10 + Edit2.Text);
как-то так

0   Спам
(13.05.2010)
2. Андрей
А можна таким способом сохранить из 2 Edit в 1 файл ?

0   Спам
(14.04.2009)
1. Александр (DJ_Евс)
А можно вопрос?

procedure WriteTextFile(const Content, Path: string);

Почему именно CONST? Разве не "Content: string" ?

О_о

Ответ: Автору так захотелось, он объявил что Content и Path это константы типа String, ведь он и не изменяются.
Имя *:
Email:


Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.