Мне нужно сохранить какой-то введенный юзверем текст из Memo в файл. У меня есть две кнопки - "Сохранить" и "Сохранить как". Надо, чтобы при нажатии на "Сохранить" програ каким-нить способом узнала, было ли ранее выбрано имя файла (то есть было ли сохранение через "Сохранить как" или открытие через "Открыть"). Если сохранение через "Сохранить как..." или открытие через "Открыть" было, то надо просто сохранить с выбранным ранее именем файла (кто не понял, имя файла выбиралось ранее, через OpenDialog или SaveDialog). Если же ранее не было ни "Сохранить как", ни "Открыть", то надо вызвать стандартное диалоговое окно Windows и заставить юзверя работать с ним. Как решить поставленную задачу? Я попробовал вот так (это код события OnClick на кнопке "Сохранить"):

Код

if MessageBox(handle,'Переписать содержимое файла?','Подтверждение сохранения',MB_YESNO)=IDYES then  begin   if SaveFile=True then begin    Memo1.Lines.SaveToFile(SaveDialog1.FileName);     SaveFile:=False           end   else begin    SaveDialog1.Execute();    Memo1.Lines.SaveToFile(SaveDialog1.FileName);    SaveFile:=False   end;  end;

P.S. Переменная EnterFileName объявлена ранее под типом Boolean и со значением FALSE. Эта переменная принимает значение TRUE вот в этом коде:

Код

if OpenDialog1.Execute() then begin   Memo1.Lines.LoadFromFile(OpenDialog1.FileName);   StatusBar1.SimpleText:='Файл '+OpenDialog1.FileName+' успешно загружен в редактор.';   EnterFileName:=True; end;

И вот в этом:

Код

if SaveDialog1.Execute() then begin   Memo1.Lines.SaveToFile(SaveDialog1.FileName);   StatusBar1.SimpleText:='Содержимое редактора успешно сохранено в файл '+SaveDialog1.FileName;   EnterFileName:=True;  end;

Это сообщение отредактировал(а) sim7 - 5.9.2005, 18:05

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 01:23

как сказал Quadr0, по умолчанию давать имя файлу типа Noname.txt и папку создавать для сохранения типа 'C:\Papka\', тогда при нажатии на Сохранить, проверяем if SileExists('C:\Papka\NoName.txt')=true then if MessageDLG('файл с таким именем существует', mtInformation, [mbOK, mbCancel],0)=mrCancel then <процедура Сохранить КАК>