delphimvcframework/samples/activerecord_restful_crud/OtherControllerU.pas
2024-04-24 17:03:05 +02:00

34 lines
602 B
ObjectPascal

unit OtherControllerU;
interface
uses
MVCFramework, MVCFramework.Commons;
type
TOtherController = class(TMVCController)
public
[MVCPath]
[MVCHTTPMethods([httpGET])]
function GetSomethings: String;
[MVCPath('/else')]
[MVCHTTPMethods([httpGET])]
function GetSomethingElse: String;
end;
implementation
{ TCustomController }
function TOtherController.GetSomethingElse: String;
begin
Result := 'Hello There, it''s "GetSomethingElse" here';
end;
function TOtherController.GetSomethings: String;
begin
Result := 'Hello There, it''s "GetSomethings" here';
end;
end.