摘要:
//版本一:吃完一个就结束了。unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Control 阅读全文
摘要:
//版本一:吃完一个就结束了。unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Control 阅读全文
摘要:
uses System.Rtti, System.JSON; type TPerson = class public Name: string; Age: Integer; end; function ObjectToJSON(AObject: TObject): string; var Conte 阅读全文
摘要:
uses Classes, SyncObjs; type TItem = class Data: Integer; end; TProducer = class(TThread) private FQueue: TThreadedQueue<TItem>; protected procedure E 阅读全文
摘要:
uses SysUtils, Classes, DateUtils; const LineBreak = #13#10; type TSubtitle = record Start, Stop: TDateTime; Text: string; end; function ParseASS(cons 阅读全文
|