Отладка программы в Delphi



         

Листинг 15 7 Вывод справочной информации



Листинг 15.7. Вывод справочной информации


// выбор из меню ? команды Справка

procedure TForm1.N3Click(Sender: TObject);

HelpFile : string; // файл справки

HelpTopic : string; // раздел справки

pwHelpFile : PWideChar;

// файл справки (указатель на строку WideChar)

pwHelpTopic : PWideChar;

// раздел (указатель на строку WideChar)

begin

HelpFile := 'saper.chm';

HelpTopic := 'saper_02.htm';

// выделить память для

WideChar-строк GetMem(pwHelpFile, Length(HelpFile) * 2);

GetMem(pwHelpTopic, Length(HelpTopic)*2);

// преобразовать ANSI-строку в WideString-строку

pwHelpFile := StringToWideChar(HelpFile,

pwHelpFile, MAX_PATH*2);

pwHelpTopic := StringToWideChar(HelpTopic,

pwHelpTopic,32);

// вывести справочную информацию

Form1.Hhopen1.OpenHelp(pwHelpFile,

pwHelpTopic);

end;







Содержание  Назад  Вперед