2022-12-28 83 0

测试文件：animals.csv"NAME","SIZE","WEIGHT","AREA""Angel Fish",2,2,"Computer Aquariums""Boa",10,8,"South America""Critters",30,20,"Screen Savers""House Ca

2022-12-28 53 0

在Delphi的VCL中使用TMemo读取大量字符串时，您编写的代码通常如下。procedure StringToMemo(AMemo:TMemo;AString:String); // Memo1复制ASTRING到begin AMemo.Lines.BeginUpdate; AMemo.Lines.Text:=ASring; AMemo.Lines.EndUpdate;end;另外，当通过TStringList传递一个巨大的字符串时：procedure StringToMemo(AMemo:T

2022-12-28 75 0

1. TEditButton这是一个普通的按钮。您还可以通过在Text属性中设置一个值来显示字符（test我将字符放在此处）。2. TClearEditButton此按钮标有叉号。实现了单击时删除TEdit.Text的功能。3. TPasswordEditButton顾名思义，它是一个密码按钮。已实现一项功能，该功能可将TEdit.Password属性在按下时设置为False，在按下时设置为True。4. TSearchEditButton这也是一个易于理解的搜索按钮。此按钮未实现任何功能，因此您可以使

2022-12-28 35 0

program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils, System.Classes, System.Net.HttpClient, System.RegularExpressions;const url = 'http://www.delphitop.com/';varmatchs: TMatchCollection;m: TMatch;begin var http := THttpClient.

2022-12-28 67 0

关于如何使用由Delphi开发的智能手机应用程序检查屏幕方向的备忘录。环境：Delphi 10.3 Rio方法可以通过查询FMX.Platform.TPlatformServices上的IFMXScreenService获得。uses FMX.Platform;{$R *.fmx}procedure TForm1.btnGetScreenOrientationClick(Sender: TObject);var screenService: IFMXScreenService;begin if T

2022-12-28 45 0

program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils, System.Classes, System.Net.HttpClient, System.RegularExpressions;const url = 'http://www.delphitop.com/';begin var http := THttpClient.Create; var sl := TStringList.Create;

2022-12-28 66 0

program ExitLoop;{$APPTYPE CONSOLE}label CN;begin for var i:=1 to 10 do begin for var l:=1 to 10 do begin Writeln(i, ',' , l); if (i = 5) and (l = 5) then goto CN; // goto end; end; CN: W

2022-12-28 72 0

剪贴板就在前几天，我在Clipboard上看到了一篇文章，顺便说一句，Delphi中的Clipboard太容易使用了，我还没有用Qiita编写它，也许您不知道从柏林出来的新Clipboard服务！我决定写它。*本文适用于FireMonkey。VCL是另一种方式。unit1.pasunit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Typ