各位前輩：

不知道CHR($12) 不知道是啥意義？ 因為硬體有用到這個，我猜是轉特殊字元，
不知道要如產生$好用於chr()內？

這個問題夠菜吧！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

The dollar-sign prefix indicates a hexadecimal numeral
CHR($12) = CHR(18)


Fishman

------
Fishman

前輩：
我的的硬體程式範例為CHR($12) CHR($34) CHR($56) CHR($78);
而我用了一個自訂函數想轉換，但是這樣的轉法好像不對，不知道有無簡易的轉法
我搜尋版上的討論，很多都無法連結，不知道怎樣轉換最快！
HEX2INT
var
i : integer
s : string;
begin
s := '$' ThatHexString;
i := StrToInt(a);
end;

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

Delphi 中似乎沒有 HexToInt 的函數，以下有幾個範例，你可以參考看看：
Delphi 的 StrToInt
function StrToInt(const S: string): Integer;
var
E: Integer;
begin
Val(S, Result, E);
if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

http://4programmers.net/Delphi/FAQ/Konwersja_liczby_heksadecymalnej_na_integer
function HexToInt(const Hex: String; Sign: Boolean = False): Integer;
var
Int, Code: Integer;
begin
Val('$' Hex, Int, Code);
if Code <> 0 then Result := 0 else
if Sign then Result := -Int else Result := Int;
end;

http://www.delphi.qs.pl/faq1.php3
function HexToInt(S : String) : Integer;
function HTI(C : Char) : Integer;
begin
if Ord(UpCase(c)) in [65..70] then result:=Ord(UpCase(C))-55 else
result:=StrToInt(C);
end;
var
x:integer;
begin
result:=0;
for x:=0 to length(s)-1 do
result:=(result HTI(s[length(s)-x])*round(intpower(16,x)));
end;

http://delphi.ktop.com.tw/board.php?cid=30&fid=73&tid=71104


Fishman

------
Fishman

前輩感謝您的回覆：
我自己寫了函數
function hextoint(s: Integer): Integer; overload;
function hextoint(s: string): Integer; overload;
implementation
function hextoint(s: Integer): Integer; overload;
begin //$代表16進制
Result := StrToInt('$' trim(inttostr(s)));
end;
function hextoint(s: string): Integer; overload;
begin //$代表16進制
Result := StrToInt('$' trim(s));
end;

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！