Уважаемые эксперты.
При попытке вывести результат из dll (в приложении) выскакивает ругань,вывод я делаю так
procedure TForm1.Button1Click(Sender: TObject);
var
temp:byte;
begin
Temp := Read_T(romsensor[0,0]);// ‘ считать температуру сенсора
if temp=255 then
label1.Caption:=‘error‘;
label1.Caption:=FormatFloat(‘0.00‘,Temp)+‘‘‘C‘;
при пошаговом исполнении ошибка вылетает на строке Temp := Read_T(romsensor[0,0]),а если убрать строку label1.Caption:=FormatFloat(‘0.00‘,Temp)+‘‘‘C‘; то ошибки нет но и значение temp становится другим.Подскажите в чем дело.
С уважением Антон.


Приложение:
int _stdcall Read_T(byte RomS[]){ int i,temp,rvalue=1,x,y,b; int RomBit[72]; byte RomSens[9]; for (i=0;i<9;i++) {RomSens[i]=RomS[i]; RomS[i]=0;}temp=Init_Dev(); if (temp!=1) {rvalue=255; return rvalue;}OutByte(0x55);// Match Rom for (i=0;i<8;i++) {OutByte(RomSens[i]);} // 64-bit ROM codeOutByte(0x44); // convert Temper TimeDelay(ReadTime);temp=Init_Dev();if (temp!=1) {rvalue=255; return rvalue;}OutByte(0x55); // Match Romfor (i=0;i<8;i++) {OutByte(RomSens[i]);} // 64-bit ROM codeOutByte(0xBE); // Read scratchpad// ****** ****** ******* ******* ****** ****** ******* for (i=0;i<72;i++) { temp=OutBit(0xFF); RomBit[i]=temp; } x=0; for (i=0;i<65;i=i+8) { b=0; for (y=7;y>-1;y--) { temp=b<<1; b=temp+RomBit[y+i];} RomS[x]=b; x++; } return rvalue; }