[killerkill]

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". Вот такая фигня... не пойму....

[4kusNick]

не
AssignFile(FileMap,SaveDialog1.Name);
а
AssignFile(FileMap,SaveDialog1.FileName);

Ты сохраняешь файл под именем компонента

[killerkill]

С П А С И Б О ты мне очень помог!

[killerkill]

Как я лоханулся....