盒子论坛 v2.1

以下代码没有在DELPHI环境下写，请自己调试：）

var
   MyData:array [0..2499999] of byte;

Procecure WriteToFile;
var
  f:file;
  Fn:String;
begin
  assignfile(f,fn);
  rewrite(f,1);
  blockWrite(f,mydata,length(Mydata)*sizeof(Mydata));
  //length(Mydata)*sizeof(Mydata)可能有问题：（
  closeFile(f);
end;

Procecure readFromFile;
var
  f:file;
  Fn:String;
begin
  //fn:='c:\......';
  assignfile(f,fn);
  rewset(f,1);
  blockread(f,mydata,length(Mydata)*sizeof(Mydata));
  //length(Mydata)*sizeof(Mydata)可能有问题：（还是看楼下的吧
  closeFile(f);
end;

----------------------------------------------
朝花夕拾--Delphi

作者：

singlesmoke (孤烟7585)	★☆☆☆☆	-
	普通会员

2004/5/28 16:50:29

3楼：

我先试试看，谢谢啦！！文字

----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/5/28 16:50:47

2楼：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    FillButton: TButton;
    SaveButton: TButton;
    LoadButton: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type
  TArray = array [0..2499999] of Byte;
  TArrayFile = file of TArray;

implementation

{$R *.dfm}

function WriteArray(FileName: string; Arr: TArray): Boolean;
var
  F: TArrayFile;
begin
  try
    AssignFile(F, FileName);
    Reset(F);
    Write(F, Arr);
    CloseFile(F);
    Result := True;
  except
    Result := False;
  end;
end;

function ReadArray(FileName: string; var Arr: TArray): Boolean;
var
  F: TArrayFile;
begin
  try
    AssignFile(F, FileName);
    Reset(F);
    Read(F, Arr);
    CloseFile(F);
    Result := True;
  except
    Result := False;
  end;
end;

var
  Arr: TArray;

procedure TForm1.FillButtonClick(Sender: TObject);
var
  I: Integer;
begin
  for I := Low(Arr) to High(Arr) do Arr[I] := Byte(I);
end;

procedure TForm1.LoadButtonClick(Sender: TObject);
begin
  if not ReadArray('C:\1.txt', Arr) then
    raise Exception.Create('Read file error');
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
begin
  if not WriteArray('C:\1.txt', Arr)
    raise Exception.Create('Write file error');
end;

end.

----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

thatiswhy (thatiswhy)	★☆☆☆☆	-
	盒子活跃会员

2004/5/28 17:32:27

4楼：

selphi考虑的很完善，细节处见功力：）
----------------------------------------------
朝花夕拾--Delphi

信息

登陆以后才能回复