Delphi结构,字符串和指针
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
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
(前略) private { Private } FFileName: String; FEncodingIndex: Integer; public { Public } end;(后略)var Enc: TEncoding;begin if OpenTextFileDialog1.Execute then begin FFileName := OpenTextFileDialog1.FileName; FEncodingInde
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.
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
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
可以通过设置baiPageControl1.TabIndex属性来达到du你的zhi目的.如: PageControl1.TabIndex := 0 将跳出到TabSheet1PageControl1.TabIndex := 1 将跳出TabSheet2...procedure TForm1.Button1Click(Sender: TObject);begin//激活第一页面PageControl1.TabIndex := 0;end;procedure TForm1.PageControl1Chan
// 高精度的延时,精确到Ms , 100ms以内采用,或要求误差极小// 删除Application.ProcessMessages 影响精度procedure DelayMsEx(Ms: LongWord);var iFreq, iStartCounter, iEndCounter: Int64;begin QueryPerformanceFrequency(iFreq); QueryPerformanceCounter(iStartCounter); repeat QueryPerf
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;