Я хочу написать 10 функций в отдельном .pas файле, а потом вызывать их по мере необходимости. Делаю так:
unit Unit5;
interface
uses
System.SysUtils, System.Classes, myTypes;
type
RGetInfo = record
function GetGroups(ClientName: String): XGroups;
function GetLanguages(ClientName: String): XLanguages;
function GetSettings(ClientName: String): XSettings;
end;
implementation
...
end.
Вызываю так:
var
GetInfo: RGetInfo;
Groups: XGroups;
begin
Groups := GetInfo.GetGroups('Client1');
Может есть, более грамотный, способ? Например вместо record.
Ответ
Статические методы класса:
RGetInfo = class
public
class function GetGroups(ClientName: String): XGroups;
class function GetLanguages(ClientName: String): XLanguages;
class function GetSettings(ClientName: String): XSettings;
end;
var
Groups: XGroups;
begin
Groups := RGetInfo.GetGroups('Client1');
или просто отдельные функции:
interface
function GetGroups(ClientName: String): XGroups;
function GetLanguages(ClientName: String): XLanguages;
function GetSettings(ClientName: String): XSettings;
implementation
function GetGroups(ClientName: String): XGroups;
begin
result := ...
end;
var
Groups: XGroups;
begin
Groups := GetGroups('Client1');
Комментариев нет:
Отправить комментарий