paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-05 15:32:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added example for finding published method

Browse Source 
git-svn-id: trunk@29910 -
This commit is contained in:
mattias 2011-03-19 15:16:36 +00:00
parent ab044c572f
commit bb7f85c254
3 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -476,6 +476,8 @@ components/codetools/examples/scanexamples/modemacpas.pas svneol=native#text/pla
components/codetools/examples/scanexamples/nestedclasses.pas svneol=native#text/plain
components/codetools/examples/scanexamples/objctest1.pas svneol=native#text/plain
components/codetools/examples/scanexamples/overloadedfunction.pas svneol=native#text/plain
components/codetools/examples/scanexamples/publishedmethods1.pas svneol=native#text/plain
components/codetools/examples/scanexamples/publishedmethods2.pas svneol=native#text/plain
components/codetools/examples/scanexamples/publishedvars.pas svneol=native#text/plain
components/codetools/examples/scanexamples/recordsexample.pas svneol=native#text/plain
components/codetools/examples/scanexamples/resourcetest1.pas svneol=native#text/plain

33
components/codetools/examples/scanexamples/publishedmethods1.pas Normal file
View File

@ -0,0 +1,33 @@
unit publishedmethods1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, PublishedMethods2;
type
TMyMethodWithAnInteger = procedure (x:T) of object;
T = char;
TMyMethodWithAnChar = procedure (x:T) of object;
{ TMyClass }
{$M+}
TMyClass = class
published
procedure F(x: T);
end;
{$M-}
implementation
{ TMyClass }
procedure TMyClass.F(x: T);
begin
end;
end.

16
components/codetools/examples/scanexamples/publishedmethods2.pas Normal file
View File

@ -0,0 +1,16 @@
unit PublishedMethods2;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
T = integer;
implementation
end.