给几个字符串函数

灌灌灌
function AnsiResemblesText(const AText, AOther: string): Boolean;
begin
  ///////如果两个字符串相近的话，那么返回为True;示例如下；
  ///////注：出现的顺序应该一致就可以；
  Result := False;
  if Assigned(AnsiResemblesProc) then
    Result := AnsiResemblesProc(AText, AOther);
  //////AnsiResemblesProc是一个字符串函数变量，Function(Const Text ,Aother : String)；
end;  function AnsiContainsText(const AText, ASubText: string): Boolean;
begin
///////判断字符串ASubText是否在AText里包括，把回值为Boolean;
  Result := AnsiPos(AnsiUppercase(ASubText), AnsiUppercase(AText)) > 0;
//////其实还是调用Pos函数罢了；
end;function AnsiStartsText(const ASubText, AText: string): Boolean;
var
  P: PChar;
  L, L2: Integer;
begin
//////////和AnsiResemblesText函数是不是有点相同？呵呵；
//这儿是指ASubText 做为一个全字符串出现在AText里边，而且是头部；
  P := PChar(AText);
  L := Length(ASubText);
  L2 := Length(AText);
  if L > L2 then
    Result := False
  else
    Result := CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE,
      P, L, PChar(ASubText), L) = 2;
end;function AnsiEndsText(const ASubText, AText: string)
////////这个就不用分析了吧；：）function AnsiReplaceStr(const AText, AFromText, AToText: string): string;
begin
  Result := StringReplace(AText, AFromText, AToText, [rfReplaceAll]);
end;
/////是一个字符串替换函数；AnsiReplaceText相同function AnsiMatchText(const AText: string;
  const AValues: array of string): Boolean;
begin
  Result := AnsiIndexText(AText, AValues) <> -1;
end;
/////////需要解释吗？function AnsiIndexText(const AText: string;
  const AValues: array of string): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(AValues) to High(AValues) do
    if AnsiSameText(AText, AValues[I]) then
    begin
      Result := I;
      Break;
    end;
end;
/////////////和Pos有什么区别？嘻嘻
function AnsiStartsStr(const ASubText, AText: string): Boolean;
begin
  Result := AnsiSameStr(ASubText, Copy(AText, 1, Length(ASubText)));
end;function AnsiEndsStr(const ASubText, AText: string): Boolean;
begin
  Result := AnsiSameStr(ASubText,
                        Copy(AText, Length(AText) - Length(ASubText) + 1,
                                    Length(ASubText)));
end;function AnsiMatchStr(const AText: string;
  const AValues: array of string): Boolean;
begin
  Result := AnsiIndexStr(AText, AValues) <> -1;
end;
///////////////////以上的三个都不用再说了吧：）function DupeString(const AText: string; ACount: Integer): string;
var
  P: PChar;
  C: Integer;
begin
  C := Length(AText);
  SetLength(Result, C * ACount);
  P := Pointer(Result);
  if P = nil then Exit;
  while ACount > 0 do
  begin
    Move(Pointer(AText)^, P^, C);
    Inc(P, C);
    Dec(ACount);
  end;
end;
/////////////这个有趣，嘻嘻，Copy and Copy啊；function ReverseString(const AText: string): string;
var
  I: Integer;
  P: PChar;
begin
  SetLength(Result, Length(AText));
  P := PChar(Result);
  for I := Length(AText) downto 1 do
  begin
    P^ := AText[I];
    Inc(P);
  end;
end;
//////////返过来了；bccc->cccb

