Delphi读取文件和写入文件总结|Delphi技巧 TTTBLOG

2009-06-15529416

Delphi读取文件和写入文件总结
---
读取文件：
1，关联文件：AssignFile(pMyFile,^c: tt.csv^);
2，打开文件：Reset(pMyFile);
3，读取一行：Readln(pMyFile,pStr);
4，关闭文件：CloseFile(pMyFile);

示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  pMyFile:textfile;
  pStr : string;
begin

    if OpenDialog1.Execute then begin
        Assignfile(pMyFile,OpenDialog1.FileName);
        Reset(pMyFile);
        while not Eof(pMyFile) do begin
            Readln(pMyFile,pStr);
            //fn_DelStock(pStr);  //使用读取的字符串相关语句
            next;
        end;
        CloseFile(pMyFile);
    end;

end; 

+++
写入文件：
1，关联文件：AssignFile(pMyFile,^c: tt.csv^);
2，打开文件：ReWrite(pMyFile);   //如果文件不存在,用ReWrite打开
             Append(pMyFile);   //如果文件已经存在,追加内容，用Append打开
3，写入一行：WriteLn(pMyFile,pStr); 
4，关闭文件：CloseFile(pMyFile);

示例一：

procedure TForm1.Button1Click(Sender: TObject);

var

  i:integer  ;

  pMyFile: textfile;

begin

    system.AssignFile(pMyFile,^d: est.txt^);

    rewrite(pMyFile);

    {closefile(pMyFile);　　

 

    system.AssignFile(pMyFile,^d: est.txt^);

    append(pMyFile);    // 此部分可有可无   }

    for i:=1 to 100 do begin

         writeln(pMyFile,intTostr(i)+^ X ^+intTostr(i)+^ = ^+intTostr(i*i));

    end ;

    closefile(pMyFile);

 

    showmessage(^写入文件完成！^);

end;

 

示例二：

procedure TForm1.WLog(pMsg: string);

var

  pFObJect,pFPath,pFName: string;

  pMyFile: textFile;

  pStr: string;

begin

 

    pFPath:=^d:^;

    pFName:=^StockDel_^+formatDateTime(^yyyymmddhhmmss^,now);

    pFObject:=pFPath + ^^ + pFName + ^.csv^;

    try

        AssignFile(pMyFile,pFObject);

        if FileExists(pFObject)=false then

            ReWrite(pMyFile)

        else

            Append(pMyFile);

        pStr:=pMsg;

        WriteLn(pMyFile,pStr);

    finally

        CloseFile(pMyFile);

    end;

 

end; 

 

+++
公用写日志文件过程

//==ini文件设置：
^日志选项和文件 当Log_Flag=N时不记录，否则均记录
  Log_Flag=1
  Log_PathFileName=\10.105.10.12cPrd_220_Filelog.dat

//==声明全局变量
  x_pLogFile: string;       //日志文件名称
  x_pLogFlag: string;       //是否记录日志，N：不写日志
  x_pFindLogFile: boolean;  //记录日志文件是否存在，避免每次写日志时都要判断。

//==过程声明
  procedure cpWriteLog(pFObject:string; pTxt:string; pMode:byte);

//==初始化全局变量
procedure TForm1.FormCreate(Sender: TObject);
begin
  x_pLogFile:= cfReadIniFile(X_cProgID,^Log_PathFileName^,^c:ENRC0300_Log.txt^);
  x_pLogFlag:= cfReadIniFile(X_cProgID,^Log_Flag^,^N^);
end;

//==写日志过程
procedure cpWriteLog(pFObject:string; pTxt:string; pMode:byte);
var
  pMyFile: textFile;
begin
    if x_pLogFlag=^N^ then exit;
    try
        AssignFile(pMyFile,pFObject);
        if pMode=1 then pTxt:= DateTimeToStr(Now)+^ ^+pTxt;
        if x_pFindLogFile=True then
            append(pMyFile)
        else begin
            if FileExists(pFObject) then
                append(pMyFile)
            else
                reWrite(pMyFile);
            x_pFindLogFile:=true;
        end;
        WriteLn(pMyFile,pTxt);
    finally
        CloseFile(pMyFile);
    end;
end;

//==调用过程
    x_pMsg:=^导出程序[^+X_cProgID+^]打开，^;
    cpWriteLog(x_pLogFile,x_pMsg,1);