1、 for i = 1 to 5 do With TEdit(FindComponent('Edit'+IntToStr(I))) do begin end; end;2、CASE语句中对于对象类型的用法!如 if sender as TComponents if edit1 then begin end else if sender as TComponents if edit2 then begin end else ....3、Image1.Picture.Free; 4、???不会5、从0到16777215随你用。
2.with sernder as tedit do
3.?
5.$00E4C9B8格式
附:试试执行sp_attach_single_db(好象写错了,自己查)存储过程
2、case的用法详见帮助,他要求变量必须是顺序的,你那个写法是不对的
3、image1.Picture:=nil;
4、UDP本来就是广播的,设定好你的端口,如果发送指定remote,可能用到拦截技术。
5、RGB
EXEC sp_attach_db @dbname = N'pubs',
@filename1 = N'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf'
@filename1 = N'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf'
var i:integer;
i:=0;
for i:=0 to componentcount-1 do
begin
if (components[i] is TEdit) then
(components[i] as TEdit).text:='';
end;
var i:integer;
i:=0;
for i:=0 to componentcount-1 do
begin
if (components[i] is TEdit) then
(components[i] as TEdit).text:='';
end;
case (Sender as TEdit).Tag of
1..5:(Sender as TEdit).text:=''
2.楼上有
@physname = N'E:\程序文件\Data\jcjx_Data.MDF'我执行的代码服务器: 消息 1813,级别 16,状态 2,行 1
未能打开新数据库 'jcjx'。CREATE DATABASE 将终止。
设备激活错误。物理文件名 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\jcjx_log.LDF' 可能有误。返回错误提示!我的语句有错误吗?
@physname = 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf'
@physname = N'E:\程序文件\Data\jcjx_Data.MDF'我执行的代码服务器: 消息 1813,级别 16,状态 2,行 1
未能打开新数据库 'jcjx'。CREATE DATABASE 将终止。
设备激活错误。物理文件名 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\jcjx_log.LDF' 可能有误。返回错误提示!我的语句有错误吗?
@physname = N'E:\程序文件\Data\jcjx_Data.MDF'我执行的代码服务器: 消息 1813,级别 16,状态 2,行 1
未能打开新数据库 'jcjx'。CREATE DATABASE 将终止。
设备激活错误。物理文件名 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\jcjx_log.LDF' 可能有误。返回错误提示!我的语句有错误吗?
@physname = N'E:\程序文件\Data\jcjx_Data.MDF'我执行的代码服务器: 消息 1813,级别 16,状态 2,行 1
未能打开新数据库 'jcjx'。CREATE DATABASE 将终止。
设备激活错误。物理文件名 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\jcjx_log.LDF' 可能有误。返回错误提示!我的语句有错误吗?
With TEdit(FindComponent('Edit'+IntToStr(I))) do
begin
end;
end;2、CASE语句中对于对象类型的用法!如
if sender as TComponents if edit1 then
begin
end else
if sender as TComponents if edit2 then
begin
end else
....3、Image1.Picture.Free;
4、???不会5、从0到16777215随你用。