Submit My Question - Recent Questions - Recent Answer

C程序转换成delphi?

各位大虾：

请帮我把下面的c程序转换成相应的delphi，我实在是不会啊，谢谢!

/*DMX SERIES Sample C program*/

#include<stdio.h>

main()
{
char *pcs="590";
char *desc="10K OHM 1/4 watt";

fputs("DMX Printer Test Program\n",stdout);

fputs("x02L\n",stdaux); /*STXL-Enter Label Fromatting*/
fputs("H07\n",stdaux); /*Enter Heat Setting of 7*/
fputs("D11\n",stdaux); /*Set Width and Height Dot Size*/

fprintf(stdaux,"191108010000025%s\n",desc); /*Select smooth Font*/
fprintf(stdaux,"1a6210000000050%sPCS\n",pcs); /*Select Bar code type 'a' */
fputs("E\n",stdaux); /*End Label format mode and print*/

}

先在这里谢谢各位了!

[726 byte] By [tommy905-tang] at [2008-5-24]

«« 敬请 --愚翁-- 解答一个问题(《Effective C#》Item 3: 使用as和is操作符来做类型转换)
»» SQL Server2005疑难问题解决

# 1

program test;

{$APPTYPE CONSOLE}

uses
windows,
sysutils;

var
pcs:PChar='590';
desc:PChar='10K OHM 1/4 watt';
Fd: TextFile;
begin
writeln('DMX Printer Test Program');
AssignFile(Fd, 'COM1');
writeln(fd,'x02L');
writeln(fd,'H07');
writeln(fd,'D11');
writeln(fd,format('191108010000025%s',[desc]));
writeln(fd,format('1a6210000000050%sPCS',[pcs]));
writeln(fd,'E');

end.

zjqyb-风清扬*任它溺水三千,我只取一瓢饮* at 2007-10-20 >