Открыть файл и сохранить в папке с программой

@poreeff · Регистрация: 28.06.2015

Author24 — интернет-сервис помощи студентам

Не могу понять что делаю не так...
Сохраняются пустые файлы, с 0 байт. Поправьте)

Delphi

procedure TextSetting.Button2Click(Sender: TObject);
var
  MyFile: TMemoryStream;
begin
 
  MyFile := TMemoryStream.create;
  with OpenDialog1 do
 
    if Execute then
      MyFile.SaveToFile('tmp\my.sql');
 
  MyFile.Clear;
 
FreeAndNil(MyFile);
end;

@Пытливый · 04.04.2016, 20:25

А каким святым духом что-то попадает в MyFile? И зачем тут вообще OpenDialog1?

@poreeff · 04.04.2016, 21:00 **[ТС]**

Сообщение от Пытливый

каким святым духом что-то попадает в MyFile

Действительно

Забыл про

FileName: File;
и
MyFile.LoadFromFile(FileName);

Вопрос закрыт

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,365
	04.04.2016, 20:25	2
	А каким святым духом что-то попадает в MyFile? И зачем тут вообще OpenDialog1? 1

@poreeff 3 / 3 / 3 Регистрация: 28.06.2015 Сообщений: 211
	04.04.2016, 21:00 [ТС]	3
	Сообщение от Пытливый каким святым духом что-то попадает в MyFile Действительно Забыл про FileName: File; и MyFile.LoadFromFile(FileName); Вопрос закрыт 0

Опции темы