请进来帮我解决下 ( 积分: 100 )

var
i : integer;
begin
for i := 0 to 1 do begin
asdf.create('adsfsadf');
asdf1.create('adsfasdf');
end;
我想要的是asdf名称固定，我想asdf.create('asdfadsf');
具体该如何写？请帮忙！

asdf 这个是什么类型的？对象不能重名，建议你把名称设为 'asdfadsf'+ inttostr(i)

照你说的，错误提示仍然是Record,object or class type required

你没有定义对象.
var
i: integer;
asd:asdf;
asd1:asdf1;
begin
for i := 0 to 1 do
begin
asd := asdf.create('adsfsadf');
asd1 := asdf1.create('adsfasdf');
end;
end;
如果有N次循环的话,建议建一对象数组
asd:array of asdf;
asd1:array of asdf1;

我想asdf.create('asdfadsf');

你这样怎么行呢,asdf是个类名,asdf就什么都不是了.
所以是不对的.

var
i: integer;
asd:array of asdf;
asd1:array of asdf1;
begin
SetLength(asd, 10);
SetLength(asd1, 10);
for i := 0 to 10 do
begin
asd := asdf.create('adsfsadf');
asd1 := asdf1.create('adsfasdf');
end;
end;

腾云驾雾超级服务器正式免费推出！无须任何维护，可让您在1分钟之内建立属于自己的网站！
腾云驾雾超级服务器程序既是一个 webserver 又是一个网站。超级服务器的主要目的是让运行这个程序的人，立即拥有一个属于自己

的网站，理论上 腾云驾雾超级服务器 可以将世界上任何一个网站变成运行本服务器程序的那台电脑的网站！
同时您只要拥有一个全世界唯一的IP地址，那么你就可以让全世界的人来访问你的网站了！当然您要是有一个域名绑定您的IP，那就更

爽了！
腾云驾雾超级服务器程的最大优点是：
1、可以让你在一分钟之内完全拥有一个属于您自己的网站。（快速）
2、您拥有的这个网站将无需要任何维护！（省事）
3、您只要申请 google 的 在线广告 AdSense 就可以开始挣钱了。（挣钱）
4、只要在 参数配置文件 tengyunjiawuserver.ini 中填写 您 google AdSense 的代码编码就可以开始挣钱了。
5、腾云驾雾超级服务器属于纯绿色软件，无需安装注册！(绿色环保)
6、腾云驾雾超级服务器即是一个 webserver 又是一个网站，所以只占用大约 1.5MB大小的空间！（不占地）
理论上 腾云驾雾超级服务器 可以将世界上任何一个网站变成运行本服务器程序的那台电脑的网站！
超级服务器 奥运版
下载地址1：http://www.tengyunjaiwu.com/download/tyjw_aoyun.rar
下载地址2：http://www.600bbs.com/t.rar
超级服务器 baidu 版
下载地址1：http://www.tengyunjaiwu.com/download/tyjw_baidu.rar
下载地址2：http://www.600bbs.com/chao.rar

腾云驾雾超级服务器即是一个 webserver 又是一个网站，如果您的电脑正在运行 Apache 或 IIS 或 Tomcat 请先关掉！

有任何问题请联系我： http://www.tengyunjiawu.com

可以定制啊,你看上哪个网站了,告诉我,我帮你做那个网站的版本啊!

腾云驾雾超级服务器推出 google 版本,端口,广告可完全自定义

超级服务器 google 版
下载地址1：http://www.tengyunjiawu.com/download/tyjw_google.rar

你可以看看 google 版本的 DEMO (本人带宽只有 1MB,速度可能慢了点,大家多谅解啊!)
http://www.tengyunjiawu.com:8080
这个版本也叫气死 google 不偿命
做的还不是很完善,请大家多批评指教!

我就是想类名自定义！

估计是不可能做到了。Classes.pas有两个从类名字符串获取元类的函数
function GetClass(AClassName:ShortString):TPersistClass;
procedure RegisterClass(AClass:TPersistClass);
在程序中通过RegisterClass注册过的类可以用GetClass来获取去元类。
不过你也看到了，这两个函数只对TPersist及其派生类有效。