upps , stimmt ja hab ich komplett übersehen
Delphi-Quellcode:
type Txwegslide = array [1..20] of integer;
Tywegslide = array [1..20] of integer;
var x:Txwegslide; y:Tywegslide; Si:integer;
procedure saveandreadWEGpos;
begin
// alle plätze belegen
for Si:= 1 to 20 do
begin
x[Si]:= setWEGpos.xWEG; y[Si]:=setWEGpos.yWEG;
end;
end;
und ...
Delphi-Quellcode:
type TMyrec2= record xWEG, yWEG: integer; end;
function setWEGpos:TMyrec2;
type Tfeldx = array [1..4] of integer;
Tfeldy = array [1..4] of integer;
var zzzW : integer; feldx:Tfeldx;feldy:Tfeldy;
begin
//oben X wert Y wert
feldx[1]:= ZufallszahlVB(0,screen.Width); feldy[1]:= -250;
//unten
feldx[2]:= ZufallszahlVB(0,screen.Width); feldy[2]:= screen.Height + 250;
//rechts
feldx[3]:= screen.Width + 300; feldy[3]:= ZufallszahlVB(0,screen.Height);
//links
feldx[4]:= - 300; feldy[4]:= ZufallszahlVB(0,screen.Height);
zzzW:= ZufallszahlsetWEGpos; // zufalls area erstellen von 1 - 4
result.xWEG:= feldx[zzzW];
result.yWEG:= feldy[zzzW];
end;