AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bedingte Anweisung in Schleife

Ein Thema von Luckie · begonnen am 26. Feb 2010 · letzter Beitrag vom 1. Mär 2010
Antwort Antwort
Seite 2 von 2     12   
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#11

Re: Bedingte Anweisung in Schleife

  Alt 26. Feb 2010, 19:55
Moin Michael,

ich habe da meist eine andere Vorgehensweise (Beispiel):

Delphi-Quellcode:
type
  TcsFieldTypes = (ftName,ftDesc,ftKey);

const // Können auch aus einer Konfigurationsdatei stammen
  _asFieldNames : array[TcsFieldTypes] of string = ('Name','Desc','Key');

  _asDefaults : array[TcsFieldTypes] of string = ('DefaultName','DefaultDesc','DefaultKey');
Dadurch hat man dann direkt Zugriff auf Werte, ohne Funktionen bemühen zu müssen, und kann recht flexibel die Daten ändern, speziell, wenn sie aus einer Datei stammen.
Wahlweise kann man natürlich auch eine Funktion nehmen, um die Vorgabewerte auszulesen.
Wenn man verschiedene Datentypen braucht, geht es auch mit Variants.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#12

Re: Bedingte Anweisung in Schleife

  Alt 26. Feb 2010, 19:58
OK, da müsste ich aber den Code an drei Stellen ändern, wenn sich was ändert. Und das ist nicht schön. Und ich werde auch unterschiedliche Models haben mit gleichem Feld aber unterschiedlichen Vorgabewerten.

Aber wie gesagt, letzt endlich suche ich eine Lösung für PHP. Das Delphi Beispiel war nur zur Veranschaulichung.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#13

Re: Bedingte Anweisung in Schleife

  Alt 27. Feb 2010, 22:43
Hey Michael,

So sollte es genauso gehen, wie Du wolltest Ich musste allerdings noch ein paar Modifikationen im Gegensatz zu meiner Ursprungsfassung machen, dafür habe ich das ganze etwas weiter kommentiert

Code:
<?php

// "globaler" Standardwert, den zunächst grundsätzliche alle
// Felder erhalten sollen
$globalDefaultValue = 'Standardwert';

// Assoziatives Array
// Es enthält zunächste _alle_ "Produkt"-Felder
// Wo ein abweichender Standardwert existiert für ein Feld,
// wird dieser mit 'feld' => 'wert' angegeben, ansonsten 'feld' => null
$productFields = array(
  'name' => 'Name',
  'desc' => null,
  'key'  => 'Hubba',
  'foo'  => null,
  'bar'  => null,
  'lolli' => null,
  'pop'  => 'Bubba');
 
$categoryFields = array(
  'name'               => 'ajsdbv',
  'kuckuck'            => 'jsgad',
  'feldMitStandardWert' => null);  

// Zum Testen wird hier einfach "Produkt" als Modell festgelegt.
$model = "Produkt";

switch ($model){ 
   case 'Produkt':
      foreach($productFields as $fieldName => $customDefault){
         // Standardwert ist der "globale", falls der "abweichende" Standard-
         // wert im Felder-Array mit "null" angegeben wurde.
         $defaultValue = $customDefault != null ? $customDefault : $globalDefaultValue;
         echo "$fieldName: $defaultValue
";
      } 
      break;
   case 'Kategorie':
      foreach($categoryFields as $fieldName => $customDefault){   
         // Standardwert ist der "globale", falls der "abweichende" Standard-
         // wert im Felder-Array mit "null" angegeben wurde.
         $defaultValue = $customDefault != null ? $customDefault : $globalDefaultValue;
         echo "$fieldName: $defaultValue
";
      } 
      break;                                                
}
?>
Viele Grüße
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#14

Re: Bedingte Anweisung in Schleife

  Alt 27. Feb 2010, 22:45
Besten Dank. Am Montag werde ich sehen, ob es so klappt wie gewünscht.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#15

Re: Bedingte Anweisung in Schleife

  Alt 1. Mär 2010, 12:12
Hat wunderbar geklappt. Ich musste allerdings noch ein paar Modifikationen vornehmen:
Code:
$formExt = new formExtension($modelClass);
          switch($modelClass) {
         case 'Product':
             if (!$doneSetDefValues) {
            $doneSetDefValues = $formExt->setDefValues($productFields);
             }         
             break;
         case 'Salutation':
             if (!$doneSetDefValues) {
            $doneSetDefValues = $formExt->setDefValues($salutationFields);
             }
             break;
         default:
             echo "\t\techo \$extendedForm->input('{$modelClass}.{$field}');\n";
          }         
          break;
Code:
    public function setDefValues($fields) {
   $globalDefaultValue = '';
   foreach ($fields as $fieldName => $customDefault) {
       $defaultValue = $customDefault != null ? $customDefault : $globalDefaultValue;
       echo "\t\techo \$extendedForm->input('".$this->modelClass.".".$fieldName."', array('default' => '".$defaultValue."'));\n";
   }
   return true;
    }
Vielen Dank noch mal.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz