明解Ｃ言語 入門編 > 11. 文字列とポインタ > 文字列のコピー Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function str_cpy(d:PChar; s:PChar):PChar; begin result := d; repeat d^ := s^; Inc(s); Inc(d); until (s^ = #0); d^ := s^; { \0…