Все крыша поехала :(

← →
Style © (2003-12-23 20:45) [0]

Сижу и нажимаю CTRL+F9 в окне IE форума DelphiMaster! :)

← →
Anatoly Podgoretsky © (2003-12-23 20:53) [1]

Хм, попробовал, ничего не получилось

← →
Style © (2003-12-23 20:56) [2]

Anatoly Podgoretsky ©

Я тоже думаю, почему форум не компилируется 8-) ?

← →
Anatoly Podgoretsky © (2003-12-23 21:05) [3]

И у меня не получилось, а ведь сколько пробовал

← →
Style © (2003-12-23 21:12) [4]

Anatoly Podgoretsky ©

Я понял! Нужно было в адресе домашней страницы прописать

about: uses forum.dcu

← →
Nous Mellon © (2003-12-23 21:19) [5]

> Сижу и нажимаю CTRL+F9 в окне IE форума DelphiMaster! :)

Да, братец тебе ко врачу.
У тебя сильная форма шизоделфии! :)

← →
Style © (2003-12-23 21:22) [6]

Nous Mellon ©
на самом деле во всем виноват он - www.hch.ru/upload/rainbow.jpg :(

← →
Style © (2003-12-23 21:22) [7]

http://www.hch.ru/upload/rainbow.jpg

← →
Nous Mellon © (2003-12-23 22:04) [8]

> на самом деле во всем виноват он - www.hch.ru/upload/rainbow.jpg
> :(

А что это за шот?

← →
Style © (2003-12-23 22:24) [9]

Nous Mellon © - Это то, от чего крышу срывает

мониторинг, с датчиков инфу снимает и записывает в базу

← →
Юрий Зотов © (2003-12-23 22:27) [10]

> Style © (23.12.03 21:22) [7]

Зашел по ссылке, потестировал. Безобразие - ни одна кнопка не нажимается. Глючный проект!
:о)

Это еще не страшно, гораздо хуже когда сам такое пишешь и в середине проекта начинаешь уже сам путаться в формулах, хотя коментариев везде куча ;)
Вот тут и начинает башню срывать ;)

Это еще не страшно, гораздо хуже когда сам такое пишешь и в середине проекта начинаешь уже сам путаться в формулах, хотя коментариев везде куча ;)
Вот тут и начинает башню срывать ;)

-- так я и пишу сам

Как бороться с такой кучей констант? У меня крыша едит. Путаюсь!
мне еще 20тник настроек подкинули :(

Это одна часть из 4-х

CopyMemory(@Constants,SwapTable.FieldByName("Const").Data,sizeof(TConstArray)); for i := 1 to 4 do begin Spektr[i].se_pvn.value := Trunc(Constants[i]); Spektr[i].se_dpvn.value := Trunc(Constants[4+i]); Spektr[i].ScaleMax := Trunc(Constants[8+i]); Spektr[i].ScaleMin := Trunc(Constants[12+i]); Spektr[i].GateDo := Trunc(Constants[16+i]); Spektr[i].GatePosle := Trunc(Constants[20+i]); Spektr[i].MinMax := Trunc(Constants[24+i]); Spektr[i].maxMax := Trunc(Constants[28+i]); Spektr[i].PikCount := Trunc(Constants[32+i]); Spektr[i].PikStab := Trunc(Constants[36+i]); Spektr[i].PikI0 := Trunc(Constants[40+i]); Spektr[i].Pik1 := Trunc(Constants[44+i]); Spektr[i].Pik2 := Trunc(Constants[48+i]); Spektr[i].Gate1 := Trunc(Constants[52+i]); Spektr[i].Gate2 := Trunc(Constants[56+i]); Spektr[i].TmpMx := Trunc(Constants[60+i]); Spektr[i].TmpPk1 := Trunc(Constants[64+i]); Spektr[i].TmpPk2 := Trunc(Constants[68+i]); Spektr[i].TmpInt := Constants[72+i]; Spektr[i].ILo := Constants[76+i]; Spektr[i].IMax := Constants[80+i]; Spektr[i].CuMax := Constants[84+i]; Spektr[i].CuMin := Constants[88+i]; Spektr[i].tmpgd := Constants[92+i]; Spektr[i].tmpgp := Constants[96+i]; Spektr[i].Frm := trunc(Constants[100+i]); Spektr[i].Dac2 := trunc(Constants[104+i]); Spektr[i].BCut := trunc(Constants[108+i]); Spektr[i].ECut := trunc(Constants[112+i]); Spektr[i].Ust := Constants[116+i]; Spektr[i].PredUst := Constants[120+i]; ///******** Spektr[i].ed_Izm.Text := IntToStr(Trunc(Constants[129])); ////***** Spektr[i].GateDo2 := trunc(Constants[130+i]); Spektr[i].GatePosle2 := trunc(Constants[134+i]); Spektr[i].Keff := Constants[138+i]; Spektr[i].zInt1 := Constants[142+i]; Spektr[i].zInt2 := Constants[146+i]; Spektr[i].zDo := Constants[150+i]; Spektr[i].zDo2 := Constants[154+i]; Spektr[i].zPosle := Constants[158+i]; Spektr[i].zPosle2 := Constants[162+i]; Spektr[i].intBySource := boolean(trunc(Constants[171+i])); //Other Spektr[i].pdo := Spektr[i].Gatedo; Spektr[i].pdo2 := Spektr[i].Gatedo2; Spektr[i].pposle := Spektr[i].GatePosle; Spektr[i].pposle2 := Spektr[i].GatePosle2; if(Spektr[i].PikI0 = 12) then begin if(not Spektr[i].lb_mes.Visible) then Spektr[i].lb_mes.Visible := true; Spektr[i].ed_pkdo2.Text := IntToStr(Spektr[i].pdo2); Spektr[i].ed_pkposle2.Text := IntToStr(Spektr[i].pposle2); end else begin Spektr[i].lb_mes.Visible := false; end; if(Spektr[i].TempEr = ER_OFF) then begin Spektr[i].ed_oldpvn.Text := ""; Spektr[i].ed_pkdo.Text := ""; Spektr[i].ed_pkposle.Text := ""; Spektr[i].ed_maxmin.Text := ""; Spektr[i].ed_PredUst.Text := ""; Spektr[i].ed_Ust.Text := ""; Spektr[i].ed_Dac2.Text := "

Блин где-то не так буковку поставил и все - день потерян ищешь что же где и не так! :(

Все крыша поехала :( Найти похожие ветки