int AscToBcd(byte far *src, byte far *dest, int len) ASC->BCD int BcdToAsc(byte far *src, byte far *dest, int len) BCD->ASC 怎样变成DELPHI的使用的，如果EDIT.TEXT:='123456789' ,怎样用呢

Using the keyword far? This keyword is used in 16 bit world only... Is you dll 16 bit? If yes, then an easier way is to use Delphi 1. Or you could do thunking on 32 bit Delphi: http://www.delphipages.com/news/detaildocs.cfm?ID=17

但是别人都调成功了，还用DELPHI7来的，这DLL也是新的来的，

我在DELPHI中怎么转呀，我也只有函数名的

Assume 32 bit (far can be ignored), function AscToBcd(var src, dest: PChar; len:integer): integer; external 'xxx.dll'; function BcdToAsc(var src, dest: PChar; len: integer): integer; external 'xxx.dll';

版主不是用PBYTE吗，

PChar and PByte are both pointers. You can choose whatever you want depending on how you call these functions. BTW, Delphi has builtin support for BCD, e.g. BcdToStr, StrToBcd etc.

我看过DELPHI的BCD的，可是不知怎样把转成的BCD值给ARRAY OF BYTE的,在DELPHI中BCD是用记录类型处理的

Typecast?    

var
    Bcd: TBcd;
    ByteArray: PByteArray;
begin
    Bcd := StrToBcd('1234.5');
    ByteArray := PByteArray(@Bcd);
end;

function AscToBcd src, dest: PChar; len:integer): integer; external 'xxx.dll'; function BcdToAsc(src, dest: PChar; len: integer): integer; external 'xxx.dll'; not need Var