You've already forked lazarus-ccr
61 lines
1.1 KiB
ObjectPascal
61 lines
1.1 KiB
ObjectPascal
|
unit Globals;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils;
|
||
|
|
const TOL = 0.0005;
|
||
|
|
|
||
|
|
Type IntDyneVec = array of integer;
|
||
|
|
|
||
|
|
Type DblDyneVec = array of double;
|
||
|
|
|
||
|
|
Type BoolDyneVec = array of boolean;
|
||
|
|
|
||
|
|
Type DblDyneMat = array of array of double;
|
||
|
|
|
||
|
|
Type IntDyneMat = array of array of integer;
|
||
|
|
|
||
|
|
Type DblDyneCube = array of array of array of double;
|
||
|
|
|
||
|
|
Type IntDyneCube = array of array of array of integer;
|
||
|
|
|
||
|
|
Type DblDyneQuad = array of array of array of array of double;
|
||
|
|
|
||
|
|
Type IntDyneQuad = array of array of array of array of integer;
|
||
|
|
|
||
|
|
Type StrDyneVec = array of string;
|
||
|
|
|
||
|
|
Type StrDyneMat = array of array of string;
|
||
|
|
|
||
|
|
Type CharDyneVec = array of char;
|
||
|
|
|
||
|
|
type POINT3D = record
|
||
|
|
x, y, z : double;
|
||
|
|
end;
|
||
|
|
|
||
|
|
type POINTint = record
|
||
|
|
x, y : integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
NoCases : integer;
|
||
|
|
NoVariables : integer;
|
||
|
|
VarDefined : array[0..500] of boolean;
|
||
|
|
TempStream : TMemoryStream;
|
||
|
|
TempVarItm : TMemoryStream;
|
||
|
|
DictLoaded : boolean;
|
||
|
|
FilterOn : boolean;
|
||
|
|
FilterCol : integer;
|
||
|
|
OpenStatPath : string;
|
||
|
|
AItems : array[0..8] of string;
|
||
|
|
LoggedOn : boolean = false;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|
||
|
|
|