モナーの *やさしい* Delphi質問スレ Ver.7
■ このスレッドは過去ログ倉庫に格納されています
0554初心者
NGNGTStudent というクラスを作って、広域的に?public?に、どのコントロールからも使えるように
オブジェクトを使いたいのですが、どこで、「student :TStudent;」と書けば良いでしょうか?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TStudent = class
private
Name : string;
public
function GetName:string;
procedure SetName(N:string);
end;
function TStudent.GetName:string;
begin
result := Name;
end;
procedure TStudent.SetName(N:string);
begin
Name := N;
end;
end.
本見ると、概念的な説明はのってても、実際の使い方はほとんど載っていなくて、
判らず困ってます。昔VCはやってたんですが・・・ ご教授お願いします。
■ このスレッドは過去ログ倉庫に格納されています