不发送本行
用
begin
IsState := 1;
for i := 0 to RichEdit1.Lines.Count-1 do
begin
if Trim(RichEdit2.Lines[i]) = 'C9CFD0D0 ' then
begin
IsState := 1;
end;
SendStr := DecodeHEX(RichEdit2.Lines[i]); }
case IsState of
1 : SendStr := Chr($10) + Chr($53) + Chr($54) + Chr($00) + Chr($00) + SendStr + Chr($4E) + Chr($41) + Chr($0D) + Chr($0A);
end;
Tem := Length(SendStr);
Comm1.WriteCommData(Pchar(SendStr),Tem);
Sleep(500);
end;

怎么做,才能不把本行(就是 'C9CFD0D0 ')发出去?
谢谢!


[解决办法]
?????

if Trim(RichEdit2.Lines[i]) <> 'C9CFD0D0 ' then