mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-11 11:38:25 +02:00
* filename converted to lowercase
This commit is contained in:
parent
a33dfa3611
commit
36dfeb0b64
@ -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.
|
|
@ -1,11 +0,0 @@
|
|||||||
library test;
|
|
||||||
|
|
||||||
procedure exporttest;export;
|
|
||||||
|
|
||||||
begin
|
|
||||||
end;
|
|
||||||
|
|
||||||
exports exporttest;
|
|
||||||
|
|
||||||
begin
|
|
||||||
end.
|
|
@ -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.
|
|
@ -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.
|
|
@ -1,13 +0,0 @@
|
|||||||
unit ts010009;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
type
|
|
||||||
tr = record
|
|
||||||
case a : (x,y,z) of
|
|
||||||
x : (l : longint);
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
end.
|
|
Loading…
Reference in New Issue
Block a user