Implementation - раздел Образование, Дерево элементов TTreeView Я Специально Объявил Их Там, Чтобы Показать Тебе, Как Можно Пользоваться Функ...
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому не принадлежит.
Вообще-то самостоятельные функции не обязательно где-либо объявлять. Ты можешь без проблем просто реализовать её и нигде не описывать. Но ты должен учитывать, что если ты где-то хочешь использовать эту функцию, то реализация обязательно должна быть раньше. Вот пример правильного использования самостоятельной процедуры/функции:
procedure Examp; begin end;
procedure Form1.Examp2; begin Examp; end;
В этом примере я создал самостоятельную процедуру Examp и метод объекта Form1
– Examp2. Из метода Examp2 я вызываю самостоятельную процедуру Examp. Этот код
правильный, потому что процедура сначала реализовывается, а потом уже используется. А теперь посмотри на неправильный код:
procedure Form1.Examp2; begin Examp; end;
procedure Examp; begin end;
В этом примере я пытаюсь вызвать процедуру, которая реализована после вызова и поэтому компилятор выдаст ошибку. Чтобы этого избежать, самостоятельные процедуры можно описывать в разделе var:
var procedure Examp;
procedure Form1.Examp2; begin Examp; end;
procedure Examp; begin end;
А теперь давай посмотрим, как же выглядит функция SlashSep:
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ:
Implementation
Что будем делать с полученным материалом:
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
CaptionStr:String; begin
CaptionStr:='';
if not InputQuery('Ввод имени',
'Введите заголовок элемента',CaptionStr) then exit;
Private
{ Private declarations }
function AddFile(FileMask: string; FFileAttr:DWORD): Boolean;
Объяви эту процедуру так же и потом нажми клавиши Ctrl+Shi
Implementation
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому
Private
{ Private declarations }
procedure ShowHint(Sender: TObject);
Имя процедуры может быть и другим (например MyShowHint) но параметр должен б
Procedure TForm1.ShowHint(Sender: TObject); begin
StatusBar1.SimpleText := Application.Hint; end;
Итак, наша процедура должна будет вызываться каждый раз, когда надо вывести подсказку. Внутри процедуры мы присваиваем в св
Procedure TForm1.ShowHint(Sender: TObject); begin
StatusBar1.Panels[1].Text := Application.Hint; end;
Здесь я присваиваю текст сообщения (Application.Hint) в свойство Text первой панели строки состояния.
Новости и инфо для студентов