Hi,
anbei die Methode mit entsprechenden Kommentaren.
den Text kannst Du selektieren und in ein Methoden-Objekt kopieren
is
inventarliste :table;
i,j :integer;
do
inventarliste.create;
tab01[0,tab01.ydim+1]:=@; -- trage Be-Objekt in die Zeilenindexspalte (0)
-- nun kann die Zeile ueber das aktuelle Be-Objekt(@) angesprochen werden
tab01["name",@]:=@.name; -- trage Be-Namen ein
tab01["entitytyp",@]:=@.entitytyp; -- trage entitytyp ein
lager.inhaltsliste(inventarliste); -- Inhalt des Lagers in inventarliste einlesen
inventarliste.zeigerX:=1; -- Spaltenzeiger auf 1 (initialisieren) für Suche
inventarliste.zeigerY:=1; -- Zeilenzeiger auf 1 (initialisieren) für Suche
if inventarliste.finden(`[1,1]..`[*,*],@) then -- suche Be-Objekt in inventarliste
i:=inventarliste.zeigerX; -- wenn BE gefunden zeigt ZeigerX auf entsprechende Spalte
j:=inventarliste.zeigerY; -- wenn BE gefunden zeigt ZeigerY auf entsprechende Zeile
tab01["X",@]:=i; --trage Spalte in Tabelle ein
tab01["Y",@]:=j; --trage Zeile in Tabelle ein
print sprint (inventarliste[i,j],"wurde auf platz[",i,",",j,"] gelagert");
else
print @,"nicht im Lager"; -- falls BE nicht gefunden wurde
end;
end;
Gruss
------------------
DER SIMULATOR
[Diese Nachricht wurde von Simulator am 01. Nov. 2005 editiert.]