[cadil]

В окно Edit в процессе работы программы была внесена запись, например, 4-24-240.
Помогите организовать работу программы таким образом, чтобы при следующем открытии программы запись (4-24-240) была воспроизведена.
Спасибо!

[pesi]

Можно использовать ini

Код:

USES
  IniFiles;

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
  Ini.Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
  Ini.Free;
end;

[kolian]

Ini: TIniFile;-ругается.
Что значет ini

[cadil]

Сообщение от pesi

Можно использовать ini

Еще раз - спасибо! Все получилось!

[kolian]

Как тоже самое сделать в memo или label

[Bars1992]

Сообщение от kolian

Как тоже самое сделать в memo или label

У Label есть свойство caption которое тоже можно созранить в ини файл.

С мемео тоже легко.

PHP код:

memo1.Lines.SaveToFile('');
memo1.Lines.LoadFromFile(''); 


[kolian]

Получилось,спс.ток я хотел без бд и других дополнительных файлов.Такое возможно?

[cadil]

Сообщение от pesi

Можно использовать ini

По аналогии пытаюсь запомнить положение ползунка - не получается:
E2010 Incompatible types: 'Integer' and 'string'

Код:

procedure TForm6.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
//TrackBar1.Position:= Ini.ReadInteger('data', 'TrackBar1_Position', '');
 end;

procedure TForm6.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
 begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
 //Ini.WriteInteger('data', 'TrackBar1_Position',  TrackBar1.Position);
  Ini.Free;
end;

Помогите запомнить положение ползунка (выделено слэшами).

[cadil]

Сообщение от pesi

Можно использовать ini

Код:

USES
  IniFiles;

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
  Ini.Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
  Ini.Free;
end;

Как запомнить соcтояние RadioButton1? Спасибо!

[pesi]

читаем:

Код:

 RadioButton1.Checked:= Ini.ReadBool('data', 'RadioButton1_Checked', false);

пишем:

Код:

 Ini.WriteBool('data', 'RadioButton1_Checked', RadioButton1.Checked);

[cadil]

Сообщение от pesi

читаем:

Код:

 RadioButton1.Checked:= Ini.ReadBool('data', 'RadioButton1_Checked', false);

пишем:

Код:

 Ini.WriteBool('data', 'RadioButton1_Checked', RadioButton1.Checked);

Благодарю за оперативность. Я даже не успел снять свой вопрос - догнал сам ...

[dimsog]

Код:

procedure TForm6.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
  TrackBar1.Position:= Ini.ReadInteger('data', 'TrackBar1_Position', 0);
 end;

procedure TForm6.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
 begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
  Ini.WriteInteger('data', 'TrackBar1_Position',  TrackBar1.Position);
  Ini.Free;
end;

Не проверял, но должно работать.

[NIch]

Получилось,спс.ток я хотел без бд и других дополнительных файлов.Такое возможно?

Только если хранить в реестре винды...

[cadil]

Сообщение от dimsog

Код:

procedure TForm6.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
  TrackBar1.Position:= Ini.ReadInteger('data', 'TrackBar1_Position', 0);
 end;

procedure TForm6.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
 begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
  Ini.WriteInteger('data', 'TrackBar1_Position',  TrackBar1.Position);
  Ini.Free;
end;

Не проверял, но должно работать.

Спасибо! Работает.