如何用delphi 建立一个类,再使用对象? delphi 是面向对象编程的,如何自己定义一个类,以后就可以使用此类.能否举个例子.简单一些的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 举一个简单的例子:type TMyClass=Class private //私有成员 Ch:char; public //共有成员 procedure SetValue(Value:char);end;procedure TMyClass.SetValue(Value:char);//方法begin Ch:=Value;end;使用这个类可以这样:var MyClass1:TMyClass;begin MyClass1:=TMyClass.Create;//创建对象 MyClass1.SetValue('A');//调用方法来赋值 ShowMessage(MyClass1.Ch);//显示值 MyClass1.Free;//释放end;这些基础的最好找本书来看看。 tp = class private fname: string; procedure setname(value: string); public publish property name: string read fname write setname; end; procedure tp.setname(value: string); begin fname := value; end; 然后就可以用了 var p: tp; begin p:= tp.create; try p.name := 'zxf'; showmesssage(p.name); finally p.free; end; end; 打开DELPHI时生成的新工程文件中,TForm1就是一个典型的例子 这个程序不能运行.能否改动后在传上来.type TMyClass=Class private //私有成员 Ch:char; public //共有成员 procedure SetValue(Value:char);end;procedure TMyClass.SetValue(Value:char);//方法begin Ch:=Value;end;使用这个类可以这样:var MyClass1:TMyClass;begin MyClass1:=TMyClass.Create;//创建对象 MyClass1.SetValue('A');//调用方法来赋值 ShowMessage(MyClass1.Ch);//显示值 MyClass1.Free;//释放end;这些基础的最好找本书来看看。 求助!vb声明改delphi D7,ActiveX开发很奇怪的问题,求救阿 急!!★★Fastreport明细表的问题★★ 问一个比较菜的问题,请大家多包涵! 报表问题:我一个表有好多字段。一行无法显示。我如何才能使其得以显示呀! 此段简单代码有何不对? 300求Delphi7含有.net部分的安装盘! 请问QuickRep报表怎么防止跳纸 如何检查网络断线问题? 跪求大神把这段C++代码转换成Delphi Delphi 终于重放异彩!庆祝Delphi 2006面世! 我想在一个10M的文本文件中搜索指定字符串,请问该怎么做
type
TMyClass=Class
private //私有成员
Ch:char;
public //共有成员
procedure SetValue(Value:char);
end;
procedure TMyClass.SetValue(Value:char);//方法
begin
Ch:=Value;
end;
使用这个类可以这样:
var MyClass1:TMyClass;
begin
MyClass1:=TMyClass.Create;//创建对象
MyClass1.SetValue('A');//调用方法来赋值
ShowMessage(MyClass1.Ch);//显示值
MyClass1.Free;//释放
end;
这些基础的最好找本书来看看。
private
fname: string;
procedure setname(value: string);
public
publish
property name: string read fname write setname;
end; procedure tp.setname(value: string);
begin
fname := value;
end;
然后就可以用了 var p: tp;
begin
p:= tp.create;
try
p.name := 'zxf';
showmesssage(p.name);
finally
p.free;
end;
end;
这个程序不能运行.能否改动后在传上来.
type
TMyClass=Class
private //私有成员
Ch:char;
public //共有成员
procedure SetValue(Value:char);
end;
procedure TMyClass.SetValue(Value:char);//方法
begin
Ch:=Value;
end;
使用这个类可以这样:
var MyClass1:TMyClass;
begin
MyClass1:=TMyClass.Create;//创建对象
MyClass1.SetValue('A');//调用方法来赋值
ShowMessage(MyClass1.Ch);//显示值
MyClass1.Free;//释放
end;
这些基础的最好找本书来看看。