Hilft dir das weiter?
Delphi-Quellcode:
function SetRGB(
var RGB: TRGB_TYPE; colorString:
string): boolean;
var
c: TColor;
a:
array [1..3]
of byte
absolute c;
begin
c := StringToColor(colorString);
rgb.rgbRed := a[1];
rgb.rgbGreen := a[2];
rgb.rgbBlue := a[3];
end;
procedure TPCX.get_palette(ini: TIniFile; p: PRGB_TYPE; l: integer);
var
test:
string;
begin
ReglerRGB := ini.Readstring('
ReglerAuswahl', '
1', '
');
// global var?
ReglerReso := ini.Readstring('
ReglerAuswahl', '
2', '
');
// global var?
test := ini.Readstring(ReglerRGB, inttostr(l), '
');
SetRGB(p^, test);
end;
Du müsstest dir nur noch Gedanken über die Absicherung deines Codes machen. Was soll passieren, wenn unsinnige Werte in der Steuerdatei stehen?
Grüße vom marabu