Сохранить файл TFileStream

[s500]

Доброго времени суток!
Помогите, пожалуйста, решить такую задачку:
нужно создать файл, записать в него данные из другого файла и сохранить его.

У меня что-то идёт не так.
Вот вырезка кода:

var
  DestEncoding: TEncoding;
  LFileStream: TFileStream;
begin
  SaveDialog1.Filter:='Текстовый файлы|*.txt';
  if SaveDialog1.Execute then
  LBuffer := LEncoding.Convert(LEncoding, DestEncoding, LBuffer,LOffset,Length(LBuffer) - LOffset);//данные, полученные из другого файла
  LFileStream := TFileStream.Create(SaveDialog1.Name, fmOpenWrite);//вот тут происходит ли создание файла???????
  LByteOrderMark := DestEncoding.GetPreamble;//данные, которые тоже нужно записать
  LFileStream.WriteBuffer(LByteOrderMark, Length(LByteOrderMark));
  LFileStream.WriteBuffer(LBuffer, Length(LBuffer));
  LFileStream.Free;

[Slym]

fmCreate
fmOpenWrite - перезапишет имеющийся, но огрызок старого может остаться в конце

[s500]

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

fmCreate
fmOpenWrite - перезапишет имеющийся, но огрызок старого может остаться в конце

fmCreate просто создаст файл. а как мне получить доступ к записи?

[3D Hunter]

А ты записывать пробывал то? Флаг fmCreate создает файл, если такого нет, перезаписывает заново, если такой был, и открывает его для чтения и записи. Так что после fmCreate смело вызывай WriteBuffer/ReadBuffer.

Флаг fmOpenWrite открывает файл для записи при условии, что тот существовал на момент открытия. Иначе AV.

[s500]

Сообщение от 3D Hunter

А ты записывать пробывал то? Флаг fmCreate создает файл, если такого нет, перезаписывает заново, если такой был, и открывает его для чтения и записи. Так что после fmCreate смело вызывай WriteBuffer/ReadBuffer.

Флаг fmOpenWrite открывает файл для записи при условии, что тот существовал на момент открытия. Иначе AV.

сейчас проверил с fmCreate, что-то файл вообще не создаётся...
Понять не могу почему.

[evg_m]

LFileStream := TFileStream.Create(SaveDialog1.Name,
вероятно он создается , но не там где вы его ожидаете увидеть. а совсем в другом каталоге.
Используйте SaveDialog1.FileName

[Аватар]

Ну и после if SaveDialog1.Execute then не мешало бы begin и в самом конце end поставить, иначе не видать удачи, если в диалоге отказались от указания файла

[s500]

Slym, 3D Hunter, evg_m, Аватар огромное вам спасибо!