function Find(fname:PChar):PChar; stdcall;
type region=record x,y,cx,cy,x2,y2,dx,dy,count,e:integer; aws:double; pts:array of byte; end;
pair=record a,b:integer; w:double; end;
var img:TImage; bitmap:TBitMap; rgb:longint; r,g,b:byte; loaded:boolean;
text:^string; dx,dy:integer; t,tb:integer;
bw,gs,nt,ms,fd,of1,of2,im,p,q,pth,pts:array of byte; w:array of longint;
xf,yf:array of longint;
ws,qws:array of double;
x,y,x0,y0,z,dz,n,m,i,j,k,ls,s1,s2:integer; td,td2,ay,mdf,ma,aws:double; f,rf:boolean;
minx,miny,maxx,maxy,rdx,rdy:integer; mx,my,xb,yb,xe,ye:integer;
nrg,nregions:integer; rg,regions:array[0..99] of region;
ids:array[0..99] of integer;
npairs:integer; pairs:array[0..9999] of pair;
xi,yi,xj,yj,xij,yij,s:double; tp:pair;
sxa,sxb,sya,syb:integer; vi,vj,gix,gix2,gjx,gjx2:integer;
trg:region;
function Find( fname :PChar ) :PChar ; stdcall ; // function with the result as pchar, prepared to work indied a dll
type
// types definitions
region = record // region is an record
x,y,cx,cy,x2,y2,dx,dy,count,e : integer ; // all the variables represents an integer = 123456...
aws : double ; // all the variables represents an double = 12.12
pts : array of byte ; // undefined array of bytes
end;
pair=record
a,b :integer;
w :double;
end;
var
// Variables
img : TImage; // holder for an image used on a form
bitmap : TBitMap; // graphic object
rgb : longint; // long integer
r,g,b : byte; // byte
loaded : boolean; // boolean value (true or false)
text : ^string; // pointer to an string
dx,dy : integer;
t,tb : integer;
bw,gs,nt,ms,fd,of1,of2,im,p,q,pth,pts : array of byte; // undefined array of bytes
w : array of longint;// undefined array of long integer
xf,yf : array of longint;
ws,qws : array of double; // undefined array of doubles
x,y,x0,y0,z,dz,n,m,i,j,k,ls,s1,s2 : integer;
td,td2,ay,mdf,ma,aws : double;
f,rf : boolean;
minx,miny,maxx,maxy,rdx,rdy : integer;
mx,my,xb,yb,xe,ye : integer;
nrg,nregions : integer;
rg,regions : array[0..99] of region; // assigned array of the record "region" with max 99 entries
ids : array[0..99] of integer; // assigned array of integer with max 99 entries
npairs : integer;
pairs : array[0..9999] of pair; // assigned array of the record "pair" with max 99 entries
xi,yi,xj,yj,xij,yij,s : double;
tp : pair; // one record "pair"
sxa,sxb,sya,syb : integer;
vi,vj,gix,gix2,gjx,gjx2 : integer;
trg : region; // one record "region"
If you are experiencing a similar issue, please ask a related question
Title | # Comments | Views | Activity |
---|---|---|---|
Path to current project in Delphi. | 2 | 80 | |
delphi exception | 7 | 64 | |
Magic Software info | 18 | 131 | |
SUM 2 INTEGER ARRAYS INTO 1 | 10 | 100 |
Join the community of 500,000 technology professionals and ask your questions.