[fen]

Сообщение от cotseec

Код:

var
  i:integer;
  tmpDec,tmpHex:string;
begin
  tmpHex:='';
  tmpDec:='';
  for i:=0 to nRead-1 do
  begin
    tmpDec:=tmpDec+IntToStr(byte(RCBuf[i]));// для десятичных значений
    tmpHex:= tmpHex+IntToHex(byte(RCBuf[i]),2);// для шестнадцатиричных значений
  end;
    RcDataLabel.Caption:=tmpDec;// то, что вам надо
// или    RcDataLabel.Caption:=tmpHex;
end;

Благодарю за работающий код.

З.Ы.Ы. IntToHex, вроде как, начиная только с Delphi7, если Delphi младше (всякое бывает), то IntToHex писать самому - ну а тут гугл в помощь

Да,на Delphi 7.

З.Ы.Ы.Ы. RFID'ами балуетесь? :

Переписываю с нуля программу по учету посещений, рабочего времени на предприятии.
Проблема осталась в том, что предыдущая программа интерпретировала данные с RFID-карты как 612815812861289619224825415824815830248 (40 знаков), по твоему алгоритму выдаёт данные 1111160254255160255110147 (26 знаков).
Не хочется 150 карточек сотрудников перезаписывать в базу, но судя по всему придётся.