[DUG] Delphi Digest, Vol 94, Issue 7

[Colin Johnsun]

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 <marshland at 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 at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
> unsubscribe
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20110805/278b5c79/attachment.html