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];
}
//============================