ExtractFileDir              函数         返回驱动器和路径
ExtractFileExt              函数         返回文件的后缀
ExtractFileName             函数         返回文件名
ExtractFilePath             函数         返回指定文件的路径
FileAge                     函数         返回文件已存诘氖奔?
FileClose                   命令         关闭指定的文件
FileCreate                  命令         用指定的文件名建立新文件
FileDateToDateTime          函数         将DOS的日期格式转换为DELPHI的日期格式
FileExists                  函数         检查文件是否存在
FileGatAttr                 函数         返回文件的属性
FileGetDate                 函数         返回文件的DOS日期时间标记
FileOpen                    命令         用指定的存取模式打开指定的文件
FilePos                     函数         返回文件的当前指针位置
FileRead                    命令         从指定的文件读取
FileSearch                  命令         在目录中搜索指定的文件
FileSeek                    函数         改变文件的指针
FileSetAttr                 函数         设置文件属性
FileSetDate                 函数         设置文件的DOS日期时间标记
FileSize                    函数         返回当前文件的大小
FileWrite                   函数         对指定的文件做写操作
FillChar                    函数         用指定的值填充连续字节的数
FindClose                   命令         终止FindFirst/FindNext序列
FindFirst                   命令         对指定的文件名及属性搜索目录
FindNext                    命令         返回与文件名及属性匹配的下一入口
FloatToDecimal              函数         将浮点数转换为十进制数
FloatToStrF                 函数         将浮点数转换为字符串
FloatToStr                  函数         将浮点数转换为字符串
FloatToText                 函数         将给定的浮点数转换为十进制数
FloatToTextFmt              函数         将给定的浮点数转换为十进制数
Flush                       函数         将缓冲区的内容刷新到输出的文本文件中
FmtLoadStr                  函数         从程序的资源字符串表中装载字符串
FmtStr                      函数         格式化一系列的参数，其结果以参数Result返回
Font                        属性         设置字体
Format                      函数         格式化一系列的参数并返回Pascal字符串
FormatBuf                   函数         格式化一系列的参数
FormatDateTime              函数         用指定的格式来格式化日期和时间
FormatFloat                 函数         指定浮点数格式
Frac                        函数         返回参数的小数部分
FreeMem                     函数         按给定大小释放动态变量所占的空间
GetDir                                   返回指定驱动器的当前目录
GetHeapStatus                            返回内存管理器的当前状态
GetMem                                   建立一指定大小的动态变量，并将指针指向该处
GetMemoryManager                         返回内存管理器的入口点
Glyph                       函数         按钮上的图象
Halt                                     停止程序的执行并返回到操作系统
Hi                                       返回参数的高地址位
High                                     返回参数的上限值
Hint                        属性         提示信息
Int                                      返回参数的整数部分
Include                                  添加元素到集合中
Insert                                   在字符串中插入子串
IntToHex                                 将整型数转换为十六进制数
IntToStr                                 将整型数转换为字符串
IOResult                                 返回最新的I/O操作完成状态
IsValidIdent                             测试字符串是否为有效的标识符
Items                       属性         默认显示的节点
Kind                        属性         摆放样式
LargeChange                 属性         最大改变值
Layout                      属性         图象布局
Length                      函数         返回字符串的动态长度
Lines                       属性         缺省显示内容
Ln                          函数         自然对数函数
Lo                          函数         返回参数的低地址位
LoadStr                     函数         从应用程序的可执行文件中装载字符资源
LowerCase                   函数         将给定的字符串变为小写
Low                         函数         返回参数的下限值
Max                         属性         最大值
MaxLength                   属性         最大长度
Min                         属性         最小值
MkDir                       命令         建立一子目录
Move                        函数         从源到目标复制字节
MultiSelect                 属性         允许同时选择几个数据项
Name                        属性         控件的名字
New                         函数         建立新的动态变量并设置一指针变量指向他
NewStr                      函数         在堆栈上分配新的字符串
Now                         函数         返回当前的日期和时间
Odd                                      测试参数是否为奇数
OnActivate                  事件         焦点移到窗体上时触发
OnClick                     事件         单击窗体空白区域触发
OnDblClick                  事件         双击窗体空白区域触发
OnCloseQuery                事件         使用者试图关闭窗体触发
OnClose                     事件         窗体关闭后才触发
OnCreate                    事件         窗体第一次创建时触发
OnDeactivate                事件         用户切换到另一应用程序触发
OnDragDrop                  事件         鼠标拖放操作结束时触发
OnDragOver                  事件         有其他控件从他上面移过触发
OnMouseDown                 事件         按下鼠标键时触发
OnMouseUp                   事件         释放鼠标键时触发
OnMouseMove                 事件         移动鼠标时触发
OnHide                      事件         隐藏窗体时触发
OnKeyDown                   事件         按下键盘某键时触发
OnKeyPress                  事件         按下键盘上的单个字符键时触发
OnKeyUp                     事件         释放键盘上的某键时触发
OnPaint                     事件         窗体上有新部分暴露出来触发
OnResize                    事件         重新调整窗体大小触发
OnShow                      事件         在窗体实际显示之前瞬间触发
Ord                                      返回序数类的序数
OutlineStyle                属性         类型
OutOfMemoryError                         引起OutOfMemory意外
PageIndex                   属性         页索引
Pages                       属性         页

copy(s,n1,n2)：取s中的子串，从n1开始取n2个
pos(s1,s):求s1在s中的其始位
delete(s,n1,n2):删除
insert(s1,s2,n);插入
floattostr(x);
inttofloat(x);
strtofloat(x);
strtoint(x);

copy(s,n1,n2)：
pos(s1,s):
delete(s,n1,n2):
insert(s1,s2,n);
floattostr(x);
inttofloat(x);
strtofloat(x);
strtoint(x);

StrUtils/Moth/System
里边浪一圈，什么都有了；

var
S:String;
.....
S:=StringReplace(S,'','0',[rfReplaceAll]);
//用0来代替串中的空格

var
S:String;
.....
S:=StringReplace(S,' ','0',[rfReplaceAll]);
//用0来代替串中的空格

调试易

给几个字符串函数

解决方案 »