mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:11:45 +02:00
25 lines
373 B
ObjectPascal
25 lines
373 B
ObjectPascal
{ %NORUN }
|
|
|
|
{ This tests that methods introduced by a helper can be found in
|
|
with-Statements as well - Case 4: class method in parent's helper }
|
|
program tchlp58;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TObjectHelper = class helper for TObject
|
|
class procedure Test;
|
|
end;
|
|
|
|
TTest = class
|
|
end;
|
|
|
|
class procedure TObjectHelper.Test;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
with TTest do
|
|
Test;
|
|
end.
|