文字列リテラルの大きさを表示する

明解Ｃ言語 入門編 > 9. 文字列の基本 >

文字列リテラルの大きさを表示する

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure main();

begin

    Writeln(Format('sizeof("123") = %d', [SizeOf('123')]));

    Writeln(Format('sizeof("AB\tC") = %d', [SizeOf('AB'#9'C')]));

    Writeln(Format('sizeof("abc\0def") = %d', [SizeOf('abc'#0'def')]));

    Writeln('');
    Writeln(Format('sizeof("123") = %d', [Length('123')]));

    Writeln(Format('sizeof("AB\tC") = %d', [Length('AB'#9'C')]));

    Writeln(Format('sizeof("abc\0def") = %d', [Length('abc'#0'def')]));

end;
begin

    main;

end.

実行結果

S:\>lesson068\Project1.exe

sizeof("123") = 4

sizeof("AB\tC") = 4

sizeof("abc\0def") = 4
sizeof("123") = 3

sizeof("AB\tC") = 4

sizeof("abc\0def") = 7