加入空格字元? |
|
尚未結案
|
|
benson5033
一般會員   發表：44 回覆：47 積分：18 註冊：2004-08-16 發送簡訊給我 |
|
|
jimmy_wei
高階會員  發表：9 回覆：176 積分：147 註冊：2003-08-28 發送簡訊給我 |
|
|
wyndog
資深會員 發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
|
|
benson5033
一般會員 發表：44 回覆：47 積分：18 註冊：2004-08-16 發送簡訊給我 |
|
|
wyndog
資深會員 發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
引言: 如果我是一個record呢? 那要怎麼加l呢? 例: type test = record a1 :array [0..99] of char ; a2 :array [0..99] of char ; end;一樣要寫在 implementation
var
test: record
a1: array [0..99] of char;
a2: array [0..99] of char;
end = (a1: ''; a2: '');
不過，這種做法，只是把它弄成空字串
也就是說，a[0] ~ a[99] 都是 Chr(0)
如果你是想弄成一百個空格的話
就只能用 StringOfChar 或者是用迴圈加了
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
benson5033
一般會員 發表：44 回覆：47 積分：18 註冊：2004-08-16 發送簡訊給我 |
|
|
wyndog
資深會員 發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
啊... 你改太快了，本來想睡醒再回的....
我記憶中，你的 record 是最後有二個 PText & Comment
在 VB 中是 string 吧？
如果這不是筆誤的話
那就不能寫成 PText: array [0..1023] of char; 在原本的 VB 程式中，space(100) 的目的是為了配給空間用的
所以，Delphi 裡，要另外這樣寫
你把 type 裡面的 PText, Comment 改成 PChar 其它不用動
然後，呼叫 API 之前，先
GetMem(OOXX.PText, 1024);
GetMem(OOXX.Comment, 1024);
用完，記得
FreeMem(OOXX.PText);
FreeMem(OOXX.Comment); 大致上就這樣
|
|
benson5033
一般會員 發表：44 回覆：47 積分：18 註冊：2004-08-16 發送簡訊給我 |
引言: 啊... 你改太快了，本來想睡醒再回的.... 我記憶中，你的 record 是最後有二個 PText & Comment 在 VB 中是 string 吧？ 如果這不是筆誤的話 那就不能寫成 PText: array [0..1023] of char; 在原本的 VB 程式中，space(100) 的目的是為了配給空間用的 所以，Delphi 裡，要另外這樣寫 你把 type 裡面的 PText, Comment 改成 PChar 其它不用動 然後，呼叫 API 之前，先 GetMem(OOXX.PText, 1024); GetMem(OOXX.Comment, 1024); 用完，記得 FreeMem(OOXX.PText); FreeMem(OOXX.Comment); 大致上就這樣感謝您!reptile，真是我的偶像! |
發表時間：2005-03-31 21:55:07
IP:218.167.xxx.xxx 未訂閱
系統時間：2024-05-02 21:01:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |