指定した文字数だけ、文字列をコピー

Delphi

明解Ｃ言語 入門編 > 11. 文字列とポインタ >

指定した文字数だけ、文字列をコピー

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
function str_ncpy(d:PChar; s:PChar; n:Integer):PChar;

var

    i, j: Integer;

begin

    result := d;
    j:= 1;

    for i := 0 to n - 1 do

    begin

        if s^ <> #0 then

        begin

            d^ := s^;

            Inc(s);

            Inc(d);

        end

        else

        begin

            d^ := #0;

            j  := 0;

            break;

        end;

    end;
    if j = 1 then

        d^ := #0;

end;
procedure main();

const

    st1: String                = '1234567890';

    st2: String                = 'ABCDE';
    pt1: array[0..255] of Char = '1234567890';

    pt2: array[0..255] of Char = 'ABCDE';

var

    i: Integer;

begin

    Writeln(Format('st1 = %s', [st1]));

    Writeln(Format('st2 = %s', [st2]));

    Writeln('');
    st1 := Copy(st2, 1, 4);

    Writeln(Format('st1 = %s', [st1]));

    Writeln(Format('st2 = %s', [st2]));

    Writeln('');
    st1 := '1234567890';

    st1 := Copy(st2, 1, 6);

    Writeln(Format('st1 = %s', [st1]));

    Writeln(Format('st2 = %s', [st2]));

    Writeln('');





    Writeln(Format('pt1 = %s', [pt1]));

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');
    str_ncpy(pt1, pt2, 4);

    write('pt1 = ');

    for i := 0 to 9 do

        if pt1[i] = #0 then

            write(' ')

        else

            write(pt1[i]);

    Writeln('');

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');
    pt1 := '1234567890';

    str_ncpy(pt1, pt2, 6);

    write('pt1 = ');

    for i := 0 to 9 do

        if pt1[i] = #0 then

            write(' ')

        else

            write(pt1[i]);

    Writeln('');

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');





    pt1 := '1234567890';

    StrLCopy(pt1, pt2, 4);

    write('pt1 = ');

    for i := 0 to 9 do

        if pt1[i] = #0 then

            write(' ')

        else

            write(pt1[i]);

    Writeln('');

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');
    pt1 := '1234567890';

    StrLCopy(pt1, pt2, 6);

    write('pt1 = ');

    for i := 0 to 9 do

        if pt1[i] = #0 then

            write(' ')

        else

            write(pt1[i]);

    Writeln('');

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');





    pt1 := '1234567890';

    StrMove(pt1, pt2, 4);

    write('pt1 = ');

    for i := 0 to 9 do

        if pt1[i] = #0 then

            write(' ')

        else

            write(pt1[i]);

    Writeln('');

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');
    pt1 := '1234567890';

    StrMove(pt1, pt2, 6);

    write('pt1 = ');

    for i := 0 to 9 do

        if pt1[i] = #0 then

            write(' ')

        else

            write(pt1[i]);

    Writeln('');

    Writeln(Format('pt2 = %s', [pt2]));

    Writeln('');

end;
begin

    main;

end.
実行結果


S:\>lesson086\project1.exe

st1 = 1234567890

st2 = ABCDE
st1 = ABCD

st2 = ABCDE
st1 = ABCDE

st2 = ABCDE
pt1 = 1234567890

pt2 = ABCDE
pt1 = ABCD 67890

pt2 = ABCDE
pt1 = ABCDE 7890

pt2 = ABCDE
pt1 = ABCD 67890

pt2 = ABCDE
pt1 = ABCDE 7890

pt2 = ABCDE
pt1 = ABCD567890

pt2 = ABCDE
pt1 = ABCDE 7890

pt2 = ABCDE