2022-12-27 48 0

C 语言版#include <stdio.h>#include <stdlib.h>//结构体声明typedef struct { int num; char *str;} strct;int main(void) { //生成指针类型变量 strct *entity; //确保动态内存 entity = (strct*)malloc(sizeof(strct)); //初始化成员 entity->num = 0; en

2022-12-27 38 0

(前略) private { Private } FFileName: String; FEncodingIndex: Integer; public { Public } end;(后略)var Enc: TEncoding;begin if OpenTextFileDialog1.Execute then begin FFileName := OpenTextFileDialog1.FileName; FEncodingInde

2022-12-27 45 0

program ExitLoop;{$APPTYPE CONSOLE}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 end; end; Writeln('Done.'); Readln;end.

2022-12-27 45 0

uses shellapi;procedure CreateOpenDir(h : THandle; dir : string ; IsOpen : Boolean = False);var s : Cardinal;begin if not DirectoryExists( dir ) then //判断目录是否存在 begin ForceDirectories(dir); // fileSetAttr(dir,faDirectory); // CreateDirectory(PC

2022-12-27 30 0

function GetFieldValue(separator: Char; strLine: string; nNum: Integer): string;var Strs: TStrings; ResultStr: string;begin Strs := TStringList.Create; Strs.Delimiter := separator; Strs.DelimitedText := strLine; if nNum > Strs.Count then Resu

2022-12-27 78 0

可以通过设置baiPageControl1.TabIndex属性来达到du你的zhi目的.如: PageControl1.TabIndex := 0 将跳出到TabSheet1PageControl1.TabIndex := 1 将跳出TabSheet2...procedure TForm1.Button1Click(Sender: TObject);begin//激活第一页面PageControl1.TabIndex := 0;end;procedure TForm1.PageControl1Chan

2022-12-27 36 0

// 高精度的延时，精确到Ms , 100ms以内采用，或要求误差极小// 删除Application.ProcessMessages 影响精度procedure DelayMsEx(Ms: LongWord);var iFreq, iStartCounter, iEndCounter: Int64;begin QueryPerformanceFrequency(iFreq); QueryPerformanceCounter(iStartCounter); repeat QueryPerf

2022-12-27 41 0

procedure TMainForm.FormCreate(Sender: TObject);var MyReg : TRegistry; InsDate, LastUseDate, TryDate : TDateTime; Total : PAnsiChar; TotalStr : String;begin MyReg := TRegistry.Create; MyReg.LazyWrite := False; MyReg.RootKey := HKEY_LOCAL_MACHINE;