What version of Delphi are you using? Could the string be returned as a
Unicode string? or is it an AnsiString?
Secondly, shouldn't the for loop be: for i := 0 to Length(sRaw) do
Regards,
Colin
On 5 August 2011 10:34, Marshland Engineering <marshl...@marshland.co.nz>wrote:
> 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
>
_______________________________________________
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
