Клуб программистов

    Delphi функция Copy имеет 2 формы исполнения. В первом случае она создает новую строку из части существующей строки. Во втором - она создает новый массив из части существующего массива.

    1. Копия части строки.

    Первый символ строки имеет индекс = 1.

    Возвращает строку - от начального символа, указанное количество символов.

    Возможно копирование менее указанного количества символов, если конец строки наступит раньше.

    2. Копия части массива.

    Первый элемент массива имеет индекс = 0.

    Возвращает массив от начального элемента, указанное количество элементов

    Возможно копирование менее указанного количества элементов, если массив окажется короче.

1. копия части строки

var
   Source, Target : string;

begin
   Source := '12345678';
   Target := Copy(Source, 3, 4);
   ShowMessage('Target : '+Target);
end;

Target : 3456

2. копия части массива

var
   i : Integer;
   Source, Target : array of Integer;

begin
   SetLength(Source, 8);

   for i := 1 to 8 do // Build the dynamic source array
     Source[i-1] := i; // Remember that arrays start at index 0

   Target := Copy(Source, 3, 4);

   for i := 0 to Length(Target) -1 do // Display the created array
     ShowMessage('Target['+IntToStr(i)+'] : '+IntToStr(Target[i]));
end;

Target[0] : 4
Target[1] : 5
Target[2] : 6
Target[3] : 7