レコードをポインタで参照するには？ (ID:15099)

名前

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

本文

DELPHI7を使用しています。
初心者質問かもしれませんが、よろしくお願いします。

以下のソースは、簡略化したものです。
エクセルに出力したデータが文字化けをおこしてしまいます。
原因がわかる方いましたら、教えてください。

変数宣言
------------------------------------------------------
PIchiran = ^TIchiran;
TIchiran = record
    Sys_Kbn: String[20];  
    Shinsain: String[5];  
    Kanji_Name: String[20];
    Syosai_Cd: String[8];
FIchiran = Array of TIchiran;

A.UNIT
------------------------------------------------------
function TEST_A: Boolean;
var
  IchiranArray : FIchiran;
  i: Integer;
begin

//データベースより値を取得
  while not Eof do
  begin
    SetLength(IchiranArray, Length(IchiranArray) + 1);
    IchiranArray[i].Sys_Kbn := FieldByName('A').AsString;
    IchiranArray[i].Shinsain := FieldByName('B').AsString;
    IchiranArray[i].Kanji_Name := FieldByName('C').AsString;
    IchiranArray[i].Syosai_Cd := FieldByName('D').AsString;

i := i + 1;
    Next;
  end;

//ポインタ受け渡し
  TEST_B.pub_PIchiran := @IchiranArray;
end;

B.UNIT
------------------------------------------------------
public
    { Public宣言 }
    pub_PIchiran : PIchiran;

procedure TEST_B;
var
  i: Integer;
begin
  with EWSheet do
  begin

←解決時は質問者本人がここをチェックしてください。

戻る