sample - string read char.pas

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

var
  S: string;
begin
  //[translated]:
  Result := 'Greetings' + #13;
end;