Кто подскажет, как можно восстановить положение и состояние объектов при повторном запуске программы?

Вобще существуют специализированные компоненты, которые сохраняют состояние формы в реестр, в JEDI помоему есть, но я честно говоря никогда ими не пользовался, если надо было вручную в реестр (или Ини-файл) записывал

Вот, держи универсальный алгоритм сохранения настроек:

Код

uses Registry; ... function SaveSettings(Form: TForm): boolean; var settings: TMemoryStream; R: TRegistry; j: byte; S: PChar; b: boolean; l: word; begin settings := TMemoryStream.Create; with Form do   begin   for j := 0 to ControlCount - 1 do   if Controls[j] is TCheckBox then     begin     b := TCheckBox(Controls[j]).Checked; settings.WriteBuffer(b, 1);     end   else   if Controls[j] is TEdit   then     begin     S := PChar(TEdit(Controls[j]).Text);     l := length(S);     settings.WriteBuffer(l, 2);     if l > 0 then settings.WriteBuffer(S^, l);     end;   end; R := TRegistry.Create; R.RootKey := HKEY_CURRENT_USER; R.OpenKey('Software\XXX', true); settings.Seek(0, soFromBeginning); R.WriteBinaryData('settings', settings.Memory^, settings.Size); R.Free; settings.free; end; function LoadSettings(Form: TForm):boolean; var settings: TMemoryStream; R: TRegistry; buf: PChar; size: integer; j: byte; b: boolean; l: word; begin R := TRegistry.Create; R.RootKey := HKEY_CURRENT_USER; R.OpenKey('Software\XXX', true); if R.ValueExists('settings') then   begin   size := R.GetDataSize('settings');   buf := GetMemory(size);   R.ReadBinaryData('settings', buf^, size);   settings := TMemoryStream.Create;   settings.Write(buf^, size);   FreeMemory(buf);   settings.Seek(0, soFromBeginning);   With Form do     begin     for j := 0 to ControlCount - 1 do     if Controls[j] is TCheckBox     then       begin       settings.ReadBuffer(b, 1);       TCheckBox(Controls[j]).Checked := b       end     else     if Controls[j] is TEdit     then       begin       settings.ReadBuffer(l, 2);       if l > 0 then         begin         buf := GetMemory(l);         settings.ReadBuffer(buf^, l);         TEdit(Controls[j]).Text := copy(buf, 1, l);         FreeMemory(buf)         end;       end;     end;   settings.Free;   end; R.Free; end;

SaveSettings
первое, что делает функция, это создает поток данных в памяти, он как раз и будет тем буфером, в котором и будут храниться все настройки. Далее функция начинает перебор всех компонентов на форме. Если очередной компонент является TCheckBox или TEdit (можно добавить и другие компоненты), то в буфер записываются их основные свойства, т.е. Checked и Text соответственно (можно записывать и другие свойства). Далее мы записываем буфер как двоичные данные в реестр.

LoadSettings
сначала получаем размер записанных настроек, выделяем под них память, считываем, переносим для удобства в TMemoryStream. Порядок не нарушается, т.к. пробег по контролам всегда идет по строго определенной последовательности указанной TabOrder. Все!

Теперь можно добавлять новые настройки и компоненты (TCheckBox и TEdit в данном примере), удалять старые и не изменять код. В данном случае код упрошен, необходимо предусмотреть также обход контролов на панелях (TPanel), группах (TGroupBox) и т.п.

PS. В параметр Form передается имя формы на каторой "лежат" компопенты, параметры каторых мы хотим сохранить. Вызываются функции:

Код

SaveSettings(Form1)

и

Код

LoadSettings(Form1)

Цитата(Poseidon @ 9.5.2005, 15:10)

Вот, держи универсальный алгоритм сохранения настроек:

Огромное спасибо, попробуем применить на практике.