스트링을 파싱해서 트리구조를 만드는 걸 테스트 하는 겁니다.

dll 에서 스트링을 받아 프로그램에서 파싱을 하는 구조로 되어있구스트링을 파싱해서 트리구조를 만드는 걸 테스트 하는 겁니다.

dll 에서 스트링을 받아 프로그램에서 파싱을 하는 구조로 되어있구요.

스트링이 데이터( 그래픽 좌표, 정보 ) 여서 크거든요.

그래서 속도를 높이고 싶어요. ( 코드개선, 획기적 방법등 ) 을 문의 드립니다.




procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  paircount: integer;
  totalpair: integer;
  token: String;
  c:Pchar;
  IsPairInc: boolean;

  procedure AddOne;
  begin
    token := token + c^;
    Inc(c);
  end;

  procedure Skip;
  begin
    inc(c);
  end;
begin
  s:= '[';
  s:= s + '{root1,{child1, child2, {child3,{c1,c2}}, child4}},';
  s:= s + '{root2,{child1, child2, {child3,{a1,a2,a3}}}},';
  s:= s + '{root3,{{child1,{m1,m2,m3}}, child2, {child3,{a1,a2,a3}}}';
  s:= s + ']';

  c:= Pchar(s);
  paircount := 0;
  token:='';
  Memo1.Lines.Clear;
  IsPairInc := true;

  while c^ <> ']' do
  begin
    case c^ of
      '{': begin
             token := '';
             inc(paircount);
             inc(c);
             IsPairInc := True;
           end;
      '0'..'9', 'a'..'z', 'A'..'Z':
           begin
             AddOne;
           end;
      ',': begin
             if (IsPairInc and (token <> '')) then
               if (c+1)^ = '{' then
               begin
                 Memo1.Lines.Add(inttostr((paircount-1) div 2) + ':' + token);  // add
               end else
                 Memo1.Lines.Add(inttostr(paircount div 2) + ':' + token);      // add
             token:='';
             inc(c);
           end;
      '}': begin
             if paircount <> 0 then IsPairInc := false;
             if ((c+1)^ = '}') and ((c+2)^ <> '}') and (token <> '') then
               Memo1.Lines.Add(inttostr(paircount div 2) + ':' + token);        // add

             if ((c+1)^ = '}') and ((c+2)^ = '}') and (token <> '') then
             begin
               Memo1.Lines.Add(inttostr(paircount div 2) + ':' + token);        // add
               token := '';
               IsPairInc:= True;
             end;
           
             dec(paircount);
             if paircount = 0 then
             begin
               IsPairInc:=true;
               token := '';
               Memo1.Lines.Add('');
             end;

             inc(c);
           end;
      ' ', '[':
           begin
             Skip;
           end;
    end;
  end;

end;



결과

0:root1
1:child1
1:child2
1:child3
2:c1
2:c2
1:child4
--------------------------------
0:root2
1:child1
1:child2
1:child3
2:a1
2:a2
2:a3
--------------------------------
0:root3
1:child1
2:m1
2:m2
2:m3
1:child3
2:a1
2:a2
2:a3