Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  TM - Plant Simulation
  Relatives Ansprechen von Object-Eigenschaften

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Relatives Ansprechen von Object-Eigenschaften (1896 mal gelesen)
T_Wunsch
Mitglied
Greenfield & Digital Factory


Sehen Sie sich das Profil von T_Wunsch an!   Senden Sie eine Private Message an T_Wunsch  Schreiben Sie einen Gästebucheintrag für T_Wunsch

Beiträge: 75
Registriert: 03.11.2005

Plant Simulation 10.1.1

erstellt am: 14. Nov. 2005 08:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Eigenschaften von Objekten relativ ansprechen?

z.B.:
tabelle := str_to_obj("Parametersatz_" + to_str(Parametersatz_aktuell));
for zeile := 1 to tabelle.yDim loop
objekt := tabelle[1,zeile];
for spalte := 2 to tabelle.xDim loop
if tabelle[spalte,zeile] /= VOID then

inspect tabelle[spalte,0]
when "Abstand" then
objekt.Abstand := tabelle[spalte,zeile];
when "Bearbeitungszeit" then
objekt.Bearbeitungszeit := tabelle[spalte,zeile];
when "Zykluszeit" then
objekt.Zykluszeit := tabelle[spalte,zeile];
when "Rüstzeit" then
objekt.Rüstzeit := tabelle[spalte,zeile];

else
print "PARAMETER-INIT: Fehler... Object: " + to_str(tabelle[1,zeile]) + " Eigenschaft: " + to_str(tabelle[spalte,0]);
end;

end;
next;
next;

Die inspect ist einfach unschön und macht den code unnötig lange...
VBA oder PHP Lösung sähe etwa so aus:

objekt(tabelle[spalte,0]) = tabelle[spalte,zeile]

tabelle[spalte,0] muss hierbei vom typ string sein  -    entspricht der syntax
objekt.eigenschaft ...

Gibt's hier einen Trick um sich unnötige Tipperei zu ersparen?
DANKE Forum!

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


Ex-Mitglied

erstellt am: 14. Nov. 2005 11:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi,

und wie wäre es so

object.Abstand:=tabelle["Abstand",zeile];
object.Bearbeitungszeit:=tabelle["Bearbeitungszeit",zeile];
object.Zykluszeit:=tabelle["Zykluszeit",zeile];
.
.
.

Gruss

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

T_Wunsch
Mitglied
Greenfield & Digital Factory


Sehen Sie sich das Profil von T_Wunsch an!   Senden Sie eine Private Message an T_Wunsch  Schreiben Sie einen Gästebucheintrag für T_Wunsch

Beiträge: 75
Registriert: 03.11.2005

Plant Simulation 10.1.1

erstellt am: 14. Nov. 2005 15:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

...entspricht NICHT der gesuchten Funktion!

_________________________________________________
anderes Beispiel:

eigenschaft := "BearbeitungsZeit";
ob := Einzelplatz_1;

--geht leider nicht...
ob(eigenschaft) := str_to_time("10:00:00.0000");

_________________________________________________

so ist's überschaubarer!

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


Ex-Mitglied

erstellt am: 14. Nov. 2005 20:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi

so gehts


(obj : object;attribut,wert :string)
is
str :string;
do
str:=sprint("is do ", obj,".",attribut,":=",wert,"; end;");
--- print str;
execute(str);
end;


Gruss

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

[Diese Nachricht wurde von Simulator am 14. Nov. 2005 editiert.]

T_Wunsch
Mitglied
Greenfield & Digital Factory


Sehen Sie sich das Profil von T_Wunsch an!   Senden Sie eine Private Message an T_Wunsch  Schreiben Sie einen Gästebucheintrag für T_Wunsch

Beiträge: 75
Registriert: 03.11.2005

Plant Simulation 10.1.1

erstellt am: 15. Nov. 2005 08:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

...GENAU!!!
*wieschuppenvondenaugenfällt*


DANKE

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz