ещё калькулятор =)

[_-Re@l-_]

Там пусто. Что, сложно объяснить?

[FieStik]

Сообщение от _-Re@l-_

Там пусто. Что, сложно объяснить?

Real ты прикалываешся? зайди в образец, проведи несколько операций.. умножить, поделить, корень и пр. .. потом нажми Лог. и увидишь что там

[_-Re@l-_]

Real ты прикалываешся?

Я никогда не прикалываюсь.
Провёл несколько вычислений - лог пустой

[ex.cluz]

Я никогда не прикалываюсь.

Не, эт не жизнь
А лог работает (в образце). Проверял.
FieStik, сделал бы тебе, но времени жалко на такую простую работу. Неужели сам не сделаешь?
Ты вот тему два дня назад создал и насколько продвинулся в кодинге?
Что нового сделал?

[_-Re@l-_]

Не знаю, у меня он почему-то ПУСТОЙ!!!

Я никогда не прикалываюсь.

Не, эт не жизнь

Я только шучу
Да вы меня неправильно понялиЕсли по делу, то никогда
А если просто - то это само собой разумеещеюся

[ex.cluz]

_-Re@l-_, я из поста #3 ссылку открывал, там и есть пример.

[FieStik]

Сообщение от ex.cluz

Не, эт не жизнь
А лог работает (в образце). Проверял.
FieStik, сделал бы тебе, но времени жалко на такую простую работу. Неужели сам не сделаешь?
Ты вот тему два дня назад создал и насколько продвинулся в кодинге?
Что нового сделал?

ну во-первых я "она"=) во-вторых: продвинулась я в доводении калькулятора до ума, но то что я написала я незнаю как сделать(это касаеться не только Лога), ибо в делфи я не всё знаю и не всё понимаю.

[FieStik]

Разобралась с логом и факториалом. Осталось сделать мигание текста при ошибки с таймером. Кто нибуть знает как это сделать?

[ex.cluz]

Умница! Я в тебя верил!

Делаешь так.
Описываешь глобальную переменную:

FlashIteration: byte;

Кидаешь на форму таймер, ставишь свойство Enabled в false и в единственно доступном для него событии пишешь:

begin
  if Label.Font.Color=clRed then Label.Font.Color:=clBlack
  else Label.Font.Color:=clRed;
  if FlashIteration<>16 then FlashIteration:=FlashIteration+1
  else begin FlashIteration:=0; Timer1.Enabled:=false; end;
end;

Соответственно, когда возникает ошибка, пишешь: Timer1.Enabled:=true;
Да, вместо Label поставь имя компонента, где должен мигать текст.

Удачи!


Добавлено позже:

Во избежание ошибок в OnCreate у главной формы надо написать:

FlashIteration:=0;

А интервал у таймера выставить лучше в 100 (по умолчанию там 1000).

[FieStik]

Спасибо! Всё работает. Но есть вопрос: мне по заданию нужно, что-бы для каждой ошибки был свой цвет, для этого нужно создавать ещё 1 таймер или можно в текущем сделать с помощью проверок?