简单的问题(100分送)

Question

我的界面中 需要输入'帐号'和'密码'  但每次都要打上去比较麻烦   
我想点Button1后Edit1.text内容保存起来 以后 打开程序 自己把保存的内容读到Edit1中 

Answer 1

存入INI文件,或者写注册表.以后每次读取就行了

Answer 2

这窗体关闭之前把内容保存到ini文件或注册里就可以了在加载的时候再读出

Answer 3

 baidu或google搜索 'delphi写注册表',关于注册表的文章无以计数

Answer 4

const
  TEXT_FILE = 'c:\Budded.sav'';procedure TForm1.Button1Click(Sender: TObject);
begin//保存
  with TStringList.Create do
  try
    Add(Edit1.Text);
    SaveToFile(TEXT_FILE);
  finally
    Free;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  with TStringList.Create do//打开
  try
    LoadFromFile(TEXT_FILE);
    Edit1.Text := Strings[0];
  finally
    Free;
  end;
end;

Answer 5

拜baidu,google为师才是正道,CSDN再牛的人也牛不过baidu,google,呵呵.
找了一个我前两天回复贴子http://topic.csdn.net/u/20071028/08/dbc0b936-2c98-4400-9465-b0211ea49510.html,实在不想再写了,莫怪,呵呵,或者等等后来的兄弟写

Answer 6

参考一下http://topic.csdn.net/u/20071028/10/b5dfad7e-e2e2-4cb3-aed1-f6d35c88d05e.html

Answer 7

TEXT_FILE   =   'c:\Budded.sav ' ';   是保存的位置吗？  注册表还是？

Answer 8

如果要保存在 程序所在的目录下呢 TEXT_FILE='c:\Budded.sav   '   '; 怎么写

Answer 9

const 
    TEXT_FILE   =   'c:\Budded.sav ' ';这个CONST放在什么位置的 怎么错误

Answer 10

TEXT_FILE：=‘路径’；//例如：路径 C\:E:\短期目标的资料.Budded.sav       

Answer 11

  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  const
  TEXT_FILE = 'c:\Budded.sav';
implementation

Answer 12

哪个是CSDN系统的问题：
   private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  const
  TEXT_FILE = ‘c:\Budded.sav’;//这里的引号为英文引号，我这里是中文，要不就显示为 ：TEXT_FILE = 'c:\Budded.sav';

Answer 13

有个问题出来了 我是Button1保存  读的时候是Form1.Create的时候  也就是第1次没有保存过 读的时候就出错了 如果判断他有没有保存过 没保存就不读

Answer 14

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TStringList.Create do
  try
     if fileexists('Budded.sav') then
       Begin
      LoadFromFile(TEXT_FILE);
      Edit1.Text := Strings[0];
      end
      Else
        Begin
         exit;
      end;
  finally
    Free;
  end;
end;

Answer 15

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TStringList.Create do
  try
     if fileexists('Budded.sav') then
       Begin
      LoadFromFile(TEXT_FILE);
      Edit1.Text := Strings[0];
      end
      Else
        Begin
         exit;
      end;
  finally
    Free;
  end;
end;

Answer 16

上面代码错误
procedure TForm1.Button2Click(Sender: TObject);
begin
  with TStringList.Create do
  try
     if fileexists('poemfile.txt') then//文件类型换为txt格式
      Begin
           LoadFromFile(TEXT_FILE);
           Edit1.Text := Strings[0];
      end
      Else
        Begin
            exit;
          end;
  finally
         Free;
  end;
end;
测试通过，，

Answer 17

写ini文件~~~写注册表可能会被当病毒杀掉~~~~~~
    open file - write file  - read file 
 
查看msdN