2 array´s lesen

[davtix]

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;