سورسهاي نمونه آموزشي

[Felony]

ساعت باينري



دانلود سورس كد

کی این کد رو نوشته ؟ باید به صورت زیر تغییر پیدا کنه وگرنه در زمان های تک رقمی مشکل پیدا میکنه :

var

  Str: String;

  Hour, Min, Sec, MSec: Word;

begin

  Str := TimeToStr(Time);



  DecodeTime(Now, Hour, Min, Sec, MSec);



  // recive 'binary' string

  Label1.caption := IntToBin(Hour) + ':' + IntToBin(Min) + ':' + IntToBin(Sec);



  // this label is for the others 01 people who don't

  Label2.caption := Str;

end;

اين يك بازي توپ با مورچه ها


دانلود سورس كد

این بازی نیست ؛ پیاده سازی الگوریتم کلونی مورچه ها با دلفی هست !