Сохранение Caption

[Dialen]

Здравствуйте!
В программе сделал возможность менять заголовки у кнопок. Только вот при повторном открытии программы заголовки оказываются прежними.
Подскажите, как реализовать сохранение этих заголовков (их всего 5), ну и их загрузку.

[Utkin]

Засунь их в TStringList - удобный доступ, сохранение и чтение одной строчкой.

[artemavd]

Я бы мог подсказать настолько извращенный способ, что просто уму не постижимо какой бы это был бред. . Поэтому совет Utkin самый правильный.

[Sparkman]

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

Здравствуйте!
В программе сделал возможность менять заголовки у кнопок. Только вот при повторном открытии программы заголовки оказываются прежними.
Подскажите, как реализовать сохранение этих заголовков (их всего 5), ну и их загрузку.

в текстовый файл:

procedure TForm1.FormCreate(Sender: TObject);
var f:TextFile;
    tempstring : String;
    path : String;
begin
     path := ExtractFilePath(Application.ExeName)+'Заголовки.txt';
     if FileExists(path) then
     begin
          AssignFile(f,path);
          Reset(f);

          if not eof(f) then
          ReadLn(f,tempstring);
          Label1.Caption:=tempstring;

          if not eof(f) then
          ReadLn(f,tempstring);
          Label2.Caption:=tempstring;

          if not eof(f) then
          ReadLn(f,tempstring);
          Label3.Caption:=tempstring;

          if not eof(f) then
          ReadLn(f,tempstring);
          Label4.Caption:=tempstring;

          if not eof(f) then
          ReadLn(f,tempstring);
          Label5.Caption:=tempstring;
          
          CloseFile(f);
     end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var f:TextFile;
    path : String;
begin
     path := ExtractFilePath(Application.ExeName)+'Заголовки.txt';
     AssignFile(f,path);
     Rewrite(f);

     WriteLn(f,Label1.Caption);
     WriteLn(f,Label2.Caption);
     WriteLn(f,Label3.Caption);
     WriteLn(f,Label4.Caption);
     WriteLn(f,Label5.Caption);

     CloseFile(f);
end;

ПС: наверное эту тему надо занести в раздел "Помощь студентам"

[SERG1980]

INI файлы, смотрите поиском

uses inifiles
//загрузка
procedure TForm1.FormCreate(Sender: TObject);
var ini:TIniFile;
begin
 try
  ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Setup.ini');
  Button1.Caption:=ini.ReadString('Setup','Button1','Значение по умолчанию');
 //и так для всех кнопок
 finally
  ini.Free;
 end;
end;
//сохранение
procedure TForm1.FormDestroy(Sender: TObject);
var ini:TIniFile;
begin
 try
  ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Setup.ini');
  ini.WriteString('Setup','Button1',Button1.Caption);
 finally
  ini.Free;
 end;
end;

[Dialen]

Спасибо за помощь!

ПС: наверное эту тему надо занести в раздел "Помощь студентам"

Извиняюсь, просто не так давно на форуме.

Засунь их в TStringList - удобный доступ, сохранение и чтение одной строчкой.

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

P.S.В ini зато сохранил шрифт. ))

[Utkin]

http://www.delphibasics.ru/TStringList.php

Вообще на будущее, если Вы не знаете как пользоваться каким-либо механизмом, попробуйте поискать его описание. Например в начале страницы форума, сразу под заголовком есть менюшка :
Правила форума | Исходники Delphi | Основы Delphi | Блог программистов | Рассылка | Конкурс программистов!
Нажимаете на Основы Delphi и далее в строке поиска вбиваете интересующую Вас полезность. Экономит время. И ваше и наше. Насчет TStringList - это очень удобно и прозрачно для Вашей задачи, писать ручками почти ничего не надо. Да и глупо это, если уже существует готовый и отлаженный код...

[Dialen]

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

http://www.delphibasics.ru/TStringList.php

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

Не поверите .Сразу залез на этот сайт и был именно на этой странице. Замечания учту

[SERG1980]

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

P.S.В ini зато сохранил шрифт. ))

в ини можно хранить всё