Страницы

Поиск по вопросам

вторник, 20 ноября 2018 г.

Как правильно создать функцию Delphi

Я хочу написать 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');

Комментариев нет:

Отправить комментарий