type MYDATE = record year: array[0..3] of BYTE; month: array[0..1] of BYTE; day: array[0..1] of BYTE; end; var tmpdate: MYDATE 要取得 test.year 值只能用 test.year 取 可否類似資料庫方式以變數帶入 -> test.fieldbyname('year') 方式 來取得結構的 year 欄位 ??

bruce0211 你好 基本上Record是無法達到Record.xxxx('Field')方式取值的 因為Record只是一資料的型態，而不是物件(當然物件也是型態),它不像物件可以實作事作及方法，它只有屬性的直接存取,所以你必直接指名存取的欄位名稱, 但是,你可以透過自定Procedure 或Function 來達到你的需求,就如 Str : String; Str.AsInteger; // 不行 StrToInt(Str); // 可以 同樣的 type MYDATE = record year: array[0..3] of BYTE; month: array[0..1] of BYTE; day: array[0..1] of BYTE; end; Function MyDateFieldValue(FieldName:String):Integer ; var tmpdate: MYDATE 你可以 SomeVar := MyDateFieldValue('Year'); // 透過Function取值

我之前正如長官的方法 寫一個函式讓 user 可以透過變數字串的方式取得結構資料 var tmpdate: MYDATE Function MyDateFieldValue(FieldName:String):Integer ; begin if FieldName='year' then return tmpdate.year ... if FieldName='month' then return tmpdate.month ... if FieldName='day' then return tmpdate.day ...... end; 但是當我遇到一個結構有兩百個欄位的時候 我就不想再用這種方法了...

引言: 我之前正如長官的方法 寫一個函式讓 user 可以透過變數字串的方式取得結構資料 var tmpdate: MYDATE Function MyDateFieldValue(FieldName:String):Integer ; begin if FieldName='year' then return tmpdate.year ... if FieldName='month' then return tmpdate.month ... if FieldName='day' then return tmpdate.day ...... end; 但是當我遇到一個結構有兩百個欄位的時候 我就不想再用這種方法了...

bruce0211 你好 或許你可以改用TStringList

Var
  Sl : TStringList;
  SomeVar :String ;
Begin
  SL := TStringList.Create;
  SL.Values['Year'] := 'xxxx';  // 儲存資料
  SomeVar := SL.Values['Year']; // 取出資料
  SL.Free;
End;

對了,我忘記提了 有兩百個欄位的紀錄結構 它是一個結構化的文字檔 每一個單位 row 有上千個 byte 但每個 row 長度相同 我要取出其中一個欄位值,先要決定 row index 再讀出整行的 row 放到紀錄結構中 然後依照指定的欄位讀出資料 該文字檔是從 unix 抓下來的 是別人的東西,我無法叫它改變用別種高階的方式 (如 INI,或資料庫)來儲存資料 UNIX 上的系統都喜歡玩這種超大結構的紀錄資料檔說.. 害我們轉的好累...

TMyRecordField=class(TObject) private vFieldName:string; VFieldValue:string; public constructor Create; destructor Destroy;override; end; constructor TMyRecordField.Create; begin inherited Create ; end ; destructor TMyRecordField.Destroy ; begin inherited Destroy ; end ; TMYClass =class private FData:TMyRecordField; sl:TStringList; function GetFieldValue(FieldName:string):string; published property :item[FieldName:string]:string read GetFieldValue; public constructor Create; destructor Destroy;override; function SetFieldValue(mvFieldName,mvFieldValue:string); end; constructor TMYClass.Create; begin inherited Create ; SL := TStringList.Create; end ; destructor TMYClass.Destroy ; begin SL.FREE; inherited Destroy ; end ; function TMYClass.SetFieldValue(mvFieldName,mvFieldValue:string); Var mvindex:integer; mvMyRecordField : TMyRecordField; begin mvIndex := SL.IndexOf(mvFieldName); IF MVINDEX=-1 THEN BEGIN mvMyRecordField := TMyRecordField.Create ; mvMyRecordField.vFieldName:=mvFieldName; mvMyRecordField.VFieldValue:=mvFieldValue; sl.AddObject(mvMyRecordField.vFieldName,mvMyRecordField) ; end else begin TMyRecordField(sl.Objects[mvIndex]).VFieldValue:= mvFieldValue; END; end; function GetFieldValue(mvFieldName:string); mvIndex :INTEGER; Begin mvIndex :=SL.IndexOf(mvFieldName); IF MVINDEX>-1 THEN RETURN TMyRecordField(sl.Objects[mvIndex]).VFieldValue; End; var MYCLASS:TMYCLASS 使用時,只要用 myclass.item('year') 就可得到你要的欄位值 當然你還要加強SetFieldValue ,要把文字檔讀入 TMyRecordField 或者擴充 TMyRecordField 的結構,如果你的文字檔有很多型態,可考慮用 VARIANT,把TMyRecordField 宣告成 vFieldName:string; VFieldValue:VARIANT; 不知這樣你看的懂嗎 ? Thomas Chiou

------
Thomas Chiou

肥加慢慢看囉 ...3Q 各位長官