Bedingte Anweisung in Schleife

[Luckie]

Ok, muss ich dazu an dem restlichen Code von dir in der Schleife etwas ändern? PHP ist noch nicht so meine Stärke.

Delphi-Quellcode:

var
  ProduktFields: array[0..6] of string = ('name', 'desc', 'key', 'foo', 'bar', 'lolli', 'pop');

procedure TForm5.Button1Click(Sender: TObject);
var
  i j: Integer;
  s: string;
begin
  for j := 0 to high(models) do
  begin
    Memo1.Lines.Clear;
    if models[j] = 'Produkt' then
    begin
      for i := 0 to high(ProduktFields) do
      begin
        //s := setDefaultvalue('name', 'Name');
        // ...;
        // ...;
        s := fields[i] + #9 + ': ' + 'Standardwert';
        Memo1.Lines.Add(s);
      end;
    end
    else if models[j] = 'Kategorie' then
    begin

    end;
  end;
end;

Ich glaube, ich hätte auch den Rest posten sollen. Obiger Code modelliert die Wirklichkeit etwas besser. Nur dass es keine äußere Schleife gibt, sondern das ist eine Vorlage, die für jedes Model aufgerufen wird. Das heißt die äußere Schleife in obigen Code liegt in einem Script. So, und in den Models Produkt, Kategorie[u und Wsehrung sollen jetzt bestimmte Felder Sonderwerte erhalten. Die Felder aller anderen Kategorien sollen auch die Standardwerte erhalten. Wobei jedes Model andere Felder hat.