var
s:string;
begin
for i:=1 to n do
s:=s+'a';
label1.caption:=s+'yourstr'
end;
s:string;
begin
for i:=1 to n do
s:=s+'a';
label1.caption:=s+'yourstr'
end;
解决方案 »
- 用TlkJSON解析JSON的问题
- Delphi Integer初始值
- *******************新买的自行车在存车处丢了,大家说怎么办,是花钱存的,能赔吗。******************
- 在cxgrid中输入数据怎样回车换行
- 试问:Application.OnMessage:=MyMsgProc
- 如何在fsMDIForm显示fsNormal窗体呢?
- 两个cxgrid点击触发对应
- 为什么不能传递窗体的handle给另一个类的hwnd数据类型的变量?????如何才能在另一个类中得到窗体的句柄??
- 请问在DELPHI中怎么样才能获取系统的目录如(windows目录啊winnt啊)
- delphi里如何自动注册ODBC数据源 sql server 找错,在线等
- 谁能给一个正确的SID的Delphi各式的声明!!!
- SQL语句中,这样为什么出现列名无效?
function AddChar(str:String;CharNumber: Int;ch:Char):String;
var ii: Integer;
begin
Result := str;
for ii := 1 to CharNumber do
Result := ch + Result;
end;
insert(String,Char,1);
string:='bbb';
for i:= 1 to 10 do insert('a',String,1);
结果string:='aaaaaaaaaabbb';