Delphi函数总结

最新推荐文章于 2024-05-29 08:40:02 发布

chinajobs

最新推荐文章于 2024-05-29 08:40:02 发布

阅读量960

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi函数

本文链接：https://blog.youkuaiyun.com/chinajobs/article/details/51036610

本文总结了Delphi中的几个关键函数，包括TextToFile用于保存文本到文件，TextFromFile用于从文件读取文本，GetFileExt获取文件后缀，Mc_GetImgSize获取图片尺寸，以及Mc_MarkPicture实现图片打水印的功能。这些函数涵盖了文件操作和图片处理的基本需求。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;