unit uFMXTabItemWithCloseBtn; interface uses FMX.TabControl; type TTabControlHelper = class helper for TTabControl private procedure CloseButtonClick(Sender: TObject); procedure TimerOnTimer(Sender: TObject); public procedure CheckCloseBtn(c
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls; type TForm1 = class(TForm) tbc1: TTabControl; btn1: TBu
Delphi Jsonuses system.json var {statement json} InfoJson: TJSONObject；begin InfoJson := TJSONObject.ParseJSONValue({json字符串}) as TJSONObject; InfoJson.GetValue('unit')；{取值} end;
function CallCmd(CommandStr: string): string;const ReadBuffer = 4096;var Security: TSecurityAttributes; si: TStartUpInfo; pi: PROCESS_INFORMATION; hRead, hWrite: THandle; len: DWORD; ExitCode: DWORD; Buffer: PAnsiChar; hProcess: Integer;begin
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList, Vcl.StdCtrls, Vcl.ComCtrls; type TForm1 = class(TForm)
Var a,b,c :Integer; x1,x2 :Real; Procedure Solve(a,b,c :Integer;Var Fcsumx,Fcsumy :Real); begin if sqr(b)-4*a*c >= 0 then begin Fcsumx :=(sqrt((sqr(b)-(4*a*c)))-b)/(2*a); Fcsumy :=(-sqrt((sqr(b)-(4*a*c)))-b)/(2*a); end; end;
procedure TForm1.Button1Click(Sender: TObject);var f1:TFileStream; filename:String;begin OpenDialog1.Execute ; filename:=OpenDialog1.FileName ; f1:=TfileStream.Create (filename,fmopenread); try RichEdit1.Lines.LoadFromStream(f1);
uses ShlObj, ShellAPI,System.IniFiles, System.UITypes; function GetAutoRunFilePath(): String;var fileName, pathStartUp: String; path: array [0 .. 255] of Char;begin fileName := Application.title + '.url'; //url if SHGetSpecialFolderPath(0,