Hallo erstmal!
Bin neu hier im Forum bei Delphipraxis! Bin vor einiger Zeit gefragt worden, ob ich ein älteres Programm bei uns der Firma übernehmen könnte! Es ist leider in Delphi geschrieben, und da ich fast keine Delphi erfahrung habe, kommt es da natürlich des öfteren zu syntax problemen!
Lange Rede kurzer Sinn, ich habe probleme ein farb array (
rgb = 3x Bytes) zu füllen! Der Speicher wurde mit allocmem reserviert!
Delphi-Quellcode:
procedure TPCX.get_palette(i: integer);
var
ini: TiniFile;
test: string;
k: integer;
testcolor: TColor;
begin
if PXD_Descriptor.palette[i] <> NIL then begin
ini:=TIniFile.Create(mainform.configpath+'\Einstellungen.ini'); // .ini wird erstellt
ReglerRGB:= ini.Readstring('ReglerAuswahl','1','');
ReglerReso:= ini.Readstring('ReglerAuswahl','2','');
for k:=0 to 255 do begin
test:= ini.Readstring(ReglerRGB,inttostr(k),'');
testcolor:= stringtoColor(test);
PXD_Descriptor.Palette[i].rgbBlue:= colortorgb(testcolor);
PXD_Descriptor.Palette[i].rgbGreen:= colortorgb(testcolor);
PXD_Descriptor.Palette[i].rgbRed:= colortorgb(testcolor);
end;
end;
Ini.Free;
end;
Versuche eine Farbpalette in das Array zu schreiben, aber ich weiss nicht, wie ich die folgenden array punkte anspreche!
Da es ja kein pointer ist kann ich nicht mit inc(Pxd_Descriptor.Palette[i].rgbBlue); eine neue ebene schaffen!
Komme mir selber blöde vor, deshalb bitte nicht noch Salz in die Wunde streuen! Bitte!
Danke jedem schonmal für die Hilfe!
