关于语法问题(bcb结构如何用Delphi语言表示)

Question

typedef struct __TransDataItem_Down
{
int  flowNr; // 帐单流水号
char  Seller[8]; //员工名称
struct{
short   UploadYear; // char[2]
char  UploadMonth;
char  UploadDay;
char UploadHour;
char UploadMinute;
char UploadSecond;
char PrintHour;
char PrintMinute;
char PrintSecond;
} time;
char desk[30]; //台号名称
short peopleNr; //每桌人数
short dishNr; /菜品数量
char        dishUnit[4]; // 菜品数量单位
char dishName[28]; // 菜品名称
char dishsort[10]; // 类别
char append[100]; // 附加项目
int  barCodeNr; //条码
}TransDataItem_Down;

Answer 1

type
  _time =record
UploadYear: shortint;
UploadMonth: char;
UploadDay: char;
UploadHour: char;
UploadMinute: char;
UploadSecond: char;
PrintHour: char;
PrintMinute: char;
PrintSecond: char;
  end;  __TransDataItem_Down = record
flowNr: integer; // ??流水?
Seller: array[0..7] of char; //?工名?
  time: _time;
desk: array[0..29] of char; //台?名?
peopleNr: shortint; //每桌人?
dishNr: shortint; //菜品?量
dishUnit: array[0..3] of char; // 菜品?量?位
dishName: array[0..27] of char; // 菜品名?
dishsort: array[0..9] of char; // ??
append: array[0..99] of char; // 附加?目
barCodeNr: integer; //??
 end;
var TransDataItem_Down:  __TransDataItem_Down;

Answer 2

to aiirii(ari) :另外类似bcb中GetDate(TransDataItem_Down &Rec)的参数传递(去取数据,通过结构指针Rec将数据带回来),谢谢

Answer 3

下面这几种类型在Delphi里怎么表达 unsigned long plu_nr;         //plu_nr
char Art_Bez[28]; //品名
long int price;          //new price after changing
long int weight;         //weight
long int amount;         //amount
unsigned  short Table;         //桌号         
unsigned  short Method; //做法
unsigned  short SellerNr; //操作员号

Answer 4

>>另外类似bcb中GetDate(TransDataItem_Down &Rec)的参数传递
用這樣操作就可: GetDate(@TransDataItem_Down);你看看delphi的對應類型就可!
Generic integer types for 32-bit implementations of Delphi  
Type Range Format
Integer -2147483648..2147483647 signed 32-bit
Cardinal 0..4294967295 unsigned 32-bit
Fundamental integer types include Shortint, Smallint, Longint, Int64, Byte, Word, and Longword.Fundamental integer types  
Type Range Format
Shortint -128..127 signed 8-bit
Smallint -32768..32767 signed 16-bit
Longint -2147483648..2147483647 signed 32-bit
Int64 -2^63..2^63-1 signed 64-bit
Byte 0..255 unsigned 8-bit
Word 0..65535 unsigned 16-bit
Longword 0..4294967295 unsigned 32-bit

Answer 5

你看我用指针行吗
type
   PTransDataItem_Down = ^__TransDataItem_Down;
   __TransDataItem_Down = record
   ............
   ...........
end; GetDate(TransDataItem_Down : PTransDataItem_Down);Delphi中能这样用吗,数据能带上来吗?

Answer 6

aiirii(ari) 你能帮我看看我的工程代码吗
是用Delphi调用VC++做的DLL,我做了一个测试结果出错误,我将代码全发给,你能帮我看看吗?