08/05/09 21:18:12
少なくともコード書いて試して 603 に対して「おしい」とかいってるのか？
const
DatEx='.dat';
var
ListDat:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListDat:=ChangeFileExt(Application.ExeName,DatEx);
if FileExists(ListDat) then
ListBox1.Items.LoadFromFile(ListDat);
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ListBox1.Items.SaveToFile(ListDat);
end;
ちなみにみんなの言っている「日本語でおｋ」は
「Items欄に保存」ってのがわからんってことだぞ