Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

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

 
RedDragon   (2004-10-05 22:21) [0]

Здравствуйте, друзья и подруги! Вот мне здесь уже подсказали как создавать строки и присваивать текст этих строк переменным.
а что если я этими переменными хочу оперировать впоследствие?
Что делать? Надо их сохранять...
Вот теперь - то и подскажите, как сохранять переменные в текстовые файлы, но не забудьте подсказать, как потом по загрузке эти переменные воспроизводить...
переменные называются так:
prezident1
...
prezident10

Для ясности - вот такой случай:
я хочу чтобы переменные, по закрытии программы записывались в файл -    prezident.txt  .
И чтобы при загрузке программы, строкам -
prezident1label.caption:=prezident1;
...
prezident10label.caption:=prezident10;
Только напишите пояснения - что при закрытии, что при загрузке.
И напишите, какие компоненты надо поставить на форму, если это надо...


 
BDenis ©   (2004-10-05 22:22) [1]

см. в Хелп TIniFiles.


 
RedDragon   (2004-10-05 22:26) [2]

Лучше напиши


 
BDenis ©   (2004-10-05 22:32) [3]


uses IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
 Ini: TIniFile;
begin
 Ini := TIniFile.Create (ChangeFileExt (Application.ExeName, ".ini"));
 try
   Label1.Caption := Ini.ReadString ("SectionName", "Ident", "DefaultValue");
 finally
   Ini.Free
 end
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 Ini: TIniFile;
begin
 Ini := TIniFile.Create (ChangeFileExt (Application.ExeName, ".ini"));
 try
   Ini.WriteString ("SectionName", "Ident", Label1.Caption);
 finally
   Ini.Free
 end
end;



 
RedDragon   (2004-10-06 21:11) [4]

а обьясни, пожалуйста как сохранить мои переменные, и к моим строкам...


 
RedDragon   (2004-10-07 21:54) [5]

Спасибо, я всё понял!



Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.032 c
9-1084898608
Warlock
2004-05-18 20:43
2004.10.24
Зацените мое первое творение


14-1096669667
GanibalLector
2004-10-02 02:27
2004.10.24
СУПЕРМАРКЕТ...


1-1097215485
MegaVolt
2004-10-08 10:04
2004.10.24
Как отрисовать кусочек TMetaFileCanvas?


14-1096613025
Григорьев Антон
2004-10-01 10:43
2004.10.24
Куда бы съездить в выходные?


4-1095487425
kukuikar
2004-09-18 10:03
2004.10.24
ExtractIcon





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский