delphi pos方法的问题 为什么没有返回值
tempd:=pos('类型',t);
tempj:=pos('型号',t);
if (pos('类型',t)=1) or (pos('型号',t)=1 ) then
我这样写为什么运行时tempd和tempj中没有数据啊
[解决办法]
function Pos(Substr: string; S: string): Integer;
在S中从第1位开始找Substr,找不到返回0;自己对比一下有还是没有？
[解决办法]
用ansipos试下
[解决办法]
var
t:string;
tempd:integer;
begin
t:='水泥类型';
tempd:=pos('类型',t);
showmessage(inttostr(tempd));
end;
瞧瞧有还是没有？
把你之前的代碼放出來看看...
[解决办法]
如果你的t='水泥类型'
那这句if (pos('类型',t)=1) or (pos('型号',t)=1 ) then
显然就错了，pos的结果怎么都部可能是1, 用是否大于0判断吧
[解决办法]
刚才没仔细看，确实LZ没仔细看pos的函数说明吧
