type區段可否使用dynamic arrays?? |
|
尚未結案
|
|
Julien
一般會員   發表：36 回覆：28 積分：12 註冊：2002-11-28 發送簡訊給我 |
function TForm.abc({略}) : Boolean;
type
Tdur = record
dur : array[0..150,0..8] of char;
end;//end of Tdur = record
TCvRecord = record
filler1 : array[0..1] of char;
Age : array[0..2] of char;
Adur : Tdur;
Eor : byte ;
end;;//end of TCvRecord = record
//end of type
var
{略}
//end of var
begin
{略}
end; //end function TForm.abc():boolean
目前,我們這個record裡的dur,須配合改變讀取檔案裡的字串長度.
我想在type中的Tdur裡對dur設成dynamic arrays,不知可否辦到??還是需用其它方式達到改變讀取長度的要求功能??
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
引言: function TForm.abc({略}) : Boolean; type Tdur = record dur : array of char; end;//end of Tdur = record TCvRecord = record filler1 : array[0..1] of char; Age : array[0..2] of char; Adur : Tdur; Eor : byte ; end;;//end of TCvRecord = record //end of type var {略} //end of var begin {略} SetLength(adur.dur,1,1); end; //end function TForm.abc():boolean 目前,我們這個record裡的dur,須配合改變讀取檔案裡的字串長度. 我想在type中的Tdur裡對dur設成dynamic arrays,不知可否辦到??還是需用其它方式達到改變讀取長度的要求功能?? |
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
Julien
一般會員 發表：36 回覆：28 積分：12 註冊：2002-11-28 發送簡訊給我 |
function TForm.abc({略}) : Boolean;
type
Tdur = record
dur : array[0..150,0..8] of char;
end;//end of Tdur = record
TCvRecord = record
filler1 : array[0..1] of char;
Age : array[0..2] of char;
Adur : Tdur;
Eor : byte ;
end;;//end of TCvRecord = record
//end of type
var
{略}
//end of var
begin
{略}
end; //end function TForm.abc():boolean
可能是在Type內,第一個record用於第二個record內,而無法改到所要改的地方.
我們已採用另建合於條件的record,因為下一個新格式將會在一千年後出現.
非常謝謝指導.
|
發表時間：2002-12-04 10:41:14
IP:210.242.xxx.xxx 未訂閱
系統時間：2024-05-06 2:18:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |