string.pas

来自「FastScript 1.94 Full Source」· PAS 代码 · 共 20 行

{**************************}
{ FastScript v1.0          }
{ String demo              }
{**************************}

var
  i, j: Integer;
  s: String;

begin
  s := 'Hello World!'#13#10'It''s working!';

  j := 0;
  for i := 1 to Length(s) do
    if s[i] = ' ' then
      Inc(j);

  ShowMessage(j);
end.