Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Örnek Delphi x64 Inline Assemblier Fonksiyonları
#11
Random fonksiyonu:

{
  Simple random function
  Author: Hakan DİMDİK
  Created: 01/01/2021
  Usage:
  ShowMessage(inttostr(rnd(100)));
  Generates a random number between 0-99
}

function rnd(max:cardinal):Cardinal;
asm
    mov r10d, ecx  //max sayısını r10d'ye alıuyoruz.
    call System.Classes.TThread.GetTickCount //tick sayısını alıyoruz
    mov rcx, rax //rcx'e tick sayısını atıyoruz
    bswap eax  //eax'in bytelarını yer değiştiriyoruz
    mov al, cl   //ilk byte'ı en sona alıyoruz
    xor edx, edx  //bölmede bölünen'i yüsek kısmını sıfırlıyoruz
    div r10d     //max ile tickcount'u bölüyoruz
    mov eax, edx  //bölmeden kalanı result'a atıyoruz
end;
Cevapla
#12
Bunun mobil cihazlar için geçerli olma olasılığı var mı?

Bahsegel
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi de ADOConnection kullanarak SQL Server' a Bağlanma Procedure nuheroglu 4 763 19-05-2021, Saat: 16:44
Son Yorum: midorun87
  utf8<-->unicode dönüşüm fonksiyonları. PROGRAMADOR35 0 416 02-01-2021, Saat: 07:00
Son Yorum: PROGRAMADOR35
Thumbs Up [Delphi] Yeni Başlayanlar İçin Güzel Kaynak Halil Han BADEM 3 3.869 27-12-2020, Saat: 23:28
Son Yorum: Hayati
  Özetleme Fonksiyonları (Hash Function) narkotik 0 1.122 06-01-2019, Saat: 21:18
Son Yorum: narkotik
  Delphi Çift Yönlü Bağlı Liste Ekleme,Silme,Listeleme,Arama narkotik 0 1.348 26-11-2018, Saat: 22:05
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi