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

[centerarea]

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;

[centerarea]

我急着用各位朋友帮忙得到答案马上结贴给分

[centerarea]

用Delphi的passcal语言怎么表达

[aiirii]

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;

[Tiack]

up,right

[centerarea]

to aiirii(ari) :

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

[centerarea]

下面这几种类型在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; //操作员号

[centerarea]

aiirii(ari)大哥,帮我啊!!!!!!!!

[aiirii]

>>另外类似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

[saien]

楼上说的对

[centerarea]

你看我用指针行吗
type
PTransDataItem_Down = ^__TransDataItem_Down;
__TransDataItem_Down = record
............
...........
end;

GetDate(TransDataItem_Down : PTransDataItem_Down);Delphi中能这样用吗,数据能带上来吗?

[aiirii]

沒問題, 與我原先的說法沒有什麼區別, 我想!!

[centerarea]

OK,谢谢!

[centerarea]

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

[centerarea]

我现在没有分了,以后再给你补上好吗?