|
제가 잘못 알았네요..
TTokenPacket := Array[0..20] of string;
이네요..
il's 님이 쓰신 글 :
: 권선미 님 안녕하세요....
:
: 음.... 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;
: :
: : 꼭 부탁드립니다.
: :
: :
|