---

Hallo Forum!

Ich würde gerne in einer Initialisierungsroutine direkt auf die Seed-Tabelle zugreifen lesen UND schreiben.

Hintergrund:

Die meisten (eben nur die meisten) Seedwerte weise ich direkt über eine Tabelle zu (um zu vermeiden, dass ein Zahlenstrahl mehrfach herangezogen wird).
Leider gibt es in den grösseren Modellen auch noch den Fall, dass z.B. in unterschiedlichen Bausteinen "statisch" Seed-Werte vergeben sind. Diese sind dann jedoch auch in der Seed-Wert-Tabelle dokumentiert. Aus diesem Grund möchte ich nun vor der "dynamischen" Vergabe der Seedwerte prüfen ob der Wert, der gerade vergeben wird auch noch frei ist...
Wenn keine Anmerkung in der Seed-Tabelle dann vergebe den Wert und schreibe eine Bemerkung in die Tabelle zurück!

Kann mir da jemand weiterhelfen?

DANKE
Thorsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

hier ein Lösungsvorschlag.

is
stab :table;
swert : integer;
do
swert:=36;  -- Testwert z.B. 36
stab:=getseedtable; --seedtable einlesen
stab.zeigerY:=1;stab.zeigerX:=1;-- Zeiger für Suche auf 1 setzen;

if stab.finden(`[1,1]..`[1,*],swert) then -- 1. seedpaarwert suchen in 1 Spalte
print "wert ",swert," schon vorhanden in Zeile ",stab.zeigerY;
else
stab[1,stab.ydim+1]:=swert; -- neuen seedwert ans Ende anhaengen
stab[2,stab.ydim]:=1;    -- 2.seedpaarwert =1
setseedtable(stab);  -- seedtabelle zurückschreiben
end;
end;

Gruss

------------------
DER SIMULATOR 

---

DANKE!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP