先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): {自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end; end; {调用上面的自定义方
Delphi 10.3.1发布了,对10.3.0存在的各种问题,做了大量的修正.但听高勇说TNetHttpClient在多线程中存在问题,今天做了一下测试,确实如此,看来,还需要官方进一步修正! 具体测试方法,直接上代码: procedure TForm1.Button3Click(Sender: TObject); var i: Integer; begin do // 大于2,无法测试通过. begin TThread.CreateAnonymousThread( procedure() v
Delphi 10.1 Berlin UTF8String Test procedure TForm1.Button1Click(Sender: TObject); var s: UTF8String; i: Integer; begin s := UTF8Encode('123中文测试'); Memo1.Lines.Add(UTF8Decode(s)); for i:=Low(s) to High(s) do Memo1.Lines.Add(i.ToString + )); end;
Delphi 10.1 Berlin 官方修正列表: Bug fix list for RAD Studio 10.1 Berlin Delphi 10.1 Berlin 官方未列之修正: 修正 iOS App 设定为全屏后,无法使用 Zoom, Pan, LongTap 等手势.https://quality.embarcadero.com/browse/RSP-13840 (2016/04/28 被设定为解决) 修正 ListView 移动平台 (iOS, Android) 与 Window
Delphi 10.1 Berlin Starter Edition Embarcadero® Delphi 10.1 Berlin Starter is a great way to get started building high-performance Delphi apps for Windows. Delphi Starter includes a streamlined IDE, code editor, integrated debugger, two-way visual de
n 10.1 Berlin the ActiveX project types are missing from the New Items Window under Delphi. They are there for C++Builder, but not for Delphi. This only happens if you use the shiney new Feature Installer that was introduced with 10.1 Berlin. So if y
In this article I will show you how to connect yourdesktop and mobile applications to a mobile backend as a service (mBaaS) with Delphi 10.1 Berlin. I normally use Parse.com as a backend but as they announce that they will close their mBaaS service I
