配列を戻り値にして参照・代入するには？ (ID:6674)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 レスありがとうございます。 PIntegerですでに試したのですが、うまくいきません。 ------------------------------------------- function TTask.test(N: Integer): PInteger; begin Result := @FTCB[N].Fwork; end; procedure TForm1.FormCreate(Sender: TObject); var Work: PInteger; Test: TClass2; begin Test := TClass2.Create(2,3); Work := Test.ReadWork(1); end; ---------------------------------------------- ReadWork(1)でField[Number].FWorkのアドレスをWorkに代入、 のところまではうまくいきますが、 Workから配列Fworkの要素を参照する方法がわかりません。 Work[0]、ではエラーがでて参照できません。 ヘルプをひくと、動的配列は逆参照ができない、というのが出てきましたが、 関係あるのでしょうか？ ちなみに、jokさんのコードでも、 > function TClass2.ReadWork(Number: Integer): TWork; > begin > Result := Field[Number].FWork; ←ここ > end; の部分で「互換性のない型です」とエラーが出て、 コンパイルできないのですが…。