菜鸟提问！

Question

想提取7-5006-4695-X中的7-5006也就是第二个-前面的内容！
   比如说7-5006-4695-X提取7-5006，
         7-900637-38-9提取7-9000637，
         957-9117-200-X提取957-9117。
         
         

Answer 1

var str1,str2: String;  str1 := '7-5006-4695-X';
  str2 := Copy(str1,1,Pos('-',str1));
  str1 := Copy(str1,Pos('-',str1)+1,Length(str1));
  str2 := str2 + Copy(str1,1,Pos('-',str1)-1);

Answer 2

i := 0;
str := '7-5006-4695-X';
while pos('-', str) > 0 do
begin
  i := i + 1;
  if i = 2 then
    str := copy(str, 1, pos('-', str) - 1);
end;
showmessage(str);

Answer 3

var
  str1, str2 : string;
begin
  str1:='7-5006-4695-X';
  str2:=str1;
  delete(str2,1,pos('-',str1));
  str2:=copy(str1,1,pos('-',str1)+pos('-',str2)-1);
end;