procedure TForm1.save_kak_MAP(Sender:TObject);
var
FileMap:Textfile;
begin //1
SaveDialog1.Filter:='Файл карты|*.map|';
if SaveDialog1.Execute
then begin
AssignFile(FileMap,SaveDialog1.Name);
ReWrite(FileMap);
WriteLn(FileMap, 'Hello');
CloseFile(FileMap);
end;
Этот код должен открывать диалоговое окно для выбора, куда сохранять файл (Файл текстового формата), после того как пользователь выберет директорию и задаст имя файла, файл должен сохранится и в него должно вписаться слово "Hello"!
НО ДЕЛАЕТСЯ ТАКАЯ СТРАНАЯ ВЕЩЬ!
в директории которую выбрал пользователь появляется не текстовой файл А ФАЙЛ ПОД НАЗВАНИЕМ "SaveDialog1" и если его открыть, как текст то в нём будет написано слово "Hello". Вот такая фигня... не пойму....
