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

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

[lmikle]

По сути правильно. Вот тут поправь:
Memo1.Lines.SaveToFile (+way'name1.txt'); -> Memo1.Lines.SaveToFile (IncludeTrailingPathDelimiter(way)+'name1.txt');

[eko]

Сообщение от lmikle

По сути правильно. Вот тут поправь:
Memo1.Lines.SaveToFile (+way'name1.txt'); -> Memo1.Lines.SaveToFile (IncludeTrailingPathDelimiter(way)+'name1.txt');

А что мы делаем этой операцией(IncludeTrailingPathDelimiter)???

[Страдалецъ]

Да в общем-то ничего существенного, если в конце вашего пути нет слэша, то добавляет его.

[eko]

СПаСиБо вам БоЛьшоЕ)))