VPF::Блокнот на основе TMemo. Прошу проверить код.

Dilettante

Дата 13.10.2012, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.3.2012

Репутация: нет
Всего: нет

Приветствую вас! Это не первый такой вопрос, но всё же я его решил задать. Создаю блокнот на основе компонента TMemo, необходимо реализовать корректную работу сохранения, открытия и создания нового файла. На основе примера из Архангельского, получил вот такой код обработки выбора соответствующих пунктов меню:

Код


void __fastcall TForm1::FileNewClick(TObject *Sender)
{
    Memo->Clear();
    path = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
    if(path != "")
        Memo->Lines->SaveToFile(path);
    else
        FileSaveasClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileOpenClick(TObject *Sender)
{
    OpenDlg->FileName = path;
    if(OpenDlg->Execute())
    {
        path = OpenDlg->FileName;
        Memo->Lines->LoadFromFile(OpenDlg->FileName);
        Memo->Modified = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileSaveasClick(TObject *Sender)
{
    SaveDlg->FileName = path;
    if(SaveDlg->Execute())
    {
        path = SaveDlg->FileName;
        Memo->Lines->SaveToFile(SaveDlg->FileName);
        Memo->Modified = false;
    }
}

Переменная path - определена в header-е формы как закрытая AnsiString.

Подскажите, всё ли тут будет работать корректно? То есть нет ли тут какой комбинации выбора пунктов, при которой что-то пойдёт не так? В очередной раз переделываю эту часть кода блокнота, и всё время что-то упускаю. Эта вроде работает, но не уверен.

Это сообщение отредактировал(а) Dilettante - 13.10.2012, 19:15

Данкинг

Дата 13.10.2012, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Я лично никаких косяков не вижу. Но обычно у юзеров лучше получается находить косяки в работающей программе, чем у программистов. smile

--------------------

There's nothing left but silent epitaphs.

Dilettante

Дата 14.10.2012, 15:35 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.3.2012

Репутация: нет
Всего: нет

2Данкинг

Спасибо за ответ! Надеюсь в этот раз всё заработает.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »