paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added some float arrays

Browse Source
This commit is contained in:
florian 2004-11-21 09:32:54 +00:00
parent cfeaa8aa65
commit 115bd8ae28
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/test.pas
View File

@ -91,6 +91,9 @@ var Hello : word;
Obj1: TObj;
Obj2: TObj2;
CharArray : Array[1..2000] of char;
ExtendedArray : Array[1..2000] of extended;
ExtendedPackedArray : packed Array[1..2000] of extended;
SingleArrayArray : Array[1..10,1..10] of single;
constructor TObj.Init;
begin
@ -153,7 +156,7 @@ begin
Func1:=X;
end;
var i : longint;
var i,j : longint;
Length : longint;
BEGIN
@ -168,6 +171,15 @@ BEGIN
@L13:
end;
{$endif}
for i:=low(ExtendedArray) to high(ExtendedArray) do
ExtendedArray[i]:=i;
for i:=low(ExtendedPackedArray) to high(ExtendedPackedArray) do
ExtendedPackedArray[i]:=i;
for i:=1 to 10 do
for j:=1 to 10 do
SingleArrayArray[i,j]:=i*j;
ClassVar1:=TClass2.create;
Obj1.Init;
pointer2:=@Obj1;