Format函数中的换行（原创）

在 format 函数的格式字符串中可使用 '#13#10' 来换行，注意两侧各有一个单引号。

procedure TForm1.Button1Click(Sender: TObject);
var
  b: Double;
  c: Extended;
begin
  b := 20000/1.01;
  c:=20000/1.01;
  memo1.Text := Format('%16.13f'#13#10'%16.13f', [b, c]);
end;