~~~~~~~~~请大家帮帮小弟，过来看看,马上给分~~~~~~~~

Question

在delphi中如何拼字符串?

Answer 1

拼字符串?——什么意思？
str := 'abc'+'def'; //???

Answer 2

呵呵
√~~~~~~~~~请大家帮帮小弟，过来看看,马上给分~~~~~~~~（GerardDu）

Answer 3

2003-06-09 12:48:06 Daniel.Wu
你好，我还是没有通过呀 2003-06-09 12:44:34 
你在数据库里建xxsjk
再在里面建表create table xxsjk.dbo.zlcsb
(
zlmc varchar(20)  not null,
zldm char(5) not null,
yxqsrq datetime not null,
yxjzrq datetime not null,
czrq datetime not null,
sm varchar(60)
)--drop table zlcsb
--drop table spjgb
(通过服务器中转)2003-06-09 12:44:45 
和create table xxsjk.dbo.spjgb
(
zlmc varchar(20)  not null,
zldm char(5) not null,
spmc varchar(20) not null,
spdm char(8) not null,
xsd varchar(40) not null,
jg numeric(10,2) not null,
jlrq datetime not null,
sm varchar(60)
)
(通过服务器中转)2003-06-09 12:50:01 Daniel.Wu
现在查询可以了，但是在delphi中do while的格式怎么样的? 2003-06-09 12:46:09 
靠,看看帮助不就可以了!
你要学必须看那个!
do
begin
end
while();
(通过服务器中转)2003-06-09 12:50:56 Daniel.Wu
我用那个人的，可以了，但是我要做个循环  2003-06-09 12:53:45 Daniel.Wu
do while not ADOQuery1.eof 2003-06-09 12:53:52 Daniel.Wu
可以吗? 2003-06-09 12:49:41 
(2003-06-09 12:53:45)   Daniel.Wu
do while not ADOQuery1.eof 你就写
while not (ADOQuery1.eof ) do
begin
end;(通过服务器中转)2003-06-09 12:55:21 Daniel.Wu
你帮我写了程序，很简单的，我对Delphi不懂，我做ASP的，现在要写个Delphi的程序，我给你500分
 2003-06-09 12:55:24 Daniel.Wu
???????? 2003-06-09 12:52:04 
呵呵,没什么.共同进步.
噢,你要是想学delphi,需要学会自己看帮助.
不能什么不懂的就问人.那样问题解决了但是没进步的收获
(通过服务器中转)2003-06-09 12:57:56 Daniel.Wu
我知道，但是时间紧呀，我以前没有看过Delphi的，所以Delphi什么都不懂，一个很简单的，懂Delphi的只要<15分钟就可以解决了
 2003-06-09 12:58:03 Daniel.Wu
帮我吗？我给500 2003-06-09 12:53:43 
还有问题?
你说说什么问题?
(通过服务器中转)2003-06-09 12:54:34 
asp那玩艺我不会呀!
(通过服务器中转)2003-06-09 12:59:47 Daniel.Wu
我要做个程序是这样的，先得到一个recordset，然后做循环，在里面判断，如满足就插到另一表中
 2003-06-09 12:59:57 Daniel.Wu
简单吧，帮我吗? 2003-06-09 12:55:26 
试试.(通过服务器中转)2003-06-09 13:00:28 Daniel.Wu
select b.* from web_test a left join web_order_item b on a.web_order_number=b.web_order_number where b.item_section=5' 2003-06-09 13:00:46 Daniel.Wu
这是取出的集合的sql 2003-06-09 12:56:13 
还有那?
(通过服务器中转)2003-06-09 13:02:41 Daniel.Wu
在循环里面判断，根据上面b.web_order_item到另一个c表中查询select * from c where item=b.web_order_item and acrivity='Y'的然后把b.web_order_number写到另一个表中 2003-06-09 13:02:45 Daniel.Wu
简单吗? 2003-06-09 12:59:31 
简单.我在你刚才开的那个帖子里面回答把!
(通过服务器中转)2003-06-09 12:59:53 
可以吧?
(通过服务器中转)2003-06-09 13:04:43 Daniel.Wu
你做程序，一个buton就可以了，你发给我程序
 2003-06-09 13:00:05 
