Сохранения программы

[niva622]

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

[Alar]

в чём проблема, сохраняй в файл, базу данных...

[Virtson]

для сохранения настроек легко
использовать ini файлы.

[niva622]

А какой код, что бы форму сохранить в ini файл.

[AVer]

Нужно сохранеть не "форму", а состояния всех компонент. Для TrackBar основное вроде бы Position (не помню точно).

[niva622]

А кто нибудь может помочь с сохранением формы

[SuperVisor]

Форма (да и вообще любой компонент) имеет набор параметров, которые и нужно сохранять... Можно даже записями пользоваться и объявлять типизированную по этой записи файловую переменную (кстати самый простой способ скрыть настройки от типичного юзера, если это необходимо)..

[AVer]

Если объединить все три темы от niva622 - Помогите с графикой (Простой вопрос), Рисование на форме и Сохранения программы, то вырисовывается такая картина: Программа что-либо нарисовала на форме, и после этого должна все это сохранить. Чтобы это сделать нужно сохранить цвет каждого пикселя канвы формы. Сохранить можно либо в изображение, либо в типизированный файл (можно и в текстовый, но проблем будет больше). Покажу на примере изображения.

Сохранение:

Image1.Width:=Form1.Width;
Image1.Height:=Form1.Height;
For I:=1 To Form1.Width Do
For J:=1 To Form2.Height Do
Image1.Canvas.Pixels[I,J]:=Form1.Canvas.Pixels[I,J];
Image1.Picture.SaveToFile(FileName);

Загрузка:

Image1.Picture.LoadFromFile(FileName);
Form1.Width:=Image1.Width;
Form1.Height:=Image1.Height;
For I:=1 To Form1.Width Do
For J:=1 To Form2.Height Do
Form1.Canvas.Pixels[I,J]:=Image.Canvas.Pixels[I,J];

[-=DeS=-]

Вот тебе согранение и загрузка StringGrid... переделать наверное сам сможешь

procedure TForm1.Button3Click(Sender: TObject);//Сохранение
var
  y: integer;
  t: TextFile;
begin
  AssignFile(t,'base.des');
  Rewrite(t);
  for y:=0 to StringGrid1.RowCount-1 do
    WriteLn(t,StringGrid1.Rows[y].Text);
  CloseFile(t);
end;
 
procedure TForm1.Button4Click(Sender: TObject);//Загрузка
var
  t: TextFile;
  s: string;
  i: integer;
begin
  StringGrid1.RowCount:=1;
  AssignFile(t,'base.des'); Reset(t);
  while not eof(t) do
  begin
    for i:=0 to StringGrid1.ColCount-1 do begin
      ReadLn(t,s);
      StringGrid1.Cells[i,StringGrid1.RowCount-1]:=s;
    end;
    ReadLn(t,s);
    StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
  CloseFile(t);
end;