Hot News:
   

Mit Unterstützung durch:

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

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

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 (2144 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.]



Senior Account Manager ? Messebau & Eventplanung (m/w/d)

Über uns

PREUSS MESSE ist ein deutschlandweit und international agierendes Messebauunternehmen für individuellen Standbau mit Sitz vor den Toren Hamburgs und rund 50 Mitarbeitern. Wir sind sicher aus Erfahrung und innovativ aus Leidenschaft. Kann ja jeder sagen? Mag sein. Nur kann damit kaum jemand meinen, was wir meinen: Das über viele Generationen weitergereichte Feuer für große (Messe-)Auftritte....

Anzeige ansehenFeste Anstellung
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

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

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

(c)2026 CAD.de | Impressum | Datenschutz