[icsander]

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

Не, глюк в голове.
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;

Смотри пост ниже. OpenDialog присваивает значение Edit.Text, а запись в файл происходит в другом методе:

Код:

procedure SaveFile;
TMyRecord = record
MyFile: string[255];
...
end;
------------------
Edit1.text:=OpenDialog.FileName;
FR: TMyRecord;

AssignFile(FV,AFileName);
Rewrite(FV,1);
BlockWrite(FV,FILEHEADER, Length(FILEHEADER));
for I := 0 to FCount - 1 do
  begin
   FR.MyFile:=Edit1.Text;
   ...
   BlockWrite(FV, FR, SizeOf(FR));
  end;
CloseFile(FV);