起動時のフォーム作成でエラー？ (ID:45994)

名前

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

本文

igyさん、ありがとうございます。

ソースが未提示ですみません。
ソースは、クラス定義部分などで良いでしょうか？

type
  Tdcm_data = class
      TAG_name  : String;
      group   : Word;
      element : Word;
      VR      : Array[ 0 .. 1 ] of AnsiChar;
      size    : LongWord;
      b_data  : PAnsiChar;
      s_data  : String;

procedure read_dcm_file( fname : String );
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

このクラス変数を

var
  Form2       : TForm2;
  dcm_data_1  : Tdcm_data;
  f_endian    : Word = 1;

で、宣言しています。

便宜上、Button1をクリックすると、"Create"する様にしています。
本来は、フォームの作成時に済ませておきたい。

procedure TForm2.Button1Click(Sender: TObject);
var
    i, j  : Word;
    n     : Word;
    fname : String;
begin
    dcm_data_1.Create();

if OpenDialog1.Execute() then
    begin
        n :=  OpenDialog1.Files.Count;
       for i := 0 to  n - 1 do
       begin
            fname :=  OpenDialog1.Files[ i ];
            dcm_data_1.read_dcm_file( fname );
       end;
    end
    else
    begin

end;
end;

となっています。

クラス内で手続き(procedure read_dcm_file( fname : String ))を定義して、使用もしていますが、そのソースも必要でしょうか？少々長くなるもので、、、

また、このクラス内手続きを呼び出してのエラーではない(この手続きの使用前のエラー)ので関係ないと思っていますが、違うでしょうか？

よろしくお願いします。

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

戻る