Советы по Delphi

         

Текущий модуль и проект


Компонент во время проектирования может знать имена текущих модулей и имя проекта. Все это можно получить с помощью ToolServices (см. файл TOOLINTF.PAS)

Имя текущего проекта можно получить с помощью вызова GetProjectName, список модулей/форм - с помощью функции GetUnitCount, которая возвратит количество модулей и затем с помощью GetUnitName(i) мы можем получить имя каждого модуля (также и с формами).

Вот примерный образец кода (получение и запись имен всех модулей/форм в StringGrid и имени проекта в Label):

procedure TInformationFrm.FormActivate(Sender: TObject);{ необходимо: StringGrid1 (2 колонки, масса строк), Label1, Label2 }var i,j: Integer;Tmp: String;beginStringGrid1.Cells[0,0] := 'модулей:';StringGrid1.Cells[1,0] := 'форм:';if ToolServices <> nil then with ToolServices dobeginLabel1.Caption := ExtractFileName(GetProjectName); { простое имя }Label2.Caption := GetProjectName; { полное правильное имя пути }for i:=0 to GetUnitCount dobeginTmp := ExtractFileName(GetUnitName(i));StringGrid1.Cells[0,i+1] := Tmp;Tmp := ChangeFileExt(Tmp,'.DFM');for j:=0 to GetFormCount doif ExtractFileName(GetFormName(j)) = Tmp thenStringGrid1.Cells[1,i+1] := Tmpendendend;

- Dr. Bob [000820]



Содержание раздела







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий