这个问题你好像已经问过一次了,我也已经告诉你也必须存到文本文件或INI文件中,
你不保存他只会在内存中驻留啊,这是最基本的电脑常识啊!那我给你写段代码吧,不过
这10分都要给我哦!
如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
MyFile: TextFile;
FPath: string;
begin
if Edit1.Text <> '' then
begin
ComboBox1.Items.Add(Edit1.text);
FPath := ExtractFilePath(ParamStr(0));
AssignFile(MyFile, FPath + 'myfile.dat');
if FileExists(FPath + 'myfile.dat') then
Reset(MyFile)
else
Rewrite(MyFile);
// Seek(MyFile, FileSize(MyFile));
Append(MyFile);
Writeln(MyFile, Edit1.Text);
CloseFile(MyFile);
end;
end;
//以下代码是程序启动时先从文件中读取已存数据
procedure TForm1.FormCreate(Sender: TObject);
var
MyFile: TextFile;
FPath, ComContent: string;
begin
FPath := ExtractFilePath(ParamStr(0));
if FileExists(FPath + 'myfile.dat') then
begin
AssignFile(MyFile, FPath + 'myfile.dat');
Reset(MyFile);
while not Eof(MyFile) do
begin
Readln(MyFile, ComContent);
ComboBox1.Items.Add(ComContent);
end;
CloseFile(MyFile);
end;
end;
end.
在FORM上放一个EDIT1,一个COMBOBOX1和一个BUTTON1(名字要一样),把代码再拷过去就行了
记得啊10分要都给我哦,我这是在凌晨2:30-2:55给你写的代码啊,我好辛苦哦,还调试了呢
55555,才10分,加点行不.555555555
