Char to Char如何解決? |
|
答題得分者是：wyndog
|
|
corey
一般會員   發表：34 回覆：44 積分：14 註冊：2003-04-19 發送簡訊給我 |
我定義2個type record如下
type
TOutRecord=record
tStock: array[0..5] of Char; type
TDataRecord=record
tCompanyNo: array[0..5] of Char; 先不管寫法正確與否,因為我只貼主要內容
問題如下:
OutRecord.tStock := ReadRecord.tCompanyNo; <-- 這一行complie不過,同樣是char類型為什麼不能互給呢?有其它的解決方式嗎?
|
|
wyndog
資深會員  發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
|
|
corey
一般會員 發表：34 回覆：44 積分：14 註冊：2003-04-19 發送簡訊給我 |
引言: 因為是 Array of Char 的關係，不是單純的 Char To Char 啊 這時，用 Move 代替 Move(Source, Destination, length); => Move(ReadRecord.tCompanyNo[0], OutRecord.tStock[0], 6); 大概就像這樣吧，試試看吧太捧了可以了,我可不可以在問一個問題 Move(PChar(FormatDateTime('yyyymmdd',Now)),OutRecord.tSetDate,SizeOf(OutRecord.tSetDate)); OutRecord.tSetDate一樣是array[0..7] of char,我這樣寫好像又不行了,請大大幫幫忙,3Q |
|
corey
一般會員 發表：34 回覆：44 積分：14 註冊：2003-04-19 發送簡訊給我 |
引言: 因為是 Array of Char 的關係，不是單純的 Char To Char 啊 這時，用 Move 代替 Move(Source, Destination, length); => Move(ReadRecord.tCompanyNo[0], OutRecord.tStock[0], 6); 大概就像這樣吧，試試看吧太捧了可以了,我可不可以在問一個問題 Move(PChar(FormatDateTime('yyyymmdd',Now)),OutRecord.tSetDate,SizeOf(OutRecord.tSetDate)); OutRecord.tSetDate一樣是array[0..7] of char,我這樣寫好像又不行了,請大大幫幫忙,3Q |
|
wyndog
資深會員 發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
引言: 太捧了可以了,我可不可以在問一個問題 Move(PChar(FormatDateTime('yyyymmdd',Now)),OutRecord.tSetDate,SizeOf(OutRecord.tSetDate)); OutRecord.tSetDate一樣是array[0..7] of char,我這樣寫好像又不行了,請大大幫幫忙,3Q不行，Move 是用 Call by reference 傳參數進去的 用 PChar 會出錯，所以要繞一下
var
s: string;
begin
s := FormatDateTime('yyyymmdd', now);
Move(s[1], OutRecord.tSetDate[0], length(s));
end;
|
發表時間：2005-08-17 09:06:03
IP:60.248.xxx.xxx 未訂閱
系統時間：2024-04-20 7:18:16
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |