I still have something wrong

I sending
    serial_send('B');
    serial_send('C');
and a terminal program reads BC correctly

My Delphi code is as below but something is wrong with the second character.

    if SerialPortNG.NextClusterSize >= 0 then begin
       sRaw:=SerialPortNG.ReadNextClusterAsString;
       memo1.Lines.Add(sRaw);
       sData:='';
       for i:=1 to length(sRaw) do begin
           iValue:= ORD(sRaw[i]);
           sData:=sData+IntToStr(iValue)+'  ';
        end;
       memo1.Lines.Add(sData);

Result
Bè
66  232
Bè
66  232
Bè
66  232

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe

Reply via email to