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.