paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 20:14:14 +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; Obj1: TObj;
Obj2: TObj2; Obj2: TObj2;
CharArray : Array[1..2000] of char; 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; constructor TObj.Init;
begin begin
@ -153,7 +156,7 @@ begin
Func1:=X; Func1:=X;
end; end;
var i : longint; var i,j : longint;
Length : longint; Length : longint;
BEGIN BEGIN
@ -168,6 +171,15 @@ BEGIN
@L13: @L13:
end; end;
{$endif} {$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; ClassVar1:=TClass2.create;
Obj1.Init; Obj1.Init;
pointer2:=@Obj1; pointer2:=@Obj1;