㈠ delphi7的代码 最下面是错误 说什么为什么 再帮忙改正下 谢谢了！
将函数function AddNum(InStr:string;LabStr:string):string;
begin
case instr of //60行
stro:if (labstr<>stro) then addnum:=labstr + instr;
strl:if pos(labstr,strl)=0 then addnum:=labstr + instr;
else
addnum:=labstr + instr;
end;
定义成如下：
function AddNum(InStr:string;LabStr:string):string;
begin
if instr=stro then begin
if (labstr<>stro) then result:=labstr + instr;
end else if instr=strl then begin
if pos(strl,labstr)=0 then result:=labstr + instr;
end else begin
result:=labstr + instr;
end;
end;
报错信息解释：
[Error] Unit1.pas(60): Ordinal type required
case后面的表达式只能接Ordinal 类型数据，不能接string类型，可以上网查查Ordinal 类型包括哪些。
[Error] Unit1.pas(61): Constant expression expected
of的分支必须是常量，而stro是字符串变量。
[Error] Unit1.pas(62): Constant expression expected
of的分支必须是常量，而strl是字符串变量。
[Error] Unit1.pas(67): Statement expected but 'PROCEDURE' found
函数function AddNum(InStr:string;LabStr:string):string缺少一个end,你代码里的end是case语句的end，缺少与begin对应的end。
由于你的输入InStr是字符串变量，不建议用case语句，改成以上if...else语句可以达到目的。
另外：
（1）我将你的pos(labstr,strl)改为pos(strl,labstr)，不知道对不对，你再证实一下。pos用法中第一个参数是子字符串，第二个参数才是目标字符串，我见strl='.'，只有一个字符，应该为子字符串，你应该要在labstr里找strl，不知对否，如果不是，你自己再改改吧。
（2）我将addnum改为result，因为函数返回值是给result（调用时取的也是result值），除非你特别用处，addnum有另外定义，如果另外定义，那么此函数将没有返回值，你后面lab1.caption:=addnum(s,lab1.caption);调用时会出问题。
若还无法解决，请Hi我~