掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
移植するには？ (ID:37389)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
えと、テスト的にこんな感じで作ったのですが エラーがでました。 type TForm4 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TTest = class public X: Integer; Y: Integer; end; var Form4: TForm4; Test: TTest; implementation {$R *.dfm} procedure TForm4.Button1Click(Sender: TObject); begin Test.X := 100; Test.Y := 200; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.