ok ich hab das dann jetzt raus genommen aus dem Button 3
so müsste ich doch jetzt in v diesen Zahlenwert drinne stehen haben?
Aber es klappt immer noch nicht
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
s,r,g,b,v;
begin
ASSIGNFILE(DATEI,'versteckt.dat');
Reset(datei);
Read(datei,s); //Farb Wert als integer
showmessage(inttostr(s));
//image3.Canvas.brush.Color:=s;
r:=s and $0000FF; //Rotwert als integer
g:=(s and $00FF00) shr 8; //Grünwert als integer
b:=(s and $FF0000)shr 16; //Blauwert als integer
v:=$FF000000 shr 32; //Zahl die verschlüsselt werden soll
showmessage(inttostr(r)); //Anzeigen der einzelnen Werte
showmessage(inttostr(g));
showmessage(inttostr(b));
showmessage(inttostr(v));
//image3.canvas.fillrect(rect(0,0,90,90));
Closefile(datei);
end;