【Weiss】実装予定スレ

44：Cardinal：2003/06/05(木) 23:09 ID:WcTqXlKw: unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type TFD = class
ID :cardinal;
Name:string;
end;

type TChara = class(TFD)
SaveMap:string;
end;

type TMob = class(TFD)
ATK1:cardinal;
end;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Test(tf:TFD);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
tc:TChara;
ts:TMob;
begin
tc := TChara.Create;
ts := TMob.Create;
tc.ID := 1;
tc.Name := 'test';
tc.SaveMap := 'prontera';
ts.ATK1 := 10;
ts.ID := 2;
ts.Name := 'ぽりん';
Test(tc);
Test(ts);
end;

procedure TForm1.Test(tf:TFD);
begin
Memo1.Lines.Add('---');
Memo1.Lines.Add(IntToStr(tf.ID));
Memo1.Lines.Add(tf.Name);
if tf is TChara then begin
Memo1.Lines.Add(TChara(tf).SaveMap);
end;
if tf is TMob then begin
Memo1.Lines.Add(IntToStr(TMob(tf).ATK1));
end;
Memo1.Lines.Add('---');
end;

end.

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板