delphi字符串处理问题

Question

'00000000000000000001&00000000000000000001&0'#9'00000000000000000002&00000000000000000002&0'#9'00000000000000000003&00000000000000000003&0'#9'00000000000000000004&00000000000000000004&0'#9'00000000000000000005&vs90-04&1'#9'00000000000000000006&00000000000000000006&0'#9'00000000000000000007&00000000000000000007&0'#9'00000000000000000008&00000000000000000008&0'#9'00000000000000000009&00000000000000000009&0'#9'00000000000000000010&00000000000000000010&0'#9'00000000000000000011&00000000000000000011&0'#9'00000000000000000012&00000000000000000012&0'#9'00000000000000000013&00000000000000000013&0'#9'00000000000000000014&00000000000000000014&0'#9'00000000000000000015&00000000000000000015&0'#9'00000000000000000016&00000000000000000016&0'#9'00000000000000000017&00000000000000000017&0'#9'00000000000000000018&00000000000000000018&0'#9'00000000000000000019&00000000000000000019&0'#9'00000000000000000020&00000000000000000020&0'#9'00000000000000000021&00000000000000000021&0'#9'00000000000000000022&00000000000000000022&0'#9'00000000000000000023&00000000000000000023&0'#9'00000000000000000024&00000000000000000024&0'#9'00000000000000000025&00000000000000000025&0'#9'00000000000000000026&00000000000000000026&0'#9'00000000000000000027&00000000000000000027&0'#9'00000000000000000028&00000000000000000028&0'#9'00000000000000000029&00000000000000000029&0'#9'00000000000000000030&00000000000000000030&0'#9'00000000000000000031&00000000000000000031&0'#9'00000000000000000032&00000000000000000032&0'#9这是从SDK取到一个字符串，要把他一个一个拆出来，如：00000000000000000001,00000000000000000002以此类推，希望那位高手能帮我实现，谢谢！

Answer 1

先把&和&0'#9替换成指定的字符，比如：，然后用TStringList分割出来

Answer 2

++另外
&vs90-04&1'#9' 这一串数据的出现是偶然的话，也可以直接去除掉

Answer 3

用pos函数，使用while 循环。 

Answer 4

var
  s:string;
  s1:TStrings;
  i:Integer;
begin
  s1:=TStringList.Create;
  s:=StringReplace(Memo1.Text,'#9',#13,[rfReplaceAll]);
  s1.Text:=StringReplace(s,'''','',[rfReplaceAll]);
  Memo1.Lines.Clear;
  for i:= 0 to s1.Count-1 do
    begin
      Memo1.Lines.Add(Copy(s1[i],0,Pos('&',s1[i])-1));
    end;
end;

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  s1:TStrings;
  i:Integer;
begin
  s1:=TStringList.Create;
  s:=StringReplace(Memo1.Text,'#9',#13,[rfReplaceAll]); //Memo1.Text为楼主的字符串
  s1.Text:=StringReplace(s,'''','',[rfReplaceAll]);
  Memo1.Lines.Clear;
  for i:= 0 to s1.Count-1 do
  begin
    Memo1.Lines.Add(Copy(s1[i],0,Pos('&',s1[i])-1));//Memo1为最后结果
  end;end;end.

Answer 6

把这句的'#9'换成#9，去掉2边得单引号
s:=StringReplace(Memo1.Text,#9,#13,[rfReplaceAll]); //Memo1.Text为楼主的字符串
然后再试验下

Answer 7

用SeparateTerms这个函数去做，到时候存到stringlist里面去