*****有关DELPHI截取字符的问题*****

Question

请问
有如下一串字符:TYPE=3&&SESSION=1&&HUNGUPTIME=2006-08-29 17:01:03&&LONG=87&&
我想得到:
3
1
2006-08-29 17:01:03
87
这几个字符?
请问如何截取!谢谢

Answer 1

var
  SL: TStringList;SL.Text := 'TYPE=3&&SESSION=1&&HUNGUPTIME=2006-08-29 17:01:03&&LONG=87&&';
SL.Text := StringReplace(SL.Text, '&&', #13#10, [rfReplaceAll]);接下来利用TStringList的方法可以直接取出的
记不起来了，没装delphi可能是SL.Values['TYPE']或其他的

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
  tl,tl1:tstringlist;
begin
  tl := tstringlist.Create;
  tl1 := tstringlist.Create;
  s := 'TYPE=3&&SESSION=1&&HUNGUPTIME=2006-08-29 17:01:03&&LONG=87&&';
  s := StringReplace(s, '&&', #13#10, [rfReplaceAll]);
  s := StringReplace(s, ' ', '', [rfReplaceAll]);
  tl.DelimitedText := s;
  for i := 0 to tl.Count - 1 do
  begin
    tl1.Add(copy(tl.Strings[i],pos('=',tl.Strings[i])+1,length(tl.Strings[i])-pos('=',tl.Strings[i])));
  end;
  showmessage(tl1.Text);
  tl.Free;
  tl1.Free;end;

Answer 3

有Delphi了，给你写个简单的procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  SL.Text := 'TYPE=3&&SESSION=1&&HUNGUPTIME=2006-08-29 17:01:03&&LONG=87&&';
  SL.Text := StringReplace(SL.Text, '&&', #13#10, [rfReplaceAll]);
  for I := 0 to SL.Count - 1 do
  begin
    if SL.ValueFromIndex[I] <> '' then
      ShowMessage(SL.ValueFromIndex[I]);
  end;
  SL.Free;
end;