问一个字符填充函数 在Delphi中,哪一个字符处理函数可以,将一个字符串,用指定的字符,填充到指定的长度? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function CopyStr( s:string;n:integer):string; //将字符串复制N次接连起来。var i,j,k:integer;begin result := ''; if n<1 then exit; k :=length(s); SetLength(Result,k*n); for i := 0 to n-1 do for j := 1 to k do result[i*k+j] := s[j] ;end; 重复10个SStringOfChar('S', 10) -> 'SSSSSSSSSS' StringOfChar不能够将一个字符串,用指定的字符,填充到指定的长度它只能够将一个字符,用指定的字符填充到指定的长度. 首部 function DupeString(const AText: string; ACount: Integer): string;功能 返回字符串AText的ACount个复本说明 当ACount为0时返回''参考 function System.SetLength例子 Edit3.Text := DupeString(Edit1.Text, 10); 首部 function DupeString(const AText: string; ACount: Integer): string;功能 返回字符串AText的ACount个复本说明 当ACount为0时返回''参考 function System.SetLength例子 Edit3.Text := DupeString(Edit1.Text, 10);------------------------------------------------------uses StrUtils 还是考虑从copy/leftstr/rightstr入手吧比如要将'abcd'加到'1234'中的12后面:str1:='abcd';str2:=copy('1234',1,2)+str1+copy('1234',3,2);其中的位置可以用length来控制如果用后两者要uses StrUtils单元 procedure FillChar(var X; Count: Integer; Value: Byte); 做个简单的IE浏览器(送100分) 第4个百分帖...... ◆连接unix服务器的oracle,客户端需要修改吗◆ 关于ado的编程时提示问题? COM+封装ADO问题,请教高手 关于第三方控件的问题 如何在dbgrid中置类似于DateTimePicker的控件 Dephi 中如何处理超连接?比如 点击 “专家门诊”可以打开浏览器并连接到 www.csdn.net !!!!!升级了,大家快来领分啊!!!!! 特急,请高手帮我看一下以下的C编写为delphi对吗?若有不妥,请高手编写一下.谢谢 急问关于ftp的问题 如何 RzNumericEdit 控件 显示货币的格式??????????
//将字符串复制N次接连起来。
var
i,j,k:integer;
begin
result := '';
if n<1 then exit;
k :=length(s);
SetLength(Result,k*n);
for i := 0 to n-1 do
for j := 1 to k do
result[i*k+j] := s[j] ;
end;
StringOfChar('S', 10) -> 'SSSSSSSSSS'
它只能够将一个字符,用指定的字符填充到指定的长度.
功能 返回字符串AText的ACount个复本
说明 当ACount为0时返回''
参考 function System.SetLength
例子 Edit3.Text := DupeString(Edit1.Text, 10);
功能 返回字符串AText的ACount个复本
说明 当ACount为0时返回''
参考 function System.SetLength
例子 Edit3.Text := DupeString(Edit1.Text, 10);
------------------------------------------------------
uses StrUtils
比如要将'abcd'加到'1234'中的12后面:
str1:='abcd';
str2:=copy('1234',1,2)+str1+copy('1234',3,2);
其中的位置可以用length来控制如果用后两者要uses StrUtils单元