girilen değer hexe decimal mi?

[AhmetNuri]

merhaba,
string bir değerin için cihazdan veriler geliyor. bu gelen veri bazen normal kareketer bazen hexedecimal geliyor. Bunun hexedeimali olduğunu nasıl anlarım?

[AhmetNuri]

bu şekilde bir fonksiyonla çözdüm. birz yavaş oldu fakat. ginede çalışıyor

Kod: Tümünü seç

function TFrmMain.IsStrHex(temizhex: string): Boolean;
var
i,j,test : integer;

const Digits:array[0..16] of char='0123456789ABCDEF ';
begin
  // Girilen Hexe decimal değeri ters çevirir     Ahmet Nuri DENİZ 29.08.2010
  test:=0;
  for i := 1 to Length(temizhex) do
  begin
    for j := 0 to 16 do
    begin
      if temizhex[i] = Digits[j] then test := test + 1;
    end;
  end;
  if test = Length(temizhex)  then Result := True
  else
  Result := False;
end;