[求助]请问如何读取特定的数据结构（Delphi）

plink

我现在只是Delphi的初级用户
有时实现一些特定的功能时，需自己设计算法读取特定的数据结构，比如在数据库方面，
比如我手里有一个Oracle或sybase的数据表文件，假如我只是用普通的阅读器去读取，多半是一堆乱码。
关于这些东东，我在图书馆也查了不少书，发现用TStream可解诀类似的问题，但都将的
是意思意思而已，就像（Hello Word!）一样，我看了还是不能解决实际问题。
请问有无Delphi的高人能指点偶一下，小弟不胜铭感！

疯子

定义相应结构，然后读入。

monkeyking

你建立一个Record类型，
然后用这个类型读取数据就好了。给你个简单的例子：


type
//定义自己的读取结构，这个应该与欲读取文件中的数据结构吻合
MyRecord = Record
No: integer;
Name: string[6];
Delphi:integer;
end;

TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
F: file of MyRecord;//文件类型设置为你自己定义的数据结构类型

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
TestType: MyRecord;
begin
with TestType do
begin
No := 1;
Name := 'Monkey';
Delphi := 60;
end;

//建立一个测试用的数据文件
AssignFile(F, 'c:\test.txt');
Rewrite(F);
write(F, TestType);
CloseFile(F);

//读取这个测试文件
AssignFile(F, 'c:\test.txt');
Reset(F);
read(F, TestType);//这里是使用方法
CloseFile(F);

//在Memo中显示读取出来的结果
Memo1.Lines.Add(IntToStr(TestType.No));
Memo1.Lines.Add(TestType.Name);
Memo1.Lines.Add(IntToStr(TestType.Delphi));

end;

随手写的，应该没有问题，即时有也不影响你对思路的理解。
此处不要企图用记事本去建立一个测试数据文件，因为记事本对待所有的数据都是以字符的形式保存的。而真正的数据文件都有格式对齐的处理。所以需要用代码来建立一个测试文件。

slash1

楼上的同学真牛！~！~基本功如此扎实，让人叹为观止啊

斜雨无痕

转行吧,dephi没前途了
我好几个同事都是从做pb,dephi转过来了
不过我也打算转行了

网络幽灵

程序员都没有前途.

斜雨无痕

严重同意楼上所说的
不过我还不懂什么叫有前途...
如果叫我去做微软的,IBM,Oracle,SUM,google的程序员,我还是很乐意去做那些没前途的工作的