procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s := 'dsd' ;
s:= s + slinebreak +s; //sLineBreak 换行
raise
Exception.Create('test');
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s := 'dsd' ;
s:= s + slinebreak +s; //sLineBreak 换行
raise
Exception.Create('test');
end;