var S: array[0..79] of char;
begin
{ Set to all spaces }
FillChar(S, SizeOf(S), Ord(' '));
end;
begin
{ Set to all spaces }
FillChar(S, SizeOf(S), Ord(' '));
end;
解决方案 »
- 帮我看看,这样用PSafeArray为什么不正确
- 控件的OCX需要注册,可是客户的机子不允许注册
- 一个小问题
- 如何通过编程锁住注册表
- 《请教》怎么读取excel文档
- 列表对象持久化,内存狂飙??请问以下方式有没有释放内存?
- 帮个忙, 我没有DELPHI的光盘, 如何安装BDE? 我现在一个光WIN98, 数据库在服务器上, 没有BDE不可以访问!
- 再问“List Index out of bound(5)”
- 关于vod视频点播。
- 谁知道delphi 里类似QQ那种界面的控件 是什么控件吗>?
- 我要参加 Borland 大赛,大家给出个注意吧,怎样才算有创意?
- #13表示回车,请问#10和#0表示什么?
不过也可以实现的
var
a:array[0..3] of char;fillchar(a,sizeof(a),$20);
首部 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas
功能 返回字符串AText的ACount个复本
说明 当ACount为0时返回''
参考 function System.SetLength
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━ //Demo
//....
uses StrUtils; //for Delphi6
//....
DupeString(#32, 1); //like Space(1)
//....