FUNCTION p_trans_to_ord(from_keyin:string):STRING;
var
ret_data:string;
w_i:integer;
begin
ret_data := '';
FOR w_i:=1 TO LENGTH(from_keyin) DO
BEGIN
ret_data := ret_data '-' inttostr(ord(copy(from_keyin,w_i,1)));
w_i := w_i 1;
END;
Result ret_data;
end;
目前出在ord這個轉Ascii似乎只能接受Char，而copy截出來的是string，
請問各位先進，在這一段應如何改才能轉成Char來轉換呢???
這一個程式主要的作用是小弟希望可以達到一個功能
例：
傳入：
ABCDEFG
回傳：
65-66-67-68-69-70-71
其實主要的功能是在於可以解譯出傳入的字串，自已要轉成Ascii來看
而在傳入的字串中可能也含有特殊字元，如：chr(10)之類的
麻煩各位先進可以幫忙解決

------
初學、初學、學了很久...還是在初學階段..Orz

FUNCTION TForm1.p_trans_to_ord(from_keyin:string):STRING;
var
ret_data:string;
w_i:integer;
begin
ret_data := '';
FOR w_i:=1 TO LENGTH(from_keyin) DO
BEGIN
ret_data := ret_data inttostr(ord(from_keyin[w_i])) '-';
END;
ret_data:=copy(ret_data,1,LENGTH(ret_data)-1);
Result:=ret_data;
end;

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008

編輯記錄

謝謝jackiemi2_seed大大的回答
inttostr(ord(pchar(copy(w_s,w_i,1))))
那段曾改過，但編譯是不會過的
會出現 Incompatible types 的錯誤訊息

------
初學、初學、學了很久...還是在初學階段..Orz

===================引 用 jackiemi2_seed 文 章===================
FUNCTION TForm1.p_trans_to_ord(from_keyin:string):STRING;
var
ret_data:string;
w_i:integer;
begin
ret_data := '';
FOR w_i:=1 TO LENGTH(from_keyin) DO
BEGIN
ret_data := ret_data inttostr(ord(from_keyin[w_i])) '-';
END;
ret_data:=copy(ret_data,1,LENGTH(ret_data)-1);
Result:=ret_data;
end;

謝謝jackiemi2_seed的回答這問題以解決，經由你程式解決了！謝謝

------
初學、初學、學了很久...還是在初學階段..Orz