mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 02:48:07 +02:00
28 lines
418 B
ObjectPascal
28 lines
418 B
ObjectPascal
{ %NORUN }
|
|
|
|
{ This tests that methods introduced by a helper can be found in
|
|
with-Statements as well - Case 2: class method in current helper }
|
|
program trhlp43;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch advancedrecords}
|
|
|
|
type
|
|
TTest = record
|
|
end;
|
|
|
|
TTestHelper = record helper for TTest
|
|
class procedure Test; static;
|
|
end;
|
|
|
|
class procedure TTestHelper.Test;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
T: TTest;
|
|
begin
|
|
with T do
|
|
Test;
|
|
end.
|