slinebreak、 raise用法

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

posted @ 2017-12-12 22:09  绿水青山777  阅读(281)  评论(0编辑  收藏  举报