Q&A

  • 바이트배열을 스트링으로 변환하기(진호님)
function chk_gtdata(rtdata : string): string;

const

CRCMASK = $DF;

STATROFPACKET = $25;

ENDOFPACKET = $7F;

var

i, length, sum, parity : byte;

temp : array [0..79] of byte;

rtdate : string;

begin

sum := 0;

for i := 0 to 79 do

temp[i] := $0;

temp[0] := STATROFPACKET;

temp[1] := STATROFPACKET;

appendstr(^temp, trdata); <<------



for i := 2 to high(temp) do

sum := sum + temp[i];



parity := sum and $DF;



chk_gtdata := temp; <<---------



end;



<<------ 부분에서 에러가 발생합니다.

한 번 살펴주세요....



무엇이 잘 못 되어있나요....





1  COMMENTS
  • Profile
    최용일 2000.08.26 21:14
    안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다.



    바이트배열을 PChar형태로 타입캐스팅하시면 됩니다.



    chk_gtdata := PChar(@temp); // <<---------



    ^^ 항상 즐코하세요.



    hanminet wrote:

    > function chk_gtdata(rtdata : string): string;

    > const

    > CRCMASK = $DF;

    > STATROFPACKET = $25;

    > ENDOFPACKET = $7F;

    > var

    > i, length, sum, parity : byte;

    > temp : array [0..79] of byte;

    > rtdate : string;

    > begin

    > sum := 0;

    > for i := 0 to 79 do

    > temp[i] := $0;

    > temp[0] := STATROFPACKET;

    > temp[1] := STATROFPACKET;

    > appendstr(^temp, trdata); <<------

    >

    > for i := 2 to high(temp) do

    > sum := sum + temp[i];

    >

    > parity := sum and $DF;

    >

    > chk_gtdata := temp; <<---------

    >

    > end;

    >

    > <<------ 부분에서 에러가 발생합니다.

    > 한 번 살펴주세요....

    >

    > 무엇이 잘 못 되어있나요....

    >

    >