IP doğrumala (IP validation)

Aşağıdaki Delphi kodları ile kolayca IP adres doğrumala yapabilirsiniz.

---

function IsIP(const IP : String) : Boolean;
var i, dot, say : integer;
begin
   Result := False;
   if (Length(IP) < 7) or (Length(IP) > 15) or (IP[1] = '.') then exit;
   dot := 0;
   say := 0;
   for i := 1 to Length(IP) do
      begin
         if IP[i] in ['0'..'9'] then
            begin
               Inc(say);
               if say > 3 then exit;
            end
         else if IP[i] = '.' then
            begin
               Inc(dot);
               if dot > 3 then exit;
               say := 0;
            end
         else
            exit;
      end;
   Result := (dot = 3) and (say in [1..3]);
end;

---

Umarım işinize yarar.

Knight-Online, herşeyin zarar!

Bu Kinght-Online adlı oyun iyi güzel bir oyun gibi görünsede bir çok yönden zararları var. Eşinizden fırça yemekte buna dahil.

Doctus.net'te bir kaç gün önce biri KnightOnline'da virüs olup olamayacağını sordu. Ben pek önemsemedim, niye önemseyecektim ki. Bırakmıştım çünkü bu oyunu ve bir daha aslada oyanamayacaktım. Fakat bizim acar Doctus.net müdavimleri olayın peşini bırakmamışlar ve şu socuca varmışlar.

Delphi ve veritabanı uygulamaları ile milyoner olmak!

Wanna be a Delphi Database developer Millionaire?
Ever wonder what "Who Wants to be a Millionaire" might look like if there were only Delphi database (ADO, dbGO) programming questions?

delphi.about.com sitesinde bir yazı var. Sizi bir teste tabi tutuyor. Bu testte Delphi ile Veritabanı uygulamaları konusundaki beceri ve bilginizi sınayabilirsiniz. Tabi bu test sonucunda, delphi ile veritabanı uygulamalarında bir milyoner olup olamayacağınıza karar vereceksiniz.

Bence önemli bir test, bundan önce yine delphi.about.com'da bir test daha vardı. Delphi'de GURU musunuz? gibilerinden. Böyle testler insana özgüvenini sağlamasında faydalı oluyor. 20 yılı aşkındır programlama ile uğraşmama rağmen, zaman zaman kendimi EZİK gibi hissedebiliyorum, böyle testler ile en azından kendimi aynanın karşısında gibi görebiliyor ve öz güvenimi yakalıyorum. Hadi teste başlıyalım..