关于delphi开发的基本问题。

Question

用const。例如：
procedure TForm1.Button1Click(Sender: TObject);
const
  MyMsg = 'Hello, world';
  x = 22;
begin
  ShowMessage(MyMsg + IntToStr(x));
end;  

Answer 1

显示一服务器上的文本文件，名为scandisk.log:
procedure TForm1.Button1Click(Sender: TObject);
const
  fn = '\\MyServer\SharePath\SCANDISK.LOG';
var
  fs: TStrings;
begin
  fs := TStringList.Create;
  fs.LoadFromFile(fn);
  ShowMessage(fs.Text);
  fs.Free;
end;

Answer 2

静态变量有两种可以定义：全局静态、局部静态。
全局静态变量定义在interface部分，局部静态变量定义在implementation部分。下例：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  globalvar: string;implementation
var localvar: integer;{$R *.DFM}end.上面globalvar就是全局静态变量，其他单元文件中的例程也可以存取它。
localvar就是局部静态变量，只能在本单元文件中被存取。

Answer 3

静态变量有两种可以定义：全局静态、局部静态。
全局静态变量定义在interface部分，局部静态变量定义在implementation部分。下例：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  globalvar: string;implementation
var localvar: integer;{$R *.DFM}end.上面globalvar就是全局静态变量，其他单元文件中的例程也可以存取它。
localvar就是局部静态变量，只能在本单元文件中被存取。

Answer 4

静态变量有两种可以定义：全局静态、局部静态。
全局静态变量定义在interface部分，局部静态变量定义在implementation部分。下例：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  globalvar: string;implementation
var localvar: integer;{$R *.DFM}end.上面globalvar就是全局静态变量，其他单元文件中的例程也可以存取它。
localvar就是局部静态变量，只能在本单元文件中被存取。

Answer 5

如过是2进制方式，下面是copy举例。
procedure TForm1.Button1Click(Sender: TObject);
const
  sname = 'C:\COMMAND.COM';
  dname = 'C:\CC.COM';
var
  sfile, dfile: TFileStream;
  BufPtr: PChar;
begin
  sfile := TFileStream.Create(sname, fmOpenRead or fmShareDenyNone);
  dfile := TFileStream.Create(dname, fmCreate);
  sfile.Position := 0;
  dfile.Position := 0;
  BufPtr := AllocMem(sfile.Size);
  sfile.Read(BufPtr^, sfile.Size);
  dfile.Write(BufPtr^, sfile.Size);
  dfile.Free;
  sfile.Free;
end;