我想打以下的字串分開再存入一個array 中可以怎樣做呢 字串 aaa//bbb//c//dd/hhh 如果我想一遇到"//"時就把之前的字串存入array A[0] = aaa A[1] = bbb A[2] = c A[3] = dd A[4] = hhh

還有如何以知到以上的字串 有沒有contain aaa 呢 謝謝

HI Dark852, 建議你先確定分隔的符號, 如果是 '//' 的話, 都先處理成 '/'.    再使用 StringList 的 Delimiter 功能, 範例如下:  

 
var 
 str : string;
 strlst : TStringList;
begin      str := 'aaa//bbb//c//dd/hhh';
  str := StringReplace(str, '//', '/', [rfReplaceAll, rfIgnoreCase]);
  
  // now str:='aaa/bbb/c/dd/hhh';      strlst := TStringList.Create;
  strlst.Add(str);      strlst.Delimiter := '/';
  strlst.DelimitedText := strlst.Text;      ShowMessage(strlst[1]); // bbb      strlst.Free;    

您好: 1.以下函數將他存到StringList中.

procedure zCutStr(var StrList:TStringList;S,KeyStr:String);
var
 Len,j,iEnd:Integer;
begin
StrList:=TStringList.Create;
Len:=Length(S);
j:=0;
while Pos(KeyStr,S)>0 do
 begin
  iEnd:=Pos(KeyStr,S);
  StrList.Add(Copy(S,0,iEnd-1));
  Inc(j);
  S:=Copy(S,iEnd Length(KeyStr),Len);
 end;
StrList.Add(Copy(S,0,Length(S)));
end;

用法: zCutStr(List,Data,'//'); 2.設一個迴圈去一個個一判斷就好了. for i:=0 to List.Count-1 do if (List.Strings[i]='aaa') then showmessage('找到了');

引言: 您好: 1.以下函數將他存到StringList中.

procedure zCutStr(var StrList:TStringList;S,KeyStr:String);
var
 Len,j,iEnd:Integer;
begin
StrList:=TStringList.Create;
Len:=Length(S);
j:=0;
while Pos(KeyStr,S)>0 do
 begin
  iEnd:=Pos(KeyStr,S);
  StrList.Add(Copy(S,0,iEnd-1));
  Inc(j);
  S:=Copy(S,iEnd Length(KeyStr),Len);
 end;
StrList.Add(Copy(S,0,Length(S)));
end;

用法: zCutStr(List,Data,'//'); 2.設一個迴圈去一個個一判斷就好了. for i:=0 to List.Count-1 do if (List.Strings[i]='aaa') then showmessage('找到了');

if List.IndexOf('aaa')>=0 then ShowMessage('找到了');