求一段代码

Question

我在用VB做了一个东东。画图的，感觉速度太慢，试了下DELPHI速度挺快的。但我不会用DELPHI读文件。希望给出一段完整点的代码。一个过程吧。
要求: 文件前两个字节。分别给两个变量。分别是宽和高， 之后是四部分相同的数据。长度为 宽*高/8 个字节。分别放入四个相同长度的数组。宽和高分别放入两个变量。谢谢

Answer 1

如果文件不大，数据不多，建议用INI。这样以后添加删除项目都比较方便。这是一段读文本文件的代码；
var
  S:TFileName;
  a:integer;
  b: string;
  c: integer;  S := FileName;
  if FileExists(S) then  
  begin
    AssignFile(F, S);    
    Reset(F);            
    try
      Readln(F,a,b,c);
    finally
      Close(F);
    end;
  end;

Answer 2

我觉得还是用ini文件的好!把ini文件读到Tmemo里就然后 直接根据键访问键值就可以了!

Answer 3

http://dev.csdn.net/articlelist.aspx?c=2
看其中的：
建立、读取、存贮INI文件的方法系列文章。