如何集合成一行字符串？

Question

以<为起始符号，以>为结束符号
内容情况如下：
------------------------------<
第100
名
〉<
第101
名
〉...------------------------------
希望得到结果如下：
------------------------------
第100名第101名...
请大牛们帮帮忙，谢谢！！

Answer 1

源数据放在Memo1中,结果放在Memo2中procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  TmpStr,str:string;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    str:= Memo1.Lines.Strings[i];
    if str='<' then
       TmpStr:=''
    else if str='>' then
       Memo2.Lines.Add(TmpStr)
    else if str<>'' then
       TmpStr:=TmpStr + str;
  end;
end;

Answer 2

首先感谢kaikai_kk帮忙，按阁下提供代码测试如下：
===============================================
执行代码之前
===============================================
<
OK
>
<>
<>
<
RING
>
<
NMBR =>
< 1866623>
<8311
>
<>
<>
<
RING
>
===============================================
执行kaikai_kk热心提供代码之后
===============================================
OK
RING
NMBR =>< 1866623><8311
RING~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
总结：确实有效，但有点美中不足，请问能有进一步的方法吗？
谢谢！
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Answer 3

var
  Sour , Dest : WideString;
  PSour , PDest : PWideChar;
  i , nSize : integer;
  bKey , bText : Boolean;
begin
  //源内容装入到Memo1中
  Sour := Trim(Memo1.Lines.Text);
  SetLength(Dest , Length(Sour)*2);
  PSour := Pointer(Sour);
  PDest := Pointer(Dest);
  bKey := False;
  bText := False;
  nSize := 0;
  for i:=1 to Length(Sour) do begin
    Case PSour^ of
      #13,#10,#9,' ':;
      '<' : begin bKey := True; bText := False;end;
      '>' :
        if bKey and bText then begin
          PDest^ := #13;
          inc(PDest);
          PDest^ := #10;
          inc(PDest);
          inc(nSize,2);
          bKey := False;
        end;
      else begin
        if bKey then begin
          PDest^ := PSour^;
          inc(PDest);
          inc(nSize);
          bText := True;
        end;
      end;
    end;
    inc(PSour);
  end;
  //输出到Memo2中
  Memo2.Text := Copy(Dest , 1 , nSize);
end;

Answer 4

procedure GetMatchResult(s:TStrings);
var i:integer;
begin
  for i:=s.Count-1 downto 0 do begin
    if (Length(Trim(s[i]))<3)or(Trim(s[i])='RING') then s.Delete(i)
    else if s[i][1]='<' then
      s[i]:=copy(s[i],2,length(s[i]));
    if pos('=',s[i])>0 then
      s[i]:=copy(s[i],1,pos('=',s[i])-1);
    if pos('>',s[i])>0 then
      s[i]:=copy(s[i],1,pos('>',s[i])-1);
    s[i]:=Trim(s[i]);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetMatchResult(memo1.Lines);
end;