var
k:integer;
w,s:widestring;begin
w:= ('字符串相加');
s:='';
for k:= 0 to length(w) do begin
s:= s+w[k];
m1.lines.add(s);// 這樣子結果是空的。
m1.lines.add(w[k]);//widestring類型的Tmemo 加入是正常的
end; edit1.Text:=s;//這里結果也是空的到底要怎么寫s:= s+w[k]; 才能得到結果 '字符串相加';
k:integer;
w,s:widestring;begin
w:= ('字符串相加');
s:='';
for k:= 0 to length(w) do begin
s:= s+w[k];
m1.lines.add(s);// 這樣子結果是空的。
m1.lines.add(w[k]);//widestring類型的Tmemo 加入是正常的
end; edit1.Text:=s;//這里結果也是空的到底要怎么寫s:= s+w[k]; 才能得到結果 '字符串相加';
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货