呵呵,可以!
(通过服务器中转)2003-06-09 13:04:55 Daniel.Wu
Thanks 2003-06-09 13:00:17 
稍等!
(通过服务器中转)2003-06-09 13:05:09 Daniel.Wu
OK 2003-06-09 13:05:18 Daniel.Wu
要快点，因为我还要调试 2003-06-09 13:00:53 
3s
(通过服务器中转)2003-06-09 13:05:48 Daniel.Wu
Ok 2003-06-09 13:09:43 
我写在刚才那个帖子里面了!可以么?
(通过服务器中转)2003-06-09 13:14:44 Daniel.Wu
程序发给我，我可以调试的 2003-06-09 13:10:28 
就几句话你从那上面拷贝下来就可以了!
(通过服务器中转)2003-06-09 13:15:41 Daniel.Wu
那要用什么控件? 2003-06-09 13:11:54 
adoquery 两个
ADOQuery2.open;    if (ADOQuery2.fieldbyname('sl').integer>0) then//如果有的话
    begin    ADOQuery2.sql.Clear; //你自己补充下面的语句    ADOQuery2.sql.add(' insert into ');
    ADOQuery2.ExecSQL;     end;        ADOQuery1.next;    end;(通过服务器中转)2003-06-09 13:12:09 
   ADOQuery1.First;    while not (ADOQuery1.eof ) do     begin
    ADOQuery2.sql.Clear;    ADOQuery2.sql.add('select count(acrivity) as sl from c where item='''+ADOQuery1.fieldbyname('b.web_order_item').asstring+''' and acrivity=''Y''');
 
(通过服务器中转)2003-06-09 13:12:56 
这个加到你button的begin  end 之间就可以了!噢,后的传的是上部,前面的是下部!
(通过服务器中转)2003-06-09 13:18:32 Daniel.Wu
我看看 

Answer 4

2003-06-09 13:13:54 
我的网络又坏了.呵呵,现在只能上qq,你调试看看!
(通过服务器中转)2003-06-09 13:25:19 Daniel.Wu
等等，我在调试 2003-06-09 13:27:46 Daniel.Wu
定义integer  strTemp:integer; 2003-06-09 13:27:50 Daniel.Wu
是这样吗 2003-06-09 13:23:26 
(2003-06-09 13:27:46)   Daniel.Wu
定义integer  strTemp:integer; 是的
(通过服务器中转)2003-06-09 13:30:04 Daniel.Wu
ADOQuery2.sql.add(' insert into web_test1(web_order_number) values ('ADOQuery1.FieldByName('web_order_number').AsInteger')') 对吗? 2003-06-09 13:25:32 
恩!
(通过服务器中转)2003-06-09 13:31:15 Daniel.Wu
if (ADOQuery2.fieldbyname('sl').integer > 0) then 包错 2003-06-09 13:31:56 Daniel.Wu
asinteger就可以了 2003-06-09 13:27:47 
呵呵,其他的可以么?
(通过服务器中转)2003-06-09 13:32:46 Daniel.Wu
       ADOQuery2.sql.add('insert into web_test1(web_order_number) values (ADOQuery1.FieldByName('web_order_number').AsInteger'))不对 2003-06-09 13:32:56 Daniel.Wu
