文字列の走査

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

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure put_string(str:String);

var

    i: Integer;

begin

    for i := 1 to Length(str) do

        write(str[i]);

end;
procedure main();

var

    str: String;

begin

    str := 'ABC';

    put_string(str);

    write(#13#10);

end;
begin

    main;

end.

実行結果



S:\>lesson073\Project1.exe

ABC