Integer in Farbwerte zerlegen und dann jeweils auslesen

[Helmi]

Zitat von EMS:

versteckte zahl soll das ja sein was ich vorher bei dem Button 2 in dieses erste bit reingeschrieben habe.

Das geht so nicht - schliesslich ist "versteckte_Zahl" für jeden Button als lokale Variable definiert

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
    Bildbreite,Bildhoehe,Zeile,Spalte,X,Y,farbe,r,g,b,v,Versteckte_Zahl,f:integer;  //<== hier
begin
 {...}
       Versteckte_Zahl:=80;
 {...}end;

procedure TForm1.Button3Click(Sender: TObject);
var
 s,r,g,b,v,versteckte_Zahl:integer; //<== hier
begin
 {...}
 v:=versteckte_Zahl + s and $FF000000; //Zahl die verschlüsselt werden soll
 {...}end;