Сохранение файла

← →
-=MaxDelphi=- (2007-04-14 19:50) [0]

Пожалуйста, подскажите, как сделать диалоговое окно сохранения файла, т.е где есть такие кнопки Да, Нет, Отмена.

← →
Eraser © (2007-04-14 19:54) [1]

MessageDlg + F1

FResult := MessageDlg(FText, FDlgType, FButtons, 0);

← →
-=MaxDelphi=- (2007-04-14 20:00) [2]

> Eraser

У меня здесь что-то типа того
If Form1.StatusBar1.Panels[2].Text="Текст был изменён" then begin begin If MessageDlg("Сохранить изменения в файле "+" "+ExtractFileName(fail)+"?", mtWarning, mbyesnoCancel, 0)=mrCancel then CanClose:=False; end; If MessageDlg("Сохранить изменения в файле "+" "+ExtractFileName(fail)+"?", mtWarning, mbyesnoCancel, 0)=mrYes then If fail="" then If SaveDialog1.Execute then SynEdit1.Lines.SaveToFile(SaveDialog1.FileName) else SynEdit1.lines.SaveToFile(fail);
Чё я здесь намудрил не знаю, может кто поможет??

← →
Eraser © (2007-04-14 20:05) [3]

> [2] -=MaxDelphi=- (14.04.07 20:00)

а в чем ошибка то? и что требуется от кода?

← →
-=MaxDelphi=- (2007-04-14 20:19) [4]

> Eraser

> а в чем ошибка то? и что требуется от кода?

От кода требуется правильной работы: если нажата кнопка "Да", то файл сохраняется, если "Нет", то файл не сохраняется, а если "Отмена", то происходит возврат в главную форму, короче как в "Блокноте".

← →
Eraser © (2007-04-14 20:51) [5]

i := MessageDlg("Сохранить изменения в файле "+" "+ExtractFileName(fail)+"?", mtWarning, mbyesnoCancel, 0); case i of mrYes: ; // Код сохранения mrNo: ; // Юзер отказался сохранять end;
ни и т.д.

← →
{RASkov} (2007-04-14 20:59) [6]

> [2] -=MaxDelphi=- (14.04.07 20:00)

Ты бы хоть в читабельный вид бы привел код... begin begin - нафик так делать?

case MessageDlg("Сохранить изменения в файле "+" "+ExtractFileName(fail)+"?", mtWarning, mbyesnoCancel, 0) of mrYes: if fail="" then if SaveDialog1.Execute then SynEdit1.Lines.SaveToFile(SaveDialog1.FileName) else CanClose:=False else SynEdit1.lines.SaveToFile(fail); mrCancel: CanClose:=False; end;

← →
{RASkov} (2007-04-14 21:01) [7]

Ну вот.... [5] не заметил... почти тоже самое. :)

← →
-=MaxDelphi=- (2007-04-15 11:55) [8]

> {RASkov}
</I
> Ты бы хоть в читабельный вид бы привел код... begin begin
> - нафик так делать?

Просто нас так учили на уроках информатики!!! Вот и привык :(

← →
Плохиш © (2007-04-15 12:07) [9]

> Просто нас так учили на уроках информатики!!! Вот и привык

Не правильно - 10 бегинов идущие подряд это круче.

← →
{RASkov} (2007-04-15 12:31) [10]

> Просто нас так учили на уроках информатики!!! Вот и привык

И наверное, это единственное, что заполнилось на уроках....Да? :)

← →
Gydvin © (2007-04-15 19:57) [11]

Или MessageBoxA

case MessageBoxA(handle,"Сохранить?","Диалог",3)
6: Сохраняем;
7: Отказываемся;
2: Отменяем;
end;

> Просто нас так учили на уроках информатики!!! Вот и привык

Не убедительно

← →
-=MaxDelphi=- (2007-04-16 21:11) [12]

> И наверное, это единственное, что заполнилось на уроках.
> ...Да? :)

Почему же!

← →
{RASkov} (2007-04-16 22:40) [13]

> [12] -=MaxDelphi=- (16.04.07 21:11)
> Почему же!

Извени, не хотел обидеть, даже смайл поставил... Просто кто учит, им самим бы еще учится....:)

← →
-=MaxDelphi=- (2007-04-17 12:05) [14]

> им самим бы еще учится....:)

ДА, да..

> {RASkov} (16.04.07 22:40) [13]

> -=MaxDelphi=- (17.04.07 12:05) [14]

Плохому танцору известно что мешает...

← →
{RASkov} (2007-04-17 12:59) [16]

> [15] Плохиш © (17.04.07 12:19)

Да сколько раз встречал "учителей" которые "учат", только для того, что бы получать зарплату. :( Но не все-же такие....
С другой стороны, тот кто хочет научится, тому собственно пофик какой учитель - он научится.....

а просто форму с кнопочкмми создать не судьба? компоненты в делфе такие есть

> а просто форму с кнопочкмми создать не судьба? компоненты
> в делфе такие есть

А зачем заморачиваться то??? Проще как мне здесь объяснили! :)

Сохранение файла Найти похожие ветки