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

#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.
    

Ответы

Ответ 1

Статические методы класса:

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');