heut hab ich irgendwie n gedanken knicks...
könnt mir jemand helfen?? ich kann diese function nicht abrufen.. wo liegt mein fehler?
Delphi-Quellcode:
f:integer
f := saveWEGpos(0,1).xposR
Delphi-Quellcode:
type Txwegslide = array [1..20] of integer;
Tywegslide = array [1..20] of integer;
type Tposxy= record xposR, yposR: integer; end;
var x:Txwegslide; y:Tywegslide; i:integer;
function saveWEGpos (RW,N :integer) : TposXY; // 1=schreiben 0=lesen
begin
if 1 = RW then
begin // alle plätze belegen
for i:= 1 to 20 do
begin
x[i]:= setWEGpos.xWEG; y[i]:=setWEGpos.yWEG;
end;
end;
if 0 = RW then begin
result.xposR:= x[N];
result.yposR:= y[N];
end;
end;