在Delphi中怎样永久保存值到变量中？

Question

if don't exit programuse
const aa:string='aaaaaaaaaaaaa';

Answer 1

我的想法是像c语言中的static类型一样保存到程序中,而不是外部文件中

Answer 2

可以将值写到文件里或注册表里,文件可以用.ini,delphi读取此文件比较方便,而且很多程序都是将一些参数写到此文件里,当然写到注册表里也是很好的方法

Answer 3

static类型的程序从起后也会变啊，它只是允许不同模块去防问它，不要忘了，变量是放到内存中的

Answer 4

nit frmMain;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, StdCtrls;type
  TMainForm = class(TForm)
    edtRead: TEdit;
    btRead: TButton;
    edtWrite: TEdit;
    btWrite: TButton;
    procedure btReadClick(Sender: TObject);
    procedure btWriteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.btReadClick(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\iLearn',False);
    edtRead.Text := Reg.ReadString('name');
    Reg.CloseKey;
  finally
    Reg.Free;
  end;end;procedure TMainForm.btWriteClick(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\iLearn',False);
    Reg.WriteString('name',edtWrite.Text);
    Reg.CloseKey;
  finally
    Reg.Free;
  end;end;end.