如何從字符串開頭到字符串結尾復制4個字符？

Question

例如：

var
s:string;
begin
s:='Hello1234567';

end;
end.

如何從字符串4字節4字節中復制..例如showmessage（'hell'）和showmessage（'o123'）和showmessage（'4567'）？

Answer 1

為此使用Copy()函數：

var
  s: string;
begin
  s := 'Hello1234567';
  ShowMessage(Copy(s, 1, 4));
  ShowMessage(Copy(s, 5, 4));
  ShowMessage(Copy(s, 9, 4));
end;