델파이의 TTokenPacket형이 씨빌더에서는 무엇으로 되어야 하는지요...
아래 델파이 소스 좀 씨빌더 소스로 고쳐주세요..



procedure GetPacket(buff:String; var packet:TTokenPacket; terminate:char);
var   i:integer;
      str1, str2, str3:String;
      indicator:integer;
begin
      i := -1;
      indicator := -1;

      while Indicator <> 0 do begin
            inc(i);

            str1       := TrimRight(TrimLeft(buff));
              Indicator  := Pos(terminate, str1);

            if Indicator = 0 then begin
                str2 := Copy(str1, 0, Length(str1));
        end else
                str2 := Copy(str1, 0, Indicator-1);

              str3 := Copy(str1, Indicator+1, Length(str1));

            packet[i] := str2;
              buff := str3;
      end;
end;

꼭 부탁드립니다.