Componentes.Terceros.jvcl/internal/3.36/1/examples/JvInterpreterDemos/JvInterpreterTest/samples/sample - string write char.pas

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