sample - string write char.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 8 行

var
  S: string;
begin
  S := '1234567890';
  S[4] := '!';
  Result := S;
end;