Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Как сохранить переменные? 


konusov   (2002-04-06 22:31) [0]

Как при выходе из программы сохранить переменные разных типов в текстовый файл, а при запуске программы восстановить их из файла?



y-soft   (2002-04-06 22:34) [1]

Вопрос этот многократно здесь рассматривался. Воспользуйтесь TIniFile, только придется самостоятельно делать приведение для нестандартных типов.



MBo   (2002-04-06 22:35) [2]

TIniFile



Sergey_n   (2002-04-07 00:52) [3]

А чем реестр не нравиться???



SPeller   (2002-04-07 02:57) [4]

Тебе обязятельно в текстовый ? Может лучше просто без текста туда их запихать ?



Vcoder   (2002-04-07 12:31) [5]

Можешь сохранять ВСЮ ФОРМУ сразу - почитай про ReadComponentResFile / WriteComponentResFile. Нужны подробности - пиши, объясню.



hooky-mars   (2002-04-07 12:53) [6]

Вот тут всё написано.
http://www.sources.ru/delphi/delphi_my_own_database.shtml
Если не знаеш как заполнить тамашний массив, то делай так:
for i:=1 to 50 do
begin
members[i].name:="";
members[i].eMail:="@";
members[i].Posts:=i
end;



Sergey Saf   (2002-04-07 13:54) [7]

Сделай эту прогу,разберешься...

unit Unit1;

interface

uses
Windows, Messages, IniFiles,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Edit1: TEdit;
Edit2: TEdit;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
F: TIniFile;
names: TStringList;
i: integer;
begin
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) +
"window.ini");

Form1.Left := F.ReadInteger("position", "left", 0);
Form1.Width := F.ReadInteger("position", "width", 200);
Form1.Top := F.ReadInteger("position", "top", 0);
Form1.Height := F.ReadInteger("position", "height", 200);

Edit1.Text := F.ReadString("tools", "edit1", "no text");
Edit2.Text := IntToStr(F.ReadInteger("tools", "koef", 0));
CheckBox1.Checked := F.ReadBool("tools", "check", true);

names := TStringList.Create;
F.ReadSection("files", names);
for i := 0 to Names.Count - 1 do
ListBox1.Items.Add(F.ReadString("files", names.Strings[i],
""));
names.Destroy;

F.Destroy;

end;

procedure TForm1.FormDestroy(Sender: TObject);
var
F: TIniFile;
i: integer;
begin
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) +
"window.ini");

F.WriteInteger("position", "left", Form1.Left);
F.WriteInteger("position", "width", Form1.Width);
F.WriteInteger("position", "top", Form1.Top);
F.WriteInteger("position", "height", Form1.Height);

F.WriteString("tools", "edit1", Edit1.Text);
F.WriteInteger("tools", "koef", StrToIntDef(Edit2.Text, 0));
F.WriteBool("tools", "check", CheckBox1.Checked);

for i := 0 to ListBox1.Items.Count - 1 do
F.WriteString("files", "file" + IntToStr(i+1), ListBox1.Items.Strings[i]);

F.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

ListBox1.Items.Add(Edit1.Text);

end;

end.



Sergey Saf   (2002-04-08 14:32) [8]

Получилось ?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.028 c
3-57663           Roman_Tutov@mail.ru   2002-03-28 16:29  2002.04.18  
date & time trouble


14-57842          VuDZ                  2002-03-10 13:06  2002.04.18  
SQL Request - помогите, а то всё забыл


4-57919           Dimaond Cat           2002-02-15 15:50  2002.04.18  
Перерисовка компонентов в риалтайм


6-57838           Vks                   2002-02-05 15:36  2002.04.18  
Как можно измерить трафик, программы (в моем случае сетевая БД)?


14-57869          dima_                 2002-03-11 13:35  2002.04.18  
Подскажите как перенести текст из Тmemo в memo ячейку таблицы...