4byte 배열을 만들어서 끝의 두 byte에 데이터를 담아서 전송하려구
하는데... 아침에두 질문을 올렸는데 답변해주시는 분이 없네요...
구냥 생각나는데로 아래와 같이 짜봤는데
에디트에 2byte의 데이터를 쓰면
배열로 담아 보내고 싶은데
이러케 하면 에러가 생기네요...앙... 잘모르겠습니다.
procedure TF_GR.SE_CH1_1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Packet:array[0..3] of string;
begin
Packet[0]:=#$15;
packet[1]:=#$01;
Packet[2..3]:=SE_CH1_1.Text;
ComPort1.Open;
Comport1.Writestr(Packet[0..3]);
ComPort.Close;
end;
-------------------------------------------------------
[Error]']'expected but'..'found
--------------------------------------------------------
procedure TF_GR.SE_CH1_1KeyDown(Sender: TObject; var Key: Word;
var
Packet:array[0..3] of char;
begin
Packet[0]:=#$15;
packet[1]:=#$01;
Packet[2]:=(pchar(SE_CH1_1.Text))^;
Packet[3]:=(pchar(SE_CH1_1.Text)+1)^;
ComPort1.Open;
Comport1.Writestr(Packet);
ComPort.Close;
end;
담아보낼 데이터가 단 2바이트 뿐이라면 그냥 담아서 보내면 될 것 같은데요..