2022-12-24 136 0

Function DelChar(Ch : Char; S : String) : String; Var I : Integer;begin I := 1; While I <= Length(S) do begin If S[I] = CH then Delete(S, I, 1) else I := I + 1; end; result := S;end;procedure TForm1.FormCreate(Sender: TObject);beginCaption:=De

2022-12-24 21 0

procedure TForm1.Button1Click(Sender: TObject);var ValeurAleatoire: integer;begin repeat ValeurAleatoire := random(100); Memo1.Lines.Insert(0, ValeurAleatoire.ToString); until (ValeurAleatoire = 50);end;

2022-12-24 111 0

procedure TForm1.Button1Click(Sender: TObject);var i: integer;begin for i := StrToInt(Edit1.Text) downto 1 do Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);end;procedure TForm1.Button2Click(Sender: TObject);var i: integer;begin for i :=

2022-12-24 74 0

安卓动态申请权限清单类Delphi 有一个 Androidapi.JNI.Os 单元，有一个类：JManifest_permissionClass 权限清单类 //（访问登记属性）读取或写入登记check-in数据库属性表的权限 {class} property ACCESS_CHECKIN_PROPERTIES: JString read _GetACCESS_CHECKIN_PROPERTIES; //（获取粗略位置）通过WiFi或移动基站的方式获取用户错略的经纬度信息，定位精

2022-12-24 41 0

procedure TForm1.FormCreate(Sender: TObject);varFileSteam:TFileStream;beginFileSteam :=TFileStream.Create('u_in200416.log',fmShareDenyNone);memo1.Lines.LoadFromStream(FileSteam);end;

2022-12-24 73 0

unimemo1.Text:=UniApplication.RemoteAddress;

2022-12-24 47 0

unit Unit3;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm3 = class(TForm) Button1: TButton; procedure Button1MouseEnte

2022-12-24 23 0

procedure TForm1.Button1Click(Sender: TObject);begin Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);end;procedure TForm1.Button2Click(Sender: TObject);begin Label1.Caption := inttostr(strtoint(Label1.Caption) - 1);end;