求助關於AnsiPos定位漢字的問題 |
|
答題得分者是：ANDY8C
|
|
xzyoubai
一般會員   發表：3 回覆：5 積分：1 註冊：2012-06-16 發送簡訊給我 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,:Integer; cs,ds:string; begin cs:='堅持不懈，直到成功'; ds:='不'; i:=AnsiPos(ds,cs); Edit2.Text:=IntToStr(i); end; end. 求助 I的值為何是5而不是3啊
|
|
ANDY8C
資深會員   發表：114 回覆：582 積分：299 註冊：2006-10-29 發送簡訊給我 |
unit Unit1; interface TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var var i,:Integer; cs,ds:string; begin ds:='不'; Edit2.Text:=IntToStr(i); end; end. // 求助 I的值為何是5而不是3啊 // 是不習慣看這種格式,重新排一下,清爽多了 您 DELPHI 版本 ?? big5 中文字在 ansi 下,一個中文字,佔 2 bytes 所以是 5 , delphi XE 後, STRING 才自動全部是 WIDE 格式,字串的每一字長度都是 1 但您有用 ANSIPOS 格式, 在 XE 下,應該也是 一個中文字,佔 2 bytes 才是. 所以還是 5 在 XE 下, ANSIPOS 改用 POS 看看,是 3 吧 !!?? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,:Integer; cs,ds:string; begin cs:='堅持不懈，直到成功'; ds:='不'; i:=AnsiPos(ds,cs); Edit2.Text:=IntToStr(i); end; end. 求助 I的值為何是5而不是3啊
------
--------------------------------------- 偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩. |
|
xzyoubai
一般會員 發表：3 回覆：5 積分：1 註冊：2012-06-16 發送簡訊給我 |
感恩，我是Delphi新手，目前使用的軟體版本為D7.Lite.Full.v7.3.4.2，下載鏈接為http://www.delphifans.com/SoftView/SoftView_2641.html，我的設計思路在另一臺裝有Delphi2007軟體的電腦上可以實現功能，目前用哪個版本的軟體好呢，可以推薦一個麼。^-^
|
|
ANDY8C
資深會員 發表：114 回覆：582 積分：299 註冊：2006-10-29 發送簡訊給我 |
您學 DELPHI 目的 ??
目前 DELPHI 已到 XE2 UPD4 版了 多參加發研討會, 比較能了解未來學習方向.(但參加多了,也會心灰意冷) ===================引 用 xzyoubai 文 章=================== 感恩，我是Delphi新手，目前使用的軟體版本為D7.Lite.Full.v7.3.4.2，下載鏈接為http://www.delphifans.com/SoftView/SoftView_2641.html，我的設計思路在另一臺裝有Delphi2007軟體的電腦上可以實現功能，目前用哪個版本的軟體好呢，可以推薦一個麼。^-^
------
--------------------------------------- 偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩. |
|
tuga
高階會員 發表：16 回覆：109 積分：120 註冊：2002-07-13 發送簡訊給我 |
建議用 delphi 2010 以後的版本, 在處理 unicode 上, 會比較單純 ===================引 用 xzyoubai 文 章=================== 感恩，我是Delphi新手，目前使用的軟體版本為D7.Lite.Full.v7.3.4.2，下載鏈接為http://www.delphifans.com/SoftView/SoftView_2641.html，我的設計思路在另一臺裝有Delphi2007軟體的電腦上可以實現功能，目前用哪個版本的軟體好呢，可以推薦一個麼。^-^ |
|
xzyoubai
一般會員 發表：3 回覆：5 積分：1 註冊：2012-06-16 發送簡訊給我 |
|
|
leveon
資深會員  發表：30 回覆：389 積分：303 註冊：2012-02-12 發送簡訊給我 |
發表時間：2012-06-16 10:24:59
IP:221.178.xxx.xxx 訂閱
系統時間：2024-04-27 4:55:27
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |