Данные с COM порта

[Палыч23]

Принимаю данные с com порта. Как мне преобразовать их в десятичный вид и отобразить в memo?

[Пепел Феникса]

а в каком вы виде принимаете их?

[Палыч23]

Var
DCB:TDCB; //структура, содержащая настройки порта
CommTimeouts:TCommTimeouts;
RCBuf:PChar; //Буфер данных для приема
nToRead:integer; //Число байт для чтения
nRead:Cardinal; //Число читаемых байт
ComStat:TComStat; //состояние порта
Errs:Dword;
begin
ClearCommError(POrt,Errs,@ComStat); //считываем состояние порта
nToRead:=strtoint(edit1.Text); //считываем число байт для
//чтения из структуры
ReadFile(Port,RCBuf^,nToRead,nRead, nil); //считываем данные

Примерно так. Данные приходят с АЦП

[raxp]

function readcom: string;
var RX_Count : cardinal;
    TempArray: array[1..255] of Byte;
    Count    : Integer;
begin
 result:= '';
 ReadFile(Com, TempArray, 255, RX_Count, nil);
 for Count:= 1 to RX_Count do result:= result + '$'+inttohex(TempArray[Count], 2) + ' ';//Chr(TempArray[Count])
end;

добавление в Memo через Memo.lines.add(), в hex.

[Палыч23]

Спасибо! Заработало