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