Показать сообщение отдельно
  #1  
Старый 08.05.2009, 20:36
eko eko вне форума
Прохожий
 
Регистрация: 08.05.2009
Сообщения: 5
Репутация: 10
Вопрос Помогите плиз!!!

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

Вопрос 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: Пользуемся тегами!

ПраВиЛьНо ли эТо????
Ответить с цитированием