Delphi-Quellcode:
function BestDelphiKindSolution: TDelphiKind;
begin
Result := 'dkUnknown';
if a and b and c and d and not e and f or e or f and x or y and not z then
Result := dkDelphiXE3Prof
else
if a and not b or c and d and not n and not f or e or f and x or y and not z then
Result := dkDelphiXE3ProfAndMobilePack
...
end;
Habe jetzt keine Zeit, die Formel fertig zu stellen.
Daniel hat ja angekündigt, dass ein hochrangiger Delphi-Vertreter nach Leipzig kommt und man das Problem ansprechen sollte (ich kann aber kaum englisch).
Mit einem Wartungsvertrag weiß man halt nicht was man bekommt und für Hobby- und semiprofessionelle Programmierer wird der kaum erschwinglich sein.