Delphi 2009 之 TStringBuilder 类[5]: Chars[] 属性与 CopyTo 方法-白红宇

Delphi 2009 之 TStringBuilder 类[5]: Chars[] 属性与 CopyTo 方法

阅读量：7061 次

发布时间：2019-06-28

本文共 954 字，大约阅读时间需要 3 分钟。

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}//TStringBuilder.CopyToprocedure TForm1.Button1Click(Sender: TObject);var  sb: TStringBuilder;  arr: TCharArray;  i: Integer;begin  sb := TStringBuilder.Create;  sb.Append('123456789');  SetLength(arr, 9);  for i := Low(arr) to High(arr) do arr[i] := '*';  sb.CopyTo(3, arr, 1, 5);  ShowMessage(PChar(arr));   {*45678***}  sb.Free;end;//TStringBuilder.Charsprocedure TForm1.Button2Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create('Delphi 2009');  ShowMessage(sb.Chars[0]);             {D}  ShowMessage(sb.Chars[sb.Length - 1]); {9}  sb.Free;end;end.

转载于:https://my.oschina.net/hermer/blog/320558

你可能感兴趣的文章

字符串的截取,substr和mb_substr