Forum: Programmieren allgemein
by davtix,
16. Jan 2014
upps , stimmt ja hab ich komplett übersehen
type Txwegslide = array of integer;
Tywegslide = array of integer;
var x:Txwegslide; y:Tywegslide; Si:integer;
procedure saveandreadWEGpos;
begin
// alle plätze belegen
for Si:= 1 to 20 do
Forum: Programmieren allgemein
by davtix,
16. Jan 2014
type Txwegslide = array of integer;
Tywegslide = array 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
Forum: Programmieren allgemein
by davtix,
16. Jan 2014
heut hab ich irgendwie n gedanken knicks...
könnt mir jemand helfen?? ich kann diese function nicht abrufen.. wo liegt mein fehler?
f:integer
f := saveWEGpos(0,1).xposR
type Txwegslide = array of integer;