2 array´s lesen

[himitsu]

Die Funktion nennt sich "Speichern", aber sie tut auch Lesen?
Da kann was nicht stimmen.

Und warum sind alle Variablen global?

Sollte nicht selbst ein uraltes Delphi 5 mit Warnungen um sich werfen?
So von Wegen "Result ist nicht initialisiert".

Was sollte nochmal das setWEGpos sein? Die Art des Aufrufs klingt hier aber auch wieder nach einem GET.

Irgendwie klingt das Ganze nach zwei Funktionen.
- GetWegPos(N): Intgeger
- dann nochmal eine Prozedur ohne irgendeinen Parameter, so ala "fülle alles mit Zufallswerten"

[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;