好象不是这样平的 2003-06-09 13:33:05 Daniel.Wu
在delphi中怎么平呀 2003-06-09 13:28:35 
噢,你要转化一下!
(通过服务器中转)2003-06-09 13:33:33 Daniel.Wu
你给我平一下 2003-06-09 13:34:07 Daniel.Wu
拼变量 2003-06-09 13:29:48 
'web_order_number').AsInteger' 换成:
convert(int,'''+web_order_number').asstring+''')
试试
(通过服务器中转)2003-06-09 13:30:23 
怎么样>?
(通过服务器中转)2003-06-09 13:35:32 Daniel.Wu
不对呀，为什么要转string 2003-06-09 13:35:38 Daniel.Wu
表中是integer的 2003-06-09 13:31:09 
知道.就是要转化!
你试试看看行不行!
(通过服务器中转)2003-06-09 13:36:22 Daniel.Wu
为什么不能 2003-06-09 13:36:36 Daniel.Wu
为什么不能查integer 2003-06-09 13:32:42 
'web_order_number' 在sql 语句中只能是字符串
你将整型的放进去所以不行.
但是你数据库里是整型,所以要转换!
(通过服务器中转)2003-06-09 13:38:31 Daniel.Wu
你把sql写出来，我铁上去看看 2003-06-09 13:34:04 
(2003-06-09 13:29:48)   
'web_order_number').AsInteger' 换成:
convert(int,'''+web_order_number').asstring+''')
试试
(通过服务器中转)
(通过服务器中转)2003-06-09 13:36:17 
可以么?
(通过服务器中转)2003-06-09 13:42:06 Daniel.Wu
不可以呀，你把整个句都写出来好吗,谢谢 2003-06-09 13:39:39 
 ADOQuery2.sql.add('insert into web_test1(web_order_number) values 
(convert(int,'''+ADOQuery1.FieldByName('web_order_number').asstring+'''))')
(通过服务器中转)2003-06-09 13:45:56 Daniel.Wu
可以了，但是运行的时候到ADOQuery2.sql.add('insert into web_test1(web_order_number) values 
(convert(int,'''+ADOQuery1.FieldByName('web_order_number').asstring+'''))')
停下来了 2003-06-09 13:41:51 
没报错?
(通过服务器中转)2003-06-09 13:46:56 Daniel.Wu
是啊 2003-06-09 13:43:54 
那你在那句后面加上
inputbox('','',ADOQuery2.sql.text);
再运行看看弹出对话框的语句在查询分析器里能不能运行!(通过服务器中转)2003-06-09 13:51:46 Daniel.Wu
最后要想知道结束了没有，怎么加? 2003-06-09 13:52:00 Daniel.Wu
ADOQuery1.Free;
ADOQuery2.free; 2003-06-09 13:52:13 Daniel.Wu
最后加上这个可以吗? 2003-06-09 13:48:06 
你要是不是自己建立的ADOQuery而是直接摆放控件的不需要!
刚才叫你打出的话运行正常么?
(通过服务器中转)2003-06-09 13:53:43 Daniel.Wu
没有看出来，一直在运行，所以我想在最后加个message,delphi中是不 是这样的mesgebox('afasfa');? 2003-06-09 13:49:21 
showmessage('Hello');
(通过服务器中转)2003-06-09 13:57:45 Daniel.Wu
好了，感谢你，我马上给分 2003-06-09 13:53:14 
恭喜
(通过服务器中转)2003-06-09 13:58:03 Daniel.Wu
我先给你100，然后我在以danielsunny的提问，在给你400 2003-06-09 13:58:05 Daniel.Wu
可以吗? 2003-06-09 13:53:26 
噢
(通过服务器中转)2003-06-09 13:59:04 Daniel.Wu
非常感谢你，可以跟你学学Delphi吗? 2003-06-09 13:54:30 
一块学习了!(通过服务器中转)2003-06-09 13:59:43 Daniel.Wu
我delphi以前没有学过，呵呵，不好意思，太菜了 2003-06-09 13:55:21 
没什么.很简单只要你认真学习!
(通过服务器中转)2003-06-09 14:00:38 Daniel.Wu
我一直做VB的，所以有点对delphi不习惯 2003-06-09 13:56:28 
我没用过那个,但是觉得delphi功能可以支持正常的要求
(通过服务器中转)2003-06-09 14:02:57 Daniel.Wu
到基础类里面 2003-06-09 13:58:17 
噢(通过服务器中转)2003-06-09 14:01:19 
√~~~~~~~~~请大家帮帮小弟，过来看看,马上给分~~~~~~~~（GerardDu）
这个么?
(通过服务器中转)2003-06-09 14:07:35 Daniel.Wu
Y 

Answer 5

拼???var
str1,str2,str3:string;str1 := 'abc';
str2 := str1 + 'def';
str3 := str2 + #31 + #32 + #33;
str3 := inttostr(123) + str3;

Answer 6

ps:
问题我已经帮他解决，上面是我们在oicq里的谈话，希望大家不要当成倒分