按自定义长度截取字符串,运行结果如下:
代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
S,SS01,SS02,SS03,SS04:string;
I:Integer;
function STR (SS:string;I:Integer):string;
var
J,K,h:Integer;
MYARRAY:array of string;
begin
K:=Ceil(Length(SS)/I);
for h:=1 to k do
begin
begin
SS02:=Copy(SS,I+1,Length(SS));
SS01:=StringReplace(SS,SS02,‘‘,[rfReplaceAll, rfIgnoreCase]);
SS:=SS02;
SS04:=SS01;
J:=Length(SS02);
{
IF Length(SS02)>I then
begin
//SS03:=STR(SS02,I);
//SS:=SS02;
//SS02:=Copy(SS,I+1,Length(ss));//lenth函數費時,速度慢,長度多了4byte。
SS02:=Copy(SS,I+1,1000000);//這樣會快很多
//SS01:=StringReplace(SS,SS02,‘ ‘,[rfReplaceAll, rfIgnoreCase]);
end;
}
end;
//SS03:=SS03+#13#10+SS04;//回車鍵加在前面
SS03:=SS03+SS04+#13#10;//回車鍵加在後面
end;
Result:=SS03;
end;
begin
//SS:=StringReplace(‘123456‘,#13,‘‘,[rfReplaceAll, rfIgnoreCase]);//#13是SqlServer的換行方式
{ SS:=‘ABCDEFGHIJK‘;
I:=Length(SS)div 4;
if I>1 then
begin
SS02:=Copy(SS,5,Length(SS));
SS01:=StringReplace(SS,SS02,‘ ‘,[rfReplaceAll, rfIgnoreCase]);
S:=SS01+#13+SS02;
end; }
S:= STR(‘ABCDEFGHIJKLMN‘,4);
ShowMessage(S);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
ss:string;
begin
ss:=‘i am chinese!‘;//13個字符,包括空格。
ShowMessageFmt(‘%d‘,[SizeOf(ss)]);//4,此處為4字節,說明delphi中的string是一個指針!
ShowMessageFmt(‘%d‘,[Length(ss)]);//13,取到ss里保存的字符个数
end;
end.