권선미 님 안녕하세요....

음.... TTokenPacket형이라는 것이 델파이 쪽에 없는것 같은데요

혹시 기본 컴포넌트가 아닌 설치해서 사용하시는 컴포넌트에서 나온 형이 아닌지요...



그럼 즐거운 프로그램하세요.....

권선미 님이 쓰신 글 :
: 델파이의 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;
:
: 꼭 부탁드립니다.
:
: