Forumunuz.Com - IsStrHex

Forumunuz.Com (https://www.forumunuz.com/)

- Webmaster Forum (https://www.forumunuz.com/webmaster-forum/)

- - IsStrHex (https://www.forumunuz.com/webmaster-forum/17396-isstrhex.html)

Kaf Dağı

27 Mart 2015 15:18

IsStrHex

Kod:

// girilen strn verideki değer hexe decimal mi kontrol eder.

function TFrmMain.IsHex(s: string): boolean;

var

  i: integer;

begin

  Result := True;

  for i := 1 to length(s) do

    if not (char(s[i]) in ['0'..'9']) and not (char(s[i]) in ['A'..'F']) then

    begin

      Result := False;

      exit;

    end;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:52.