delphi 中文字符串截取

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
begin
 memo3.Lines.Add(   wShortFileName(edit1.Text,StrToInt(Edit2.Text)));
end;

function TForm1.wShortFileName(strFile: String; fnLen: Integer): String;
var
  Str: String;
  bWide: Boolean;
  wStr: WideString;
  i:integer;
  D_Result:string;
begin
  Result:=strFile;
  if Length(strFile)<=fnLen then Exit;
  Str:=strFile;
  wStr:=strFile;
 // bWide:=(Length(Str)<>Length(wStr));
 { while Length(Str)>(fnLen-2) do
  begin
    Delete(wStr,Length(wStr),1);
    Str:=wStr;
  end;}
     for i := 1 to fnLen do
     begin
       D_Result:=D_Result+ copy(wStr,i,1);
     end;
 Result:=D_Result ;
end;
 

相关阅读 >>

Delphi 申请管理员权限级别

Delphi idhttp中get与post的区别

Delphi 对非活动窗口进行屏幕截图

Delphi设置屏幕分辨率的函数

Delphi中线程的释放

为Delphi的控制台程式添加图标

Delphi 用 superobject 解析淘宝上的 json 数据

Delphi 圆角panel

Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露

Delphi 异或加解密

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 中文字符串截取