рефераты конспекты курсовые дипломные лекции шпоры

Раздел Образование
/
Implementation

Реферат Курсовая Конспект

Выберите учебное заведение

Implementation

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:

Развернуть

Открыть в широком формате

– Конец работы –

Эта тема принадлежит разделу:

Дерево элементов TTreeView

Дерево элементов TTreeView...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Implementation

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Procedure TTreeViewForm.AddButtonClick(Sender: TObject); var
CaptionStr:String; NewNode:TTreeNode; begin CaptionStr:=''; if not InputQuery('Ввод имени', 'Введите заголовок элемента',CaptionStr) then exit;

CaptionStr:String; begin
CaptionStr:=''; if not InputQuery('Ввод имени', 'Введите заголовок элемента',CaptionStr) then exit;

Private
{ Private declarations } function AddFile(FileMask: string; FFileAttr:DWORD): Boolean; Объяви эту процедуру так же и потом нажми клавиши Ctrl+Shi

ListView1.Items.EndUpdate; // Прорисовываем все изменения сразу
С этим разобрались, можно ехать дальше. После вызова BeginUpdate я очищаю текущий список элементов с помощью вызова ListView1.Items.Clear. Далее идёт цикл поиска файлов, с ко

Implementation
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому

Begin //Если да, то прибавить имя выделенной директории к пути //и перечитать файлы из неё.
Edit1.Text:=Edit1.Text+ListView1.Selected.Caption+''; AddFile(Edit1.Text+'*.*',faAnyFile) end else //Если нет, то это файл и я его запускаю.

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 первой панели строки состояния.

R:TRect; begin if ToolBar1.HostDockSite<>ControlBar1 then
begin GetWindowRect(ToolBar1.Handle, R); Application.MessageBox(PChar(IntToStr(r.Left)+'--'+IntToStr(r.Top)), 'MM',IDOK); end; end; В первой стро