[lmikle]

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

Глюк в OpenDialog.

Не, глюк в голове.
OpenDialog НЕ ПИШЕТ САМ НИЧЕГО. Он только позволяет выбрать имя файла. Да и OPEN предназначен для открытия файла, а для сохранения обычно используется SAVE (собственно, они одинаковые, но имеют ряд отличающихся настроек по умолчанию).

Код:

var
  dlg : TSaveDialog;
  F : File Of Integer;
begin
  dlg := TSaveDialog.Create(Self);
  If dlg.Execute Then
     Begin
        AssignFile(F,dlg.FileName);
        Rewrite(F);
        Write(F,1);
        CloseFile(F);
     End;
  dlg.Free;
end;