Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранить счетчик 
:(
    Опции темы
NZero
Дата 6.5.2010, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
Всем привет!!! Возникла такая проблемка, нужно сохранять значение счетчика при выходе из программы. Это возможно сделать? 
PM MAIL WWW ICQ   Вверх
kami
Дата 6.5.2010, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(NZero @  6.5.2010,  21:27 Найти цитируемый пост)
нужно сохранять значение счетчика при выходе из программы.

Где сохранить? (ведь просто сохранить мало, я думаю, нужно при следующем запуске прочитать его)
Реестр, txt, ini-файл, файл собственного формата, ntfs-поток?
PM MAIL WWW   Вверх
NZero
Дата 6.5.2010, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
Нужно чтобы при следующем заходе в программу счетчик начинал считать не с нуля, а с того числа на котором остановился в прошлый раз. А где сохранять без разницы. 
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 6.5.2010, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(NZero @  6.5.2010,  22:27 Найти цитируемый пост)
Это возможно сделать?  

Разумеется, возможно. Где собираешь сохранять?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NZero
Дата 6.5.2010, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
В txt файле.

Добавлено @ 22:40
Код программы:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then egtr:=1;
nd1:=nd1+1;
passport(egtr, nd1);
if ComboBox1.ItemIndex=1 then egtr:=2;
nd2:=nd2+1;
passport(egtr, nd2);
if ComboBox1.ItemIndex=2 then egtr:=3;
nd3:=nd3+1;
passport(egtr, nd3);
end;


nd1, nd2, nd3 - счетчики


Это сообщение отредактировал(а) NZero - 6.5.2010, 22:41
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 6.5.2010, 23:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(NZero @  6.5.2010,  23:38 Найти цитируемый пост)
В txt файле.

Почему не в ini файле или реестре?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
kami
Дата 6.5.2010, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(NZero @  6.5.2010,  22:38 Найти цитируемый пост)
В txt файле.

не интересно :( Хотя бы ini задействовал...

Последовательность действий:
при сохранении:
Код

AssignFile(...);
Rewrite(...);
WriteLN(..., IntToStr(nd1));
WriteLN(..., IntToStr(nd2));
и так далее...
CloseFile(...);


При чтении:
Код

var
  s:string;
AssignFile(...);
Reset(...);
Readln(..., s);
nd1:=StrToInt(s);
Readln(..., s);
nd2:=StrToInt(s);
и так далее;
CloseFile(...);

+ чуть-чуть кнопочки F1 и код готов.
PM MAIL WWW   Вверх
superVad
Дата 7.5.2010, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15
TIniFile смотри в справке
PM MAIL   Вверх
NZero
Дата 8.5.2010, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет
Все получилось, большое спасибо!!! Не хочу открывать новую тему, так что напишу здесь. 

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then egtr:=1;
nd1:=nd1+1;
passport(egtr, nd1);
if ComboBox1.ItemIndex=1 then egtr:=2;
nd2:=nd2+1;
passport(egtr, nd2);
if ComboBox1.ItemIndex=2 then egtr:=3;
nd3:=nd3+1;
passport(egtr, nd3);
end;


nd1, nd2, nd3 - счетчики

Так вот когда выбтраю значение ComboBox1.ItemIndex=0 увеличивается значение счетчика nd1,\
но когда выбираю ComboBox1.ItemIndex=1, то увеличивается не значение счетчика nd2, а значение счетчика nd1, то же самое когда выбираю ComboBox1.ItemIndex=2. 
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 8.5.2010, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then 
 begin 
  egtr:=1;
  nd1:=nd1+1;
  passport(egtr, nd1);
end;
if ComboBox1.ItemIndex=1 then 
 begin  
  egtr:=2;
  nd2:=nd2+1;
  passport(egtr, nd2);
 end;
if ComboBox1.ItemIndex=2 then 
 begin 
  egtr:=3;
  nd3:=nd3+1;
  passport(egtr, nd3);
 end;
end;



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0533 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.