phmg.net
当前位置:首页 >> DElphi FilE oF >>

DElphi FilE oF

procedure TForm1.FormPaint(Sender: TObject);var A,x1,y1,x2,y2:Double; D:integer; I:Integer; E,M_PI:Double;begin D:=100; M_PI:=3.1415926535897932; for I:=0 to 720 do begin A:=I*M_PI/360; E:=D*(1+sin(12*A)); x1:= 320+E*cos(A); x2...

Delphi同Object Pascal一样支持三种文件类型,即:文本文件、记录文件、无类型文件。 文本文件 文本文件类型的变量用如下方法声明: var TextFileVar: Text ; 文本文件是以行为单位进行读、写操作的。由于每一行长度不一定相同,不能计算出给定...

//用TFileStream来读写文件 Delphi/Pascal code? var fs : TFileStream; begin fs := TFileStream.Create('文件路径', fmCreate); end; //写文件时 fs.Write(data, dataSize);

在 Delphi 里可以使用 FileExists / DirectoryExists 函数来判断指定文件、文件夹是否存在,也可以使用 GetFileAttributes 函数来获取指定目标属性来判断,以下是示例: procedure TForm1.Button1Click(Sender: TObject);begin if FileExists('e...

楼主该去好好看看 delphi / bcb 的帮助 文件 给你看看bcb6的帮助文件里的东西 On Windows: static const char PathDelim = '\\'; static const char DriveDelim = ':'; static const char PathSep = ';'; Description File name constants speci...

使用下面的函数即可,此函数使用了SHFileOperation API函数。代码如下: Function Copy_Dir(SourceDir,DestDir:String;nLx:Integer):Boolean; Var Opstruc: TshFileOpStruct; frombuf,tobuf: Array[0..128] of Char; begin FillChar(frombuf,Siz...

第一种方法,使用SelectDirectory 函数 ,在ShellApi中 procedure TForm2.BtSelectPathClick(Sender: TObject); var strCaption,strDirectory:String; wstrRoot:WideString; begin strCaption:='这是浏览文件夹的说明文字,可以根据需要进行书写。...

Var buf: Array[0..5] Of Ansichar;Begin With TFileStream.Create('d:\aaa.txt', fmOpenWrite) Do Begin Try Seek(0, soEnd); StrPCopy(buf, '123abc'); WriteBuffer(buf, SizeOf(buf)); Finally Free; End; End;

var filea:file of byte; fsize:integer;begin assignfile('txt.txt',filea); reset(filea); fsize:=filesize(filea);//获得文件大小 end; end; 查看更多答案>>

Tsearchrec是一个记录类型 TSearchRec = record Time: Integer; Size: Integer; Attr: Integer; Name: TFileName; ExcludeAttr: Integer;

网站首页 | 网站地图
All rights reserved Powered by www.phmg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com