copy.pas

Пример программы для функции Copy.

Код примера
{Copy.PAS}
 
 { Пример программы для функции Copy } 
 
  Var S : String;
 
  Begin
  S:='ABCDEF';
  S:=Copy(S, 2, 3); { 'BCD' }
End.

Скачать copy.pas