paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:19:30 +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;
{$mode objfpc}
{ Program to test array of const }
{ All elements of the following record must be tested :
@ -54,7 +56,7 @@ begin
vtObject : Writeln ('Object, name : ',Args[i].VObject.Classname);
vtClass : Writeln ('Class reference, name : ',Args[i].VClass.Classname);
vtAnsiString : Writeln ('AnsiString, value :',AnsiString(Args[I].VAnsiString));
{
vtWideChar : (VWideChar: WideChar);
vtPWideChar : (VPWideChar: PWideChar);
@ -63,7 +65,7 @@ begin
vtInterface : (VInterface: Pointer);
vtWideString : (VWideString: Pointer);
vtInt64 : (VInt64: PInt64);
}
}
else
Writeln ('(Unknown) : ',args[i].vtype);
end;
@ -76,7 +78,7 @@ Const P1 : Pchar = 'Eerste Pchar';
Var ObjA,ObjB : TObject;
ACLass,BClass : TClass;
S,T : AnsiString;
begin
ObjA:=TObject.Create;
ObjB:=TObject.Create;