FileName

[ScreN]

Здравствуйте..
Вот у меня есть код. Запрос на сохранения, при выходе из программы.
Вот он.

Procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
   Res: Integer;
Begin
     If sMemo1.Tag=0 Then
Begin
     CanClose:=True;
End
Else
Begin
     Res:=Application.MessageBox(PChar('Вы желаете сохранить изменения "'+FileName+'"'),'Вопрос',MB_YESNOCANCEL + MB_ICONQUESTION);
     If Res=IDYES Then // Если нажата кнопка "Да", то
Begin
     Form1.BringToFront; // Открывать окно запроса сохранения, и
     Form1.SaveAsFileClick(Sender); // Открыть окно сохранение документа
     If sMemo1.Tag=1 Then CanClose:=False; // После сохранения, закрыть окно
End;
    If Res=IDNO Then CanClose:=True; // Есне нажата кнопка "Нет", то закрыть окно программы
    If Res=IDCANCEL Then CanClose:=False; // Если нажата кнопка "Отмена", то вернуться в начальное окно программы
End;
End;

Так вот в Application.MessageBox у меня стоит FileName. То есть при запросе сохранения, должно выводится название файла, который сохраняешь..
Но, не выводится.

Подскажите что не так?

[Jeni]

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

..при запросе сохранения, должно выводится название файла, который сохраняешь.. Но, не выводится.

Проверил, всё выводится правильно. Может имя файла пустое?

[ScreN]

А может из-за того что на AlphaControls пишу?

[ScreN]

Вот у меня даже объявлена переменная

var
  Form1: TForm1;
  FileWork: String;
  FileName: String;

[goblinyara]

от того,на каких компонентах пишешь, эта переменная не зависит.

Проверяй на то,что FileName не пустая строка, потому что у меня тоже код без проблем работает.

[ScreN]

И как проверить...? Если я пишу вместо FileName FileWork то так выводится полностью путь файла...

[goblinyara]

Else
Begin
     //Вот сама проверка на то,что FileName не пуста:
     if FileName <> '' then
     begin
     Res:=Application.MessageBox(PChar('Вы желаете сохранить изменения "'+FileName+'"'),'Вопрос',MB_YESNOCANCEL + MB_ICONQUESTION);
     If Res=IDYES Then // Если нажата кнопка "Да", то
Begin
     Form1.BringToFront; // Открывать окно запроса сохранения, и
     Form1.SaveAsFileClick(Sender); // Открыть окно сохранение документа
     If sMemo1.Tag=1 Then CanClose:=False; // После сохранения, закрыть окно
End;
    If Res=IDNO Then CanClose:=True; // Есне нажата кнопка "Нет", то закрыть окно программы
    If Res=IDCANCEL Then CanClose:=False; // Если нажата кнопка "Отмена", то вернуться в начальное окно программы
End;
End;
else ShowMessage('FileName пуста!');
End;

это банально тебе выдаст, пустая или не пустая строка FileName

[ScreN]

Тему можно закрыть
Всем спасибо.
Сам разобрался!