الفريق العربي للهندسة العكسية

 
Function CheckHex(TargetName:string;Lb1:TLabel;Memo:TMemo;button:TButton):boolean;
var i: integer;
begin
    result := false;
    if TargetName = '' then exit;
    uppercase(TargetName);
    for i := 1 to length(TargetName) do
      begin
        if (TargetName[i] in ['A'..'F', '0'..'9']) = true then
         begin
          Memo.Lines.Add(TargetName[i] + ' Is a hex value');
          lb1.Caption := 'GOOD';
          lb1.color := clGreen; end
         else
          begin
          lb1.caption := 'BAD';
          lb1.Color := clRed;
          Memo.Lines.Add(TargetName[i] + ' Is not a hex value');
        end;
     end;
end;