Delphi-Quellcode:
type Txwegslide = array [1..20] of integer;
Tywegslide = array [1..20] of integer;
var x:Txwegslide; y:Tywegslide; Si:integer;
function saveWEGpos (RW,N,XY :integer) : integer; // 1=schreiben 0=lesen
begin
if 1 = RW then
begin // alle plätze belegen
for Si:= 1 to 20 do
begin
x[Si]:= setWEGpos.xWEG; y[Si]:=setWEGpos.yWEG;
end;
end;
if 0 = RW then begin
if XY = 4 then result := x[N];
if XY = 5 then result := y[N];
end;
end;
danke , habs so gelöst... ist das besser?
also es soll erst an einer bestimmten stelle beschrieben werden und an einer anderen einzeln gelesen werden
setWEGpos = zufallszahl zwischen 0 und screen width/ top
und RW hab ich nur genommen um nicht zwei funtionen aufzurufen
Zitat:
Eine Funktion, die abhängig von ihren Parametern völlig unterschiedliche Dinge tut ist absolut nicht empfehlenswert.
warum nicht??