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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помощь с программой 
:(
    Опции темы
byravchik
Дата 14.3.2009, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.3.2009

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


 ! 
THandle		Название темы должно отражать ее суть!
PM MAIL   Вверх
Samhein
Дата 14.3.2009, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Башзэфашовец
**


Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3
В текстовом файле всё сохраняй.


--------------------
Знаю форум наизусть, но писать еще боюсь
PM   Вверх
byravchik
Дата 14.3.2009, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.3.2009

Репутация: нет
Всего: нет
Хорошо, а как тогда организовать счет времени, которое работает программа?
PM MAIL   Вверх
former
Дата 14.3.2009, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


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

Репутация: 4
Всего: 17
Цитата(byravchik @  14.3.2009,  18:02 Найти цитируемый пост)
Хорошо, а как тогда организовать счет времени, которое работает программа? 


Запускать таймер при запуске программы. Или при старте и завершении работы программы определять текущее время и находить разницу. Но тогда от проблемы перевода часов  твоя программа не застрахована. Надежнее зацепиться за процессорное время.


Это сообщение отредактировал(а) former - 14.3.2009, 18:35


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
byravchik
Дата 15.3.2009, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.3.2009

Репутация: нет
Всего: нет
Приведите,пожалуйста, пример или ссылочку с кодом для считывания, из созданного файла, данных..
PM MAIL   Вверх
former
Дата 15.3.2009, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


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

Репутация: 4
Всего: 17
Цитата(byravchik @  15.3.2009,  11:18 Найти цитируемый пост)
Приведите,пожалуйста, пример или ссылочку с кодом для считывания, из созданного файла, данных.. 

А какой тип файла?

p.s. Один топик - один вопрос.



--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
byravchik
Дата 15.3.2009, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.3.2009

Репутация: нет
Всего: нет
Цитата(former @ 15.3.2009,  11:36)

А какой тип файла?

Обычный текстовый, я его создал.. в него записалось 3 нужных мне значения(записал через writeln)...вот теперь при запуске программы мне нужно считать эти значения и переприсвоить их другим переменным...
PM MAIL   Вверх
former
Дата 15.3.2009, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


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

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

var f :TextFile;
      a:string;
begin
  AssignFile(f, 'C:\1.txt');
  Reset(f);
  Read(f,a);
  Closefile(f);
end;


Это сообщение отредактировал(а) former - 15.3.2009, 12:15


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Shtorm
Дата 15.3.2009, 12:29 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Вообще для таких вещей удобнее использовать ini файлы и работа с ними шустрее вот примерчик
Код

uses IniFiles;
//...........................

// Таким образм записываем данные в *.ini файл
Var IniFile:TIniFile;
      FileSetup: WideString;
begin
  FileSetup := ExtractFilePath(ParamStr(0));
  try
    IniFile := TIniFile.Create(FileSetup+'EhoShitSetup.ini');  // Тут создаём файл с настройками прописывая путь и имя файла в переменную
    IniFile.WriteString('PortSetup','CommNo','твой текст');  // Тут записываем в секцию PortSetup значение CommNo
    IniFile.WriteInteger('PortSetup','BoudRate',19600);
  finally
    IniFile.Free;
  end;
 
end;

// А вот пример считывания этих данных
Var 
  FileTurn : WideString;
  IniFileTurn : TIniFile;
  VarM_CommNo: string;
  VarM_BoudRate: Integer;
begin
  FileTurn :=  ExtractFilePath(ParamStr(0))+'EhoShitSetup.ini';
  try
        IniFile := TIniFile.Create(FileTurn);
        VarM_CommNo := IniFileTurn.ReadString('PortSetup','CommNo',''); //Считывание строки
        VarM_BoudRate := IniFileTurn.ReadInteger('PortSetup','BoudRate',0); // последний 0, это число которое запишется в твою переменную, 
                                                                               // если данные не удалось прочесть. Потом можешь их проверять на предмет ошибки
  finally
    IniFile.Free;
  end;
end;

Почитай про ини-фалы, ничего сложного там нет, попробуй создать такой сам из моего примерчика или другого, потом загляни в папку, где создал этот инишник и открой его, всё станет понятным. На уникальность и обсалютную правильность не претендую, это пример, помню в хелпе по делфе тоже был пример, да и в DRKB по этому поводу инфвы достаточно.

Это сообщение отредактировал(а) Shtorm - 15.3.2009, 13:43
PM MAIL ICQ   Вверх
THandle
Дата 15.3.2009, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Shtorm, во второй части Вашего примера не увидел создания IniFileTurn,  к тому же освобождение нужно производить в любом слочае, даже если ошибка. То есть в блоке try..finally..end. Еще, ИМХО, лучше бы было использовать конструкцию with..do, а не использовать переменную.

Про ини - http://forum.vingrad.ru/articles/topic-197956.html
PM   Вверх
byravchik
Дата 15.3.2009, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.3.2009

Репутация: нет
Всего: нет
Shtorm, спасибо за информацию попробую smile 
PM MAIL   Вверх
Shtorm
Дата 15.3.2009, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
THandle, Писал, вспомнив свой старый пример, без имения под рукой делфы. Ты прав нужно ещё создавать 
Код

 TIniFile.Create

и освобождать после секции try. Тут важна суть, что текстовый файл не учен удобен для подобных вещей, ну а там уже кому как кайф, тот так и делает. Сейчас отредактирую.

Это сообщение отредактировал(а) Shtorm - 15.3.2009, 13:36
PM MAIL ICQ   Вверх
byravchik
Дата 16.3.2009, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.3.2009

Репутация: нет
Всего: нет
Спасибо всем за оказанную помощь smile Усе прекрасно работает...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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