Текущий архив: 2009.12.20;
Скачать: CL | DM;
Вниз
Глюки с вызовом процедуры по ссылке Найти похожие ветки
← →
Медвежонок Пятачок © (2009-11-02 14:37) [40]отключи оптимизацию кода
← →
Сергей М. © (2009-11-02 14:40) [41]
> вызвать не dc_A_st а в
Ты прикидываешься что ли ?)
Тебе ж черным по-русски говорят - покажи где и как ты вызываешь dc_A_st ..
← →
yantar92 (2009-11-02 15:37) [42]procedure TForm1.Button3Click(Sender: TObject);
var i,j,k:longint; koord:Tkoord;
dcAst:extended; proc:Tpaint;
begin
chart1.Visible:=true;
Panel1.Visible:=1=2;
Button1.Visible:=1=2;
Button2.Visible:=1=2;
{E_AA:=-1E-20;E_BB:=-3E-20;E_AB:=(E_AA+E_BB)/2;
T:=1E3;
C_A:=0.5;C_B:=1-C_A;
D:=200;
width_:=10;
height_:=10;
N_layers:=200;D_layer:=trunc(D/N_layers)+abs(sign(frac(D/N_layers)));}
read_parameters;
series_:=TLineSeries.Create(Self);
series_.ParentChart:=chart1;
chart1.Parent:=main_form;
proc:=paintXY;
Application.ProcessMessages;
dcAst:=dc_A_st(100000000,4000,atoms,C_A,C_B,D,width_,height_,E_AA,E_BB,E_AB,T,pr oc,series_);
Label16.Caption:=floattostr(dcAst);
end;
← →
Сергей М. © (2009-11-02 15:45) [43]
> proc:=paintXY;
Опять в прятки играешься ?
Что такое paintXY ?
Где и как объявлено и реализовано ?
← →
RWolf © (2009-11-02 16:01) [44]1=2 — это такой модный способ написать False? :)
← →
yantar92 (2009-11-02 16:16) [45]implementation
...
procedure paintXY(const x:extended; const y:extended; var series_:Tlineseries);
begin
series_.ParentChart.Parent.Repaint;
series_.AddXY(x,y);
end;
← →
yantar92 (2009-11-02 16:17) [46]>RWolf © (02.11.09 16:01) [44]
>
>1=2 — это такой модный способ написать False? :)
так быстрее:))
← →
clickmaker © (2009-11-02 16:19) [47]> так быстрее:))
вот так круче
Button1.Visible:=(2*2=5);
← →
Anatoly Podgoretsky © (2009-11-02 16:20) [48]
> так быстрее:))
Чего же тогда выше не написал 1=1
← →
RWolf © (2009-11-02 16:22) [49]быстрее будет поставить GExperts (или что-нибудь вроде) и привязать нужные слова на алиасы из пары букв. Сокращать код в ущерб читабельности — это неправильный подход.
← →
RWolf © (2009-11-02 16:23) [50]и да, Button1.Hide; :)
← →
Сергей М. © (2009-11-02 16:25) [51]
> yantar92 (02.11.09 16:16) [45]
Тогда вернемся к нашим баранам см. [16]
> ну private метод.
Это самое "private метод" какое отношение имеет к коду в [45], в котором никакими приватными методами даже не пахнет ?
← →
yantar92 (2009-11-02 16:37) [52]>Сергей М. © (02.11.09 16:25) [51]
>
>
>
>Это самое "private метод" какое отношение имеет к коду в [45], в котором >никакими приватными методами даже не пахнет ?
я по поводу приват-метод писал из-за [14] и это действительно никакого отношения к [45] не имеет.
← →
Сергей М. © (2009-11-02 16:53) [53]
> yantar92 (02.11.09 16:37) [52]
Т.е. paintXY - это регулярная процедура, а dc_A_st - регулярная функция ?
← →
yantar92 (2009-11-02 17:00) [54]да
← →
Сергей М. © (2009-11-02 17:03) [55]Тогда убирай отовсюду все var и const.
А вызывай так:
dcAst:=dc_A_st(..., @PaintXY,...);
← →
yantar92 (2009-11-02 17:05) [56]не помогает
← →
Сергей М. © (2009-11-02 17:06) [57]ПРямо так и говорит "не помогаю" ?)
← →
yantar92 (2009-11-02 17:10) [58]нет, говорит то же что и раньше: "project bi.exe raised exception class Elnvalid Pointer with message "Invalid pointer operation". process stopped"
← →
Сергей М. © (2009-11-02 17:10) [59]
> говорит то же что и раньше
На какой конкретно строчке ?
← →
yantar92 (2009-11-02 17:12) [60]series_.ParentChart.Parent.Repaint; при втором вхождении в процедуру
← →
Сергей М. © (2009-11-02 17:15) [61]Что говорит отладчик по поводу актуальности значений
series_
series_.ParentChart
series_.ParentChart.Parent
?
← →
yantar92 (2009-11-02 17:17) [62]все есть, а series_.parentchart.parent.repaint - "inaccessible value"
← →
Сергей М. © (2009-11-02 17:19) [63]
> series_.parentchart.parent.repaint - "inaccessible value"
Правильно говорит.
repaint - это метод, а не свойство.
Да и, кстати, за каким лешим после добавления каждой точки перерисовывать весь чарт ?
← →
yantar92 (2009-11-02 17:21) [64]ну єто требовалось для того, чтобы окно не "зависало" во время выполнения подсчетов точек
← →
yantar92 (2009-11-02 17:23) [65]еще пробовал application.proccesmessages после добавления каждой точки, но оно тоже вылетало
← →
Сергей М. © (2009-11-02 17:26) [66]
> оно тоже вылетало
Куда ?)
← →
yantar92 (2009-11-02 17:27) [67]"project bi.exe raised exception class Elnvalid Pointer with message "Invalid pointer operation". process stopped"
← →
yantar92 (2009-11-02 17:28) [68]а другими словами - в космос))
← →
yantar92 (2009-11-02 17:35) [69]у меня появилось подозрение на настройки компилятора, но я не представляю что может быть. Может кто-то знает?
← →
clickmaker © (2009-11-02 17:38) [70]> у меня появилось подозрение на настройки компилятора
конечно.
"если в кране нет воды, то виной тому - винды"
← →
yantar92 (2009-11-02 17:42) [71]
> clickmaker © (02.11.09 17:38) [70]
>
> > у меня появилось подозрение на настройки компилятора
>
> конечно.
> "если в кране нет воды, то виной тому - винды"
просто на другом компе работало, хотя я не уверен, что не поменял что-то важное после того.
← →
Сергей М. © (2009-11-02 18:14) [72]
> после того
После чего ?
← →
yantar92 (2009-11-02 18:26) [73]после того, как запускал прогу на том компе
← →
Сергей М. © (2009-11-02 19:07) [74]То есть, подводя итоги, вопрос твой звучит так: почему одна и та же прога на этом компе работает, а на том компе не работает.
Так ?
← →
yantar92 (2009-11-02 19:09) [75]ну да, поэтому и версия насчет настроек компилятора
← →
Сергей М. © (2009-11-02 19:14) [76]
> версия насчет настроек компилятора
Причем здесь компилятор-то ?
Вот ты собрал свой шедевр на компе А.
Запустил результаты сборки.
Работает.
Скопировал результаты сборки на комп B, запустил.
Не работает.
И причем здесь, спрашивается, компилятор ? Которого на компе В и в помине не было ?
← →
sniknik © (2009-11-02 19:14) [77]наигрались? давайте "удавим" партизана? ведь очевидно, ничего с ним не получится.
← →
Сергей М. © (2009-11-02 19:16) [78]
> sniknik © (02.11.09 19:14) [77]
Дави.
Гестапо бессильно)
Страницы: 1 2 вся ветка
Текущий архив: 2009.12.20;
Скачать: CL | DM;
Память: 0.61 MB
Время: 0.02 c