Правила форума
StrECopy.PASЯзык:
Русский
English
{ Пример программы для функции StrECopy }
uses Strings, Crt;
const
Turbo : PChar = 'Turbo';
Pascal : PChar = 'Pascal';
var
S : Array [0..15] Of Char;
begin
StrECopy(StrECopy(StrECopy(S, Turbo), ' '), Pascal);
WriteLn(S);
end.
const
Turbo : PChar = 'Turbo';
Pascal : PChar = 'Pascal';
var
S : Array [0..15] Of Char;
begin
StrECopy(StrECopy(StrECopy(S, Turbo), ' '), Pascal);
WriteLn(S);
end.
::
::
::
