Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
Delphi XE2 Professional
|
AW: Ini-Einstellung umwandeln für Komponente
11. Mär 2012, 14:13
Delphi-Quellcode:
Function GetIndexOf(Const Find:String;a:Array of String;Highest:Integer;Default:Integer=0):Integer;
var
I: Integer;
begin
Result := Default;
for I := 0 to Highest do
if a[i] = Find then Result := i;
end;
ps := TPrintScale(GetIndexOf('None',c,Ord(poPrintToFit),Ord(poProportional)));
So mach ich es jetzt!
Warum willst Du denn nicht einfach Parity=paEven
in Deine Ini schreiben und auf die ganze "Übersetzung" verzichten.
So macht es ja die IDE auch in ihren Formular-Dateien.
Und wie soll ich von deim String "paEven" den ich aus der Ini lese auf den Index von TVaParity kommen, z. B.?
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
|