delphi下字段拆分问题？

Question

如何把一个字段内容拆分成若干字段,比如热轧普通碳素H型钢\H300×200×8×12mm\Q235B如何把上面的字段内容拆分成三个字段，原先这个内容是在一个字段里面的？

Answer 1

还有个pos(x,y)函数,够你用了;查查用法吧

Answer 2

var
  str1:TStringList;
begin
  str1:=TStringList.Create;
  ExtractStrings(['\'], [],'热轧普通碳素H型钢\H300×200×8×12mm\Q235B',str1);
  showmessage(str1[0]+','+str1[1]);
  str1.Free;
end;

Answer 3

用POS和COPY就可以解决问题!
var Str,subStr:string;i:integer;
Begin
  str:='热轧普通碳素H型钢\H300×200×8×12mm\Q235B ';
  i:=pos('\',str);
  SubStr:=copy(str,1,i);
  Str:=copy(str,i+1,Length(Str));
.........分成第二个第三个类似
End;
  

Answer 4

var
tempstr,mStr:string;
begin
while Pos('\',tempstr)<>0 do
begin
  if mStr<>'' then
  mStr:=,mStr+','+Copy(tempstr,0,Pos('\',tempstr)-1);//你可以再这处理成其他格式
  else
  mStr:=Copy(tempstr,0,Pos('\',tempstr)-1);
  tempstr:=Copy(tempstr,Pos('\',tempstr)+1,Length(tempstr)-Pos('\',tempstr))
end
if ,Str<>'' then
mStr:=mStr+','tempstr//你可以再这处理成其他格式
else
mStr:=tempstr;