Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.224.59.231] |
|
Сообщ.
#1
,
|
|
|
Через Microsoft Visual C Runtime Library (будет работать во всех версиях Windows, начиная с Windows 95 OSR2):
function sprintf(buf:pchar;format:pchar):integer; cdecl varargs; external 'MSVCRT.DLL'; ... var buf:array[0..MAX_PATH-1] of char; begin sprintf(buf,'Integer = %d, Hex = %Xh, String = %s',123,123,'aaa'); MessageBox(0,buf,'Delphi sprintf',0); end. Через Native API (только для NT): function sprintf(buf:pchar;format:pchar):integer; cdecl varargs; external 'NTDLL.DLL'; ... var buf:array[0..MAX_PATH-1] of char; begin sprintf(buf,'Integer = %d, Hex = %Xh, String = %s',123,123,'aaa'); MessageBox(0,buf,'Delphi sprintf',0); end. Автор: Krid |