Delphide Sayıyı Dworde Çevirme

[akissoftware]

Arkadaşlar hepinizden yardım bekliyorum.

Mesela delphide 5000 sayısını Dword değeri olan 20480 değerine çevirmek veya tam tersini yapmak istiyorum. Bütün araştırmalarıma rağmen bulamadım. Yardımcı olacaklara şimdiden Allah razı olsun diyorum.

[sabanakman]

Kod: Tümünü seç

Label1.Caption:=IntToStr(StringToColor('$5000'));

[akissoftware]

Üstadım ellerin dert görmesin çok süper. Mükemmel ötesi bir cevap. Lakin bunun tam tersinide yapmam gerekli. Onuda söylersen sana çok çok dua edeceğim.

[thelvaci]

IntToHex

[akissoftware]

Tekrar tekrar teşekkürler üstadım.


Ben şu şekilde yaptım ;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=IntToStr(StringToColor(Edit1.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
hex15: string;
begin
i:=strtoint(Edit2.Text);
hex15 := IntToHex(i,0);
Label2.Caption:=hex15;
end;

Eğer daha sağlam çalışma yöntemi varsa paylaşırsanız sevinirim. Teşekkürler !