test4.cs2

来自「Delphi script parser」· CS2 代码 · 共 11 行

Program CajScriptTest;
var S: String;
begin
 S := 'This is a test string';
 while Pos(' ', S) > 0 do Begin
   Insert('[SPACE]', s, pos(' ',s));
   Delete(s, pos(' ', s), 1);
  End;
  writeln(s);
end.