
نوشته شده توسط
SayeyeZohor
کی این کد رو نوشته ؟ باید به صورت زیر تغییر پیدا کنه وگرنه در زمان های تک رقمی مشکل پیدا میکنه :
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;

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