procedure TForm4.WebButton2Click(Sender: TObject);procedure DialogProc(AValue: TModalResult); var s: string; begin if AValue = mrYes then begin WebButton2.Caption:='mbYes'; end; if AValue = mrNo then begin WebButton2.Cap
今天在做一个Delphi项目的时候，要求要给银行的某些字段进行按位数进行补0,没有找到Delphi提供的专门函数于是自己就简单的实现了一个，现在拿出来分享一下，当然了很简单：参数1：要进行补0操作的原始字符串。参数2：要将该字符串补0后的位数。 //注：该参数是补0后的字符串长度function LeftFillZero(str1:string; count:Integer) :string;var temp : string; len, idex :Integer; begin len :=
uses System.Net.Mime,System.Net.HttpClient;function Upload(const aFilePath: string): boolean;var vData: TMultipartFormData; // uses System.Net.Mime vHTTP: THTTPClient; // uses System.Net.HttpClient vCRC: cardinal; vURL: string; vResp: TStringStream;
取出鼠百标点击的 StringGrid 中某单度元格的值，示例知代码如下：道procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);begin ShowMessage(StringGrid1.Cells[ACol,ARow]);end;运行截图：
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;type TForm1 = class(TForm) VersLeHaut: TButton; VersLaDro
unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm2 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TO
首先，Delphi要在Uses部分，把要使用的外部程序的类写入。在这里，我们把“ExtCtrls,ComObj”写入Uses部分。将Listview列表中的数据导入到Excel文件中。procedure TfreadExcel.WriteExcel;var i,idex : Integer; ExcelApp:Variant;begin try dlgSave.FileName := '学生信息.xls'; if dlgSave.Execute then begi
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit, FMX.Controls.Presentation, FMX.StdCtrls;type TForm1 = class(TForm) Bu