Как можно скопировать 4 символа от начала строки до конца строки?

Question

Например:

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

end;
end.

Как скопировать из строки 4 байта 4 байта .. Пример showmessage ('ад') и 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;