sample - string read char.pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

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