Fungsi Copy

1	function Copy ( Source : string; StartChar, Count : Integer ) : string;
2	function Copy ( Source : array; StartIndex, Count : Integer ) : array;

Fungsi Copy memiliki 2 bentuk. Pada yang pertama, itu menciptakan string baru dari bagian dari string yang sudah ada. Dalam kedua, ia menciptakan sebuah array baru dari bagian dari array yang ada.
 
1. String copy
 
Karakter pertama dari string memiliki index = 1.
Sampai Menghitung karakter yang disalin dari StartChar dari string Sumber ke string dikembalikan.
Kurang dari Hitung karakter jika akhir dari string Sumber ditemui sebelum karakter Hitung telah disalin.


Contoh code : String Copy 

var
  Source, Target : string;

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

Hasil :

2. Array copy
 
Elemen pertama dari array memiliki index = 0.
Sampai Menghitung elemen yang disalin dari startIndex dari array ke array Sumber dikembalikan.

Kurang dari elemen Hitung jika akhir dari array Sumber ditemui sebelum elemen Hitung telah disalin.

Contoh code : array copy

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

begin
  SetLength(Source, 8);

  for i := 1 to 8 do   // source array
    Source[i-1] := i;   // ingat bahwa array dimulai dari 0
  Target := Copy(Source, 3, 4);

  for i := 0 to Length(Target) -1 do   

     

  begin

  memo1.lines.add('Target['+IntToStr(i)+'] : '+IntToStr(Target[i]));
  end;

end;

Hasil :