向大家提一个很简单的问题：如何在字符串中的提取子字符串？？

Question

我想把这些字符串“1：hhhsfdfd”，“2：dffdfd”，按照“：”的分解方法，分别得到“1”、“2”、“hhhsfdfd”、“dffdfd”这些字符，用什么函数，或者用什么方法呢？

Answer 1

Classes 单元下的 ExtractStrings 正是你需要的函数, 我做过例子:
http://www.cnblogs.com/del/archive/2007/12/11/991479.html

Answer 2

delphi10000 (万一)真是很勤奋写博，呵呵

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: TStringList;
begin
  s := TStringList.Create;
  try
    s.Delimiter := ':';
    s.DelimitedText := '1:hhhsfdfd:2:dffdfd';
    for i:=0 to s.Count-1 do
      showmessage(s.Strings[i]);
  finally
    s.free;
  end;
end;

Answer 4

楼主如果都是'1：hhhsfdfd'这种分割成两边的形式的话，自己写一个函数，查找':'的位置，然后分别copy出来好了如果像'1：hhhsfdfd:asdfs:fdfdf:fd'这样很多的话，用TStringList的DelimitedText不用写多少代码

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  s,s1,s2: string;
  n: integer;
begin
  s:='1:hhhsfdfd';
  n:=pos(':',s);
  s1:=copy(s,1,n-1);
  s2:=copy(s,n+1,length(s)-n);
end;结果 s1:='1' s2:='hhhsfdfd'