setlength取得字符串长度 设置字符长度

功能说明： //setlength取得字符串长度 设置字符长度
//取得字符串长度length();
procedureTForm1.btn1Click(Sender: TObject);
var
  str: string;
begin
  str := 'abcd';
  ShowMessage(IntToStr(length(str)));
end;



//设置字符长度setlength()
procedureTForm1.Button1Click(Sender: TObject);
var
  mystr: string;
begin
  mystr := 'hello';
  setlength(mystr, 3); //将字符串定义为3个字节的长度
  showmessage(mystr);
end;

通过 Wiz 发布