delphi里面有没有VB中mid函数？

Question

string s
s=Space$(120)
mid(s,10)="Hello" '我让s生成120个空格，我在第10位插入hello而delphi的copy不支持左赋值
var
 s :PChar; s:=StrAlloc(120); 我如何把Hello插入第10位呢？ 其他位还是保留空格

Answer 1

var
  s : PChar;
begin
  s := StrAlloc(121);                       //应该是申请121个字节的空间，因为最后一个字节要放C字符串的结束符#0
  FillChar (s[0], 120, ' ');                //填充120个空格字符
  Move ('Hello', s[9], Length('Hello');     //填写'Hello'到第10个字符处
  ShowMessage(s);
end;