procedure TForm1.sEdit1Change(Sender: TObject);procedure TForm1.sEdit1Change(Sender: TObject);var i: integer; str: string; c: char; arr: array[0..200, 0..200] of string; A, j: integer;begin str := sedit1.text; for i := 0 to length(str) do begin
简单记录，有时候会需要用到，记性不好。有时候做接口或其他需要用到HTTPS的访问，通常情况下HTTPS服务所配置的证书是正确可使用的，但有时候也会遇到证书有问题的情况。所以我们有时候需要在使用HTTPS的时候忽略掉证书验证的问题。TNetHTTPClient有一个事件：onValidateServerCertificate这个事件可以记我们处理证书验证，要忽略证书的正确性，只需要我们在事件里填写**Accepted:=True;**即可，系统会永远认为证书是正确的。当然你也可以在这里写其他处理代码去验证
Java开发安卓时，会使用onResume及onPause处理APP的执行状态，而在使用delphi做安卓开发时，在主窗体的各事件中不能处理这对应的状态切换事件（至少目前我没找到）。有时候，我们需要在APP暂时处于非活动状态及恢复激活时完成一些工作，为此，需要增加一个事件的响应处理。引用 FMX.Platform增加一个事件处理过程：function AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;1其中的TAppli
uses Androidapi.JNI.GRaphicsContentViewText, Androidapi.Jni, Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNIBridge, Androidapi.JNI.Util, Androidapi.Jni.Provider, Androidapi.Jni.Net, Androidapi.Jni.App;procedure TForm2.Button3Click(Sender
unit Unit2;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Controls.Presentation, FMX.StdCtrls;ty
Delphi IdFTP 错误：Socket error 10054 �C connection reset by peer -连接被重置 问题场景：连接本地正常，连接远程服务器出现异常原因分析：IdFTP连接的2种模式：主动和被动。默认使用主动模式解决方法：连接远程服务器。设置IdFTP为被动模式1IdFTP1.Passive :=True; // 被动模式 博客园 滔Roy https://www.cnblogs.com/guorongtao
uses Generics.Collections; {Delphi 2009 新增的泛型容器单元}var aa: TDictionary<integer,integer>; arr : TArray<Integer>; n : integer;begin aa := TDictionary<integer,integer>.Create; try aa.add(1,11); aa.add(2,22); aa.add(3,33); a
procedure TForm1.btn1Click(Sender: TObject);const Arr:array[1..10] of string[11]=('13622220001', '13622220002','13622220003','13622220004', '13622220005','13622220006','13622220007',