Процедура "New"

[Кристинка89]

приветики!!!! написала процедуру создания нового файла текстового т.е. очистку RichEdit Вот код:

procedure TReaderForm.N2Click(Sender: TObject);
var ButtonCode:Integer;
begin
if RichEdit1.Modified=false then begin
     RichEdit1.Clear;
     ReaderForm.Caption:='Безымянный - Reader';
     Application.Title:='Безымянный - Reader';
     CurrentFile:='';
  end
  else begin
// ButtonCode:=Messagedlg('Сохранить изменения в файле',mtconfirmation,[mbyes,mbno,mbcancel],0);
ButtonCode:=Messagedlg('Сохранить изменения в файле  '+CurrentFile+'?',mtconfirmation,[mbyes,mbno,mbcancel],0);
        if ButtonCode=mrYes then begin
           n4.click;
           RichEdit1.Clear;
           ReaderForm.Caption:='Безымянный - Reader';
           Application.Title:='Безымянный - Reader';
           CurrentFile:='';
        end;
        if buttoncode=mrno then begin
           RichEdit1.Clear;
           ReaderForm.Caption:='Безымянный - Reader';
           Application.Title:='Безымянный - Reader';
           CurrentFile:='';
        end;
  end;
end;

Все работает хорошо, только вот когда запускаю программу и не открывая текстовых документов просто набираю текст и нажимаю кнопку "Новый" т.е. выполняется эта процедура, то появляется сообщение "СОХРАНИТЬ ИЗМЕНЕНИЯ В ?" Как мне сделать чтобы это условие нормально работало т.е. я назвала новый документ по умолчанию БЕЗ ИМЕНИ и хочу чтобы в сообщении перед знаком ? появлялось слово "БЕЗ ИМЕНИ" запустите у себя пожалуйста и помогите доработать процедуру

[fate]

запустите у себя пожалуйста

прикрепляй проект, запустим

[Кристинка89]

проект не могу((( извините

[Alex11223]

И как тогда вы предлагаете "запустить у себя"?

проект не могу

А почему? В проекте содержится мегасекретный код с 100500 NDA?)

Я, например, не телепат и не знаю что содержится в СurrentFile во время выполнения

ButtonCode:=Messagedlg('Сохранить изменения в файле  '+CurrentFile+'?',mtconfirmation,[mbyes,mbno,mbcancel],0);

и откуда оно вообще берется.

[Кристинка89]

CurrentFile это имя файла которое записывается в эту переменную при открытии документа.... тип у CurrentFile string

[Alex11223]

CurrentFile это имя файла которое записывается в эту переменную

И где это происходит? В этой процедуре с CurrentFile ничего не происходит, кроме обнуления (присваивания '');

[Кристинка89]

Вот процедура открытия файла

procedure TReaderForm.N4Click(Sender: TObject);
var NewFile : TMenuItem;
begin
RichEdit1.PlainText:=false;
RichEdit1.Modified:=false;
RichEdit1.SelAttributes.Style:= [];
OpenTextFile.InitialDir:=ExtractFileDir(currentfile);
If OpenTextFile.Execute then begin
RichEdit1.Lines.loadfromfile(OpenTextFile.FileName);
ReaderForm.Caption:=ExtractFileName(OpenTextFile.filename)+' - Reader';
Application.Title:=ReaderForm.Caption;
CurrentFile:=OpenTextFile.filename;
end;
end;

[Alex11223]

Ну, дебаггер в руки и вперед, смотрите что там происходит с CurrentFile и что и когда ему присваивается.

По-моему вы сообщения выводите перед выполнением этой процедуры.

[Кристинка89]

ну ладно попробую разобраться...спасибо

[Кристинка89]

пример....мне надо сделать все также как в этом примере т.е. создание нового документа...но когда вставляю в свою программу этот код не работает почему то хотя ошибок нет и запускается все