Орешник Мастеров DELPHI
Орешек знанья тверд,
и все.
(вместо эпиграфа)
Трудны и тернисты пути знания. Блуждая по ним, нельзя обойтись без курьезов. Почему же не попытаться использовать их для поднятия настроения, для учебы?
В нашем "орешнике" мы попытаемся собирать такие, на наш взгляд курьезные вопросы и ответы из форумов, которые могут вызвать Вашу улыбку.
Улыбайтесь, господа! (к/ф "Тот самый Мюнхгаузен")
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14
ООЧЕННЬЬЬ нужна помощь!
Ужасная проблема: БД была испорчена компилятором. Поля, которые изменялись, не читаются - выдаёт ошибку : "BLOB denied, was mogif..." Данные потерялись после глюка компилятора. Что делать? Нужно восстановить БД!
Ответ:>БД была испорчена компилятором
8-))))))))))))))))))))))
Это что то новенькое.
ОК! Глюк был из-за программы моей. Но компилятор не сохранил изменение БД! Кроме того записи, которые давно были и изменялись в этот момент не читаются. Появляется ошибка "Blob..."
Ответ:Меня сильно подмывает спросить:
Что на твой взгляд есть компилятор?
хм... текстовый файл
var f : file of text;
Почему такая конструкция не канает в делфе?
RPG [Delphi, Windows]
Как сделать чтобы когда чубрик стрелнул и попал в другого, тот упал или остался стоять если в него непопали
Обработчик прерывания
Как оформить процедуру обработки прерывания в Delphi 6 ?
Заголовок типа
procedure IntHandler;interrupt;
не проходит :-(
Ответ:Странно, а в Паскале 7 почему-то не проходит следущее объявление
MyClass = class(TComponent)
FStrings: TStrings;
property Strings: TStrings read FStrings write FStrings;
end;//MyClass
:-)
цыклы
Помогите решить, пожалуйста на Delphi.
Даны два вещественных числа. Сколько на отрезке между ними целых чисел (отрезок включает в себя также и данные числа, если они целые).
Ответ:если a<b то
n:=Floor(b)-Ceil(a)+1;
Ответ:if (n1>0) and (n1<>trunc(n1)) then n1 := n1 + 1;
for I := trunc(n1) to trunc(n2) do
DoWith(I);
Ответ:А 2 + 2 вычислять как
Result := 2;
for k := 1 to 2 do Result := Result + 1
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14
