typedef struct { int ID; char *Data; }MyData; typedef struct { int Count; MyData *DataPack; }DCPack; void myFunc(int Index,DCPack *data) { data->Pack[i].ID; } 以上為在 VC 的 Code ，若搬到 Delphi 要怎麼宣告和使用呢？ 以下是我在 Delphi 的宣告，會有錯誤，不知道要如何改修，煩請指點一下，謝謝。 type PMYDATA=^MyData ; MyData = packed record ID: Integer; Data: PChar; end; type PDCPack=^DCPack; DCPack = packed record Count: Integer; Pack: PMYDATA; end ; procedure myFunc(Index: Integer; data: PDCPack); begin data.Pack^[i].ID; <-這行會錯; end; [Error] Array type required ...... 發表人 - etboite 於 2003/02/24 18:35:06

My guess  < class="code">procedure myFunc(Index: Integer; data: PDCPack); var P: PChar; begin P := pointer(data^.Pack); inc(P,Index*SizeOf(MyData)); PMyData(pointer(P))^.ID; end;

引言: My guess < class="code">procedure myFunc(Index: Integer; data: PDCPack); var P: PChar; begin P := pointer(data^.Pack); inc(P,Index*SizeOf(MyData)); PMyData(pointer(P))^.ID; end;

我改成以下這樣，可是會產生 access violation ，為什麼呢？ procedure myFunc(Index: Integer; data: PDCPack); var P: PChar; str: String; I: Integer; begin P := pointer(data^.Pack); for I:= 1 to data.Count do begin inc(P,I*SizeOf(DataPak)); str := 'ID= ' IntToStr(PDATAPAK(pointer(P))^.ID); end; end;

引言: 我改成以下這樣，可是會產生 access violation ，為什麼呢？

procedure myFunc(Index: Integer; data: PDCPack); 
var
   P: PChar;
   str: String;
   I: Integer;
begin
  P := pointer(data^.Pack);
  for I:= 1 to data.Count
  do begin
      str := 'ID= '   IntToStr(PDATAPAK(pointer(P))^.ID);
      inc(P,SizeOf(DataPak));
  end;
end;

Again, my guess

引言: Again, my guess >< face="Verdana, Arial, Helvetica"> u r right. Thank u very much.