|
Вопрос # 5 351/ вопрос решён / |
|
Здравствуйте! Подскажите пожалуйста команду, которая бы сбрасывала все счетчики, которые используются в программе.
 |
Вопрос задала: Валентинка (статус: Посетитель)
Вопрос отправлен: 31 мая 2011, 12:03
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Вот, набросал тебе пример. Прицепляю к ответу.
З.Ы. И выкинь к ядрени фене паскалевские файловые процедуры. Они давно устарели. Я ж тебе советовал юзать TIniFile. Чем он тебе не угодил? И кода будет меньше.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 31 мая 2011, 14:28
Оценка за ответ: 5
Комментарий к оценке: Спасибо!!!
|
Мини-форум вопроса
Всего сообщений: 38; последнее сообщение — 31 мая 2011, 15:24; участников в обсуждении: 4.
Страницы: [« Предыдущая] [1] [2]
|
DNK (статус: Студент), 31 мая 2011, 13:03 [#21]:
Поставить пиво для min@y™.
"Digital Networked Knight"
|
|
Вадим К (статус: Академик), 31 мая 2011, 13:04 [#22]:
подозреваю, что ручками. Вы же знаете, как должна выглядеть ваша форма после того, как "обнулили все счетчики"? вот и нужно это сделать. за пример можно взять код процедуры resetform
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 13:04 [#23]:
Цитата (Валентинка):
а как сделать это???
Всё просто: надо в конце теста тестирующую форму убивать (Free), а в начале теста - создавать (Create, ShowModal). Ну и, конечно, обнулять все нужные глобальные переменные, то бишь, счётчики твои.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 13:29 [#24]:
форма же здесь уже создается???// обеспечивает настройку компонентов
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.AutoSize := False;
Image1.Proportional := True;
RadioButton1.Visible := False;
end;
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 13:31 [#25]:
Цитата (Валентинка):
форма же здесь уже создается???
Не угадала. Этот обработчик вызывается после создания формы самим созданным экземпляром этой самой формы.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 13:34 [#26]:
а с Form1.Free; даже не заканчивает программу, сразу выдает ошибку
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 13:41 [#27]:
Цитата (Валентинка):
даже не заканчивает программу, сразу выдает ошибку
Ну конечно, все тут сразу догадаются, какую именно!
Когда ж вы все научитесь грамотно формулировать вопросы, а? Прям бесит!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 13:45 [#28]:
Посмотрел исходник по диагонали. Много лишнего и всё свалено в кучу. От дефолтных имён переменных типа Button1, Image1, Form2, Label5, RadioButton100500 у меня заболели зубы и заслезились глаза. Ну нафига так делать?!!!11
Если делать грамотно и поэтапно, прога будет короче раз в 5.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 13:45 [#29]:
min@y™ а как написать второй раз Form1.Create; через процедуру или нет?
и правильно ли я тебя поняла так нужно сделать?
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 13:47 [#30]:
Ну я же не умею делать грамотно и поэтапно, я же только учусь!!!
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 13:47 [#30]:
Ну я же не умею делать грамотно и поэтапно, я же только учусь!!!
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 13:50 [#31]:
Написала так. Это верно?
begin
Form1.Create(Sender: TObject);
summa := 0;
vopros := 0;
otv := 0;
end;
Выдает ошибку:
[Error] TESTER_.PAS(74): Undeclared identifier: 'Sender'
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 13:52 [#32]:
Цитата (Валентинка):
а как написать второй раз Form1.Create; через процедуру или нет? и правильно ли я тебя поняла так нужно сделать?
Нет, неправильно. Щас пример напишу тебе, достала.
Цитата (Валентинка):
Ну я же не умею делать грамотно и поэтапно, я же только учусь!!!
Учиться надо было РАНЬШЕ! Стрекоза, [censored], лето красное пропела! А теперь уже поздно, деточка, ДИПЛОМ-С!..
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 13:53 [#33]:
Цитата (Валентинка):
Написала так. Это верно?
Нет. Советую переделать программу с нуля, пока не поздно. Щас напишу тебе заготовку.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 14:58 [#34]:
Цитата (Валентинка):
Комментарий к оценке: Спасибо!!!
Рано радуешься.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 31 мая 2011, 15:05 [#35]:
теперь как я понимаю мне нужно сделать что-то типа этого
procedure TForm1.Button1Click(Sender: TObject);
// объявление переменной типа TIniFile под названием MyIni
var
MyIni: TIniFile;
begin
// создание экземпляра MyIni и присвоение ему INI-файла
MyIni := TIniFile.Create('TEST.INI');
// Удалить раздел в TEST.INI под названием Configuration
MyIni.EraseSection('Configuration');
MyIni.Free;
end;
чтобы загрузить файл с самим тестом???
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 15:17 [#36]:
Цитата (Валентинка):
теперь как я понимаю мне нужно сделать что-то типа этого...
чтобы загрузить файл с самим тестом???
Блин, да из какой выгребной ямы ты черпаешь этот маразм, а? Ну почитай ты, ладно, пусть не книжку, статью. И всё поймёшь.
Ссылка РАЗ.
Ссылка ДВА.
Ссылка ТРИ.
Советую загружать за один раз все вопросы теста в память и потом работать с ними, а не дёграть их из файла по одному.
З.Ы. Тебе не кажется, что пора привести свои мозги в положение "ВКЛ"?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 31 мая 2011, 15:24 [#38]:
Цитата (Валентинка):
Да не ищи ты чужие куски кода. Они все заточены для решения исключительно ЧУЖИХ задач и к твоей никак не относятся. Изучи теорию и напиши СВОЙ код.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
9 июня 2011, 21:26: Статус вопроса изменён на решённый (изменил автор вопроса — Валентинка)
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
