摘要:
同事写了这样的一个函数: Function TForm11.Get(s:string):string; var i:Integer; begin for i:=0 to 9 do begin result:=result+i.tostring; end; result:=s+result; end; 阅读全文
摘要:
procedure TMainDataModule.SendNotification(const ATitle, AAlertBody, AData: string); var mNotice: TNotification; begin if NotificationCenter1.Supporte 阅读全文