mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:27:59 +02:00
23 lines
349 B
ObjectPascal
23 lines
349 B
ObjectPascal
{$MODE OBJFPC} { -*- delphi -*- }
|
|
{$CODEPAGE UTF8}
|
|
{$MODESWITCH ADVANCEDRECORDS+}
|
|
unit uw27522c;
|
|
|
|
interface
|
|
|
|
type
|
|
TTest3 = record
|
|
Value: Integer;
|
|
function TestMethod(): UTF8String;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses uw27522b, sysutils, uw27522a;
|
|
|
|
function TTest3.TestMethod(): UTF8String;
|
|
begin
|
|
Result := '' + IntToStr(Value);
|
|
end;
|
|
|
|
end. |