菜鸟问几个代码的意思(麻烦各位大牛了!~) 找药品进销存管理
销售管理软件版1楼: input:=Trim(ConvertWS(Preprocessor.process(＇＇ ＇＇+input+＇＇ ＇＇),true));
FUNCTION ConvertWs (Source: STRING; PackWs: BOOLEAN) : STRING;
// Converts all Whitespace characters to the Space #x20 character
// If ＂PackWs＂ is true, contiguous Whitespace characters are packed to one
VAR
I : INTEGER;
BEGIN
Result := Source;
FOR I := Length (Result) DOWNTO 1 DO
IF (Result [I] IN CWhitespace) THEN
IF PackWs AND (I > 1) AND (Result [I-1] IN CWhitespace)
THEN Delete (Result, I, 1)
ELSE Result [I] := #32;
END;
//#32 空格 #13回车 #10换行 #9 tab
CWhitespace = [#32, #9, #13, #10]; // Whitespace characters (XmlSpec 2.3)
另外一个: fname,name:string;
dir:=ExtractFilePath(fname);
先谢谢各位大牛的不吝赐教了!
FUNCTION ConvertWs (Source: STRING; PackWs: BOOLEAN) : STRING;
// Converts all Whitespace characters to the Space #x20 character
// If ＂PackWs＂ is true, contiguous Whitespace characters are packed to one
VAR
I : INTEGER;
BEGIN
Result := Source;
FOR I := Length (Result) DOWNTO 1 DO
IF (Result [I] IN CWhitespace) THEN
IF PackWs AND (I > 1) AND (Result [I-1] IN CWhitespace)
THEN Delete (Result, I, 1)
ELSE Result [I] := #32;
END;
//#32 空格 #13回车 #10换行 #9 tab
CWhitespace = [#32, #9, #13, #10]; // Whitespace characters (XmlSpec 2.3)
另外一个: fname,name:string;
dir:=ExtractFilePath(fname);
先谢谢各位大牛的不吝赐教了!
2楼: 真乱的代码格式
函数的作用是将字符串中的集中不可视字符（#32 空格 #13回车 #10换行 #9 tab ）转换成空格
若传入的参数PackWs为真则将字符串中相邻的几个不可视字符合并成一个空格显示
若为假则将不可视字符直接转换成空格
这段代码的难度不在算法，而在于不规范的代码书写 如药品进销存管理
3楼: 前面的没看，就看了看这个
dir:=ExtractFilePath(fname);
取得路径
你可以用 showmessage(ExtractFilePath(application.exename));试试看
4楼: 建议用delforexp格式化再贴上来
5楼: 多人接受答案了。
6楼: 我回答不了任何问题啊！
联系我们
