Record保存数据纪录来自非计算机系统
TxData=Record
buff:array[0..4] of char; //读来的数据保存
dType:String[10]; //数据的类型......end;
通过指令获取到buff,然后将一系列这样的数据存放到TList里面。
buff里面的内容可能是整数,浮点数,布尔类型,字符的一种,这些数据还需要能显示到界面上是不是在TxData增加
intVal:integer;
floatVal:Single;
boolVal:Boolean;
displayStr:String[20];
这样感觉上Record结构上冗长了。工作方式:读取系列数据到TxData数组的buff,buff翻译成dType制定的数据类型的数据,文本框随需要显示数据
有什么好的实现方法吗?
TxData=Record
buff:array[0..4] of char; //读来的数据保存
dType:String[10]; //数据的类型......end;
通过指令获取到buff,然后将一系列这样的数据存放到TList里面。
buff里面的内容可能是整数,浮点数,布尔类型,字符的一种,这些数据还需要能显示到界面上是不是在TxData增加
intVal:integer;
floatVal:Single;
boolVal:Boolean;
displayStr:String[20];
这样感觉上Record结构上冗长了。工作方式:读取系列数据到TxData数组的buff,buff翻译成dType制定的数据类型的数据,文本框随需要显示数据
有什么好的实现方法吗?
解决方案 »
- 用TRegExpr 提取http://forum.csdn.net/ 中的csdn,表达式该怎样写?
- 再问一个面试关于TREEVIEW的题目(delphi)
- 到贝尔实验室实习两周了,感觉还可以
- 小问题~~关于变量定义的~~帮忙看看~
- 追加TABLE的默认属性
- pooling是什么意思?如:资源Pooling,执行pooling,数据库连接pooling???
- 高手,进程、线程、模块(dll文件)它们有什么区别??、在线等待!
- 调用函数时如何同时返多个参数?不用全局变量,有什么好的方法吗?
- 一个小问题,关于oracle数据库,马上给分
- VCL好东东
- 请教怎么设计仓库的表结构
- Delphi2009 IDE,RTL,编译器对Unicode支持改进,自编一个Edit控件,测试了下,效果不错。unit Edit1; interface uses SysUtils, Classes, Controls, StdCtrls; ty
TxData = record
dType: string[10];
case Integer of
1:(A: integer);
2:(B: boolean);
3:(C: char);
4:(D: double);
end;
TxData = record
dType: string[10];
case Tag: Integer of
1:(A: integer);
2:(B: boolean);
3:(C: char);
4:(D: double);
end;procedure TForm1.Button1Click(Sender: TObject);
var
X, Y: TxData;
P: Pointer;
begin
X.dType := 'X';
X.Tag := 1;
X.A := 55; Y.dType := 'Y';
Y.Tag := 3;
Y.C := 'k'; {以下是看一下记录变量的实际内存结构}
P := @X.dType[1];
integer(P) := integer(P)+15;
Showmessage(InttoStr(PInteger(P)^)); {5} P := @Y.dType[1];
integer(P) := integer(P)+15;{与X同样的偏移量}
Showmessage(PChar(P)^); {k}
end;