📄 trimstr.pas
字号:
unit TrimStr;interfaceConst Space=#$20; function LTrim(Str:String):String; function RTrim(Str:String):String; function Trim(Str:String):String;implementationfunction LTrim(Str:String):String;var len:Byte absolute Str; i:Integer;begin i:=1; while(i<=len) and (Str[i]=Space) do Inc(i); LTrim:=Copy(Str, i, len-i+1);end;function RTrim(Str:String):String;var len:Byte absolute Str;begin while(Str[len]=Space) do Dec(len); RTrim:=Str;end;function Trim(Str:String):String;begin Trim:=LTrim(RTrim(Str));end;end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -