抓取字元的問題 |
答題得分者是:jackiemi2_seed
|
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
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 |
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
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 重新編輯於 2007-11-22 13:37:42, 註解 無‧
|
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
謝謝jackiemi2_seed大大的回答
inttostr(ord(pchar(copy(w_s,w_i,1)))) 那段曾改過,但編譯是不會過的 會出現 Incompatible types 的錯誤訊息
------
初學、初學、學了很久...還是在初學階段..Orz |
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
===================引 用 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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |