Delphi函数总结

Delphi函数总结

一、文件操作函数

1、  TextToFile

原型：function TextToFile(text, fname)

功能：保存内容到文件中

参数列表：

                    text           文本内容

                    fname       文本内容存放的文件名

返回结果：

暂无返回

源码：

var G_CS_TEXT_TO_FILE : TRTLCriticalSection;
function TextToFile(strText, strFileName: string): string;
var
    v, Path: string;
    lineList: TStrings;
begin
    EnterCriticalSection(G_CS_TEXT_TO_FILE);


    //ShowMessage(strFileName);


    //2015-04-16 17:43 tig 处理了js传过来的诸如\\\180.214.162.86\\McServer\奇怪的问题
    //2015-04-17 05:09 HTS 马勒戈壁 这个问题处理了好久
    //if copy(strFileName, 1, 3)='\\\' then strFileName:= copy(strFileName, 2, length(strFileName)-1);
    if copy(strFileName, 1, 4)='\\\\' then strFileName:= StringReplace(strFileName,'\\','\',[rfReplaceAll,rfIgnoreCase]);


    //ShowMessage(strFileName);


    //2011-04-03 13:08 tig 判断所在目录是否存在, 如否则创建之
    strFileName:= StringReplace(strFileName,'/','\',[rfReplaceAll,rfIgnoreCase]);
    Path:= GetFilePath(strFileName);
    if not DirectoryExists(Path) then ForceDirectories(Path);


    try
        //更改为普通文件
        if FileExists(strFileName) then
            FileSetAttr(strFileName, FILE_ATTRIBUTE_NORMAL);
        lineList:= TStringList.Create;
        lineList.Text:= strText;
        lineList.SaveToFile(strFileName);
        FreeAndNil(lineList);
    finally
        LeaveCriticalSection(G_CS_TEXT_TO_FILE);
    end;
end;

//=============================================================================================================

2、  TextFromFile

原型：function TextFromFile(fname)

功能：从文件中读取内容

参数列表：

                    fname       文本内容存放的文件名

返回结果：

返回文件内文本内容

源码：

//从文件中读取内容
function TextFromFile(strFileName: string): string;
var
    lineList: TStrings;
begin
    result:= '';
    strFileName := StringReplace(strFileName,'/','\',[rfReplaceAll,rfIgnoreCase]);
    if not FileExists(strFileName) then
    exit;


    lineList:= TStringList.Create;
    lineList.LoadFromFile(strFileName);
    result:= lineList.Text;
    lineList.Free;
end;

//==========================================================================

3、  GetFileExt

原型：function GetFileExt(fname)

功能：获取文件后缀

参数列表：

                    fname       文件名称

返回结果：

返回文件后缀

源码（javascript）：

function GetFileExt(fname)
{
var items = new Array(); 

items = fname.split(".");

return items[items.length-1];
}

//============================