paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-18 02:58:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* filename converted to lowercase

Browse Source
This commit is contained in:
michael 1998-03-26 10:45:36 +00:00
parent a33dfa3611
commit 36dfeb0b64
5 changed files with 0 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
tests/TS010005.PP
View File

@ -1,41 +0,0 @@
type
tclass1 = class
procedure a;virtual;
procedure b;virtual;
end;
tclass2 = class(tclass1)
procedure a;override;
procedure b;override;
procedure c;virtual;
end;
procedure tclass1.a;
begin
end;
procedure tclass1.b;
begin
end;
procedure tclass2.a;
begin
end;
procedure tclass2.b;
begin
end;
procedure tclass2.c;
begin
end;
begin
end.

11
tests/TS010006.PP
View File

@ -1,11 +0,0 @@
library test;
procedure exporttest;export;
begin
end;
exports exporttest;
begin
end.

43
tests/TS010007.PP
View File

@ -1,43 +0,0 @@
type
tobject2 = class
i : longint;
procedure y;
constructor create;
class procedure x;
class procedure v;virtual;
end;
procedure tobject2.y;
begin
end;
class procedure tobject2.v;
begin
end;
class procedure tobject2.x;
begin
v;
end;
constructor tobject2.create;
begin
end;
type
tclass2 = class of tobject2;
var
a : class of tobject2;
object2 : tobject2;
begin
a.x;
tobject2.x;
object2:=tobject2.create;
object2:=a.create;
end.

38
tests/TS010008.PP
View File

@ -1,38 +0,0 @@
type
tobject2 = class
constructor create;
function rname : string;
procedure wname(const s : string);
property name : string read rname write wname;
end;
tclass2 = class of tobject2;
var
o2 : tobject2;
c2 : tclass2;
constructor tobject2.create;
begin
inherited create;
end;
procedure tobject2.wname(const s : string);
begin
end;
function tobject2.rname : string;
begin
end;
begin
o2:=tobject2.create;
o2.name:='1234';
writeln(o2.name);
o2.destroy;
o2:=c2.create;
c2.destroy;
end.

13
tests/TS010009.PP
View File

@ -1,13 +0,0 @@
unit ts010009;
interface
type
tr = record
case a : (x,y,z) of
x : (l : longint);
end;
implementation
end.