[eko]

Мне дали задание в технаре :

Вопрос 1

Form1


Memo1 Memo2
RadioButton1 RadioButton2


Edit1 OK Button1


Если справа от поля Memo1 установлена точка,запрограммировать кнопку ОК(Button1) таким образом, что бы текст,введенный в поле Memo1,сохранялся в файл name1.txt, в папку,находящуюся,например,в каталоге D:\Мои документы\Текст. Путь к файлу вводить в поле Edit1.


Я сделал:

Код:

Procedure TForm1.Button1Click(Sender:TObject);
var
way:String;
begin
way:=Edit1.Text;
If RadioButton1.Checked=True then
Memo1.Lines.SaveToFile (+way'name1.txt');
end;

Admin: Пользуемся тегами!

ПраВиЛьНо ли эТо????