源码文件
var F : TSearchRec; begin Result := F.Attr; end;
Sample 源代码
Sample来自古法语essample。英文sample,specimen,example这三个名词都有“样子”，“样品”的含义。sample所表示的“样品”指的是其它的都与这个“样品”在质量、性质和设计上相同。例如推销员持本厂的产品的“样品”去推销，或出版社要求你把自己的书稿寄…
收录资源 500 份
全站深度检索
共匹配 500 份工程资源
· 第 47 / 50 页
源码文件
program project1; uses UUnit2 in 'UUnit2.pas', UUnit3 in 'UUnit3.pas'; begin UFunction; //S := S + '!'; end.
源码文件
unit U; function main: Integer; var I: integer; begin Result := 0; for i := 1 to 1000 do Result := square(i); …
源码文件
unit TestUnit1; uses 'TestUnit 2'; function main: string; begin Result := TestUnit2Func; end; end.
源码文件
unit a; function main; var pDlg: TForm; pControl: TControl; pPoint: TPoint; begin pDlg := TForm.Create(nil); t…
源码文件
var A: array[1..10] of integer; begin Result := A[10]; end;
源码文件
unit Unit1; procedure main; var i: Integer; begin for i := 1 to 100000 do begin func(i); end; end; proce…
源码文件
var B : TControl; P: TPoint; begin P := Point(0, 0); B := Application.FindComponent('Test').ClientToScreen(P); Res…
源码文件
var C: Integer; begin Result := 0; C := 2; case C of 1: begin Result := 1; end; 1 + …
源码文件
unit UserName; function main: string; var S: string; Sz: Integer; begin S := ''; Sz := 255; SetLength(S, Sz); …