paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:09:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* objfpc mode

Browse Source
This commit is contained in:
peter 1999-09-19 11:29:47 +00:00
parent cf2cbcfe6d
commit 58be91c1d7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/testaoc.pp
View File

@ -1,5 +1,7 @@
Program TestAOC; Program TestAOC;
{$mode objfpc}
{ Program to test array of const } { Program to test array of const }
{ All elements of the following record must be tested : { All elements of the following record must be tested :
@ -54,7 +56,7 @@ begin
vtObject : Writeln ('Object, name : ',Args[i].VObject.Classname); vtObject : Writeln ('Object, name : ',Args[i].VObject.Classname);
vtClass : Writeln ('Class reference, name : ',Args[i].VClass.Classname); vtClass : Writeln ('Class reference, name : ',Args[i].VClass.Classname);
vtAnsiString : Writeln ('AnsiString, value :',AnsiString(Args[I].VAnsiString)); vtAnsiString : Writeln ('AnsiString, value :',AnsiString(Args[I].VAnsiString));
{ {
vtWideChar : (VWideChar: WideChar); vtWideChar : (VWideChar: WideChar);
vtPWideChar : (VPWideChar: PWideChar); vtPWideChar : (VPWideChar: PWideChar);
@ -63,7 +65,7 @@ begin
vtInterface : (VInterface: Pointer); vtInterface : (VInterface: Pointer);
vtWideString : (VWideString: Pointer); vtWideString : (VWideString: Pointer);
vtInt64 : (VInt64: PInt64); vtInt64 : (VInt64: PInt64);
} }
else else
Writeln ('(Unknown) : ',args[i].vtype); Writeln ('(Unknown) : ',args[i].vtype);
end; end;
@ -76,7 +78,7 @@ Const P1 : Pchar = 'Eerste Pchar';
Var ObjA,ObjB : TObject; Var ObjA,ObjB : TObject;
ACLass,BClass : TClass; ACLass,BClass : TClass;
S,T : AnsiString; S,T : AnsiString;
begin begin
ObjA:=TObject.Create; ObjA:=TObject.Create;
ObjB:=TObject.Create; ObjB:=TObject.Create;