怎样可以检查客户在EDIT输入的单号带有A。B。C就提取各自不同的价钱

Question

在考虑一个问题
是一个出单软件的提取价钱问题
我门工厂每个货物都三个价钱
出厂价  代理价 批发价那么现在我做了一个EDIT
是放单号的
当客户放0001A的时候就是提取代理价
0001B时候就是出厂价
0001C时候就是批发价我打算在一个表里面放四个字段，三个价钱是各自三个字段，在放一个字段就是这单号了
怎样可以检查客户在EDIT输入的单号带有A。B。C就提取各自不同的价钱
请提供思路和代码

Answer 1

如果在最后,取他的长度减1,判断是不是A.b.C

Answer 2

case 
  pos('A',edit1.text)<>0 then 代理价
  pos('B',edit1.text)<>0 then ....
  ....
end;

Answer 3

var
s:string;
c:char;s:=trim(edit1.text);
c:=rightcopy(s,length(s)-1,1);//也许参数不太对，你看看这个函数的帮助case c of
a,A:....;
b,B:....;
c,C:....;
END;

Answer 4

对POS这函数不太熟悉
请举其他方案可以在表里多建立一个字段去判断吗

Answer 5

case uppercase(edit1.text[length(edit1.text)]) of
  'A':  代理价
  'B':  出厂价
  'C':  批发价
end;

Answer 6

如果A,B,C 的位置是固定的那你直接取第5 位，判断不就行了