Подписаться на RSS рассылку
Главная » Статьи по 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.

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

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

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-2016 Программирование на Delphi для начинающих и не только

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта