Witam.
Piszę w lazarusie pewną aplikację i w trakcie uruchamiania procedury:
procedure TForm1.Button1Click(Sender: TObject);
const
dz=12756.274;
var fA, fB, lA, lB, dl, a, b: real;
begin
fA:=StrToInt(_fA.Text);
lA:=StrToInt(_lA.Text);
fB:=StrToInt(_fB.Text);
lB:=StrToInt(_lB.Text);
a:= (lB-lA)*Cos(fA*pi/180);
b:=(fB-fA);
dl:=sqrt(a*a+b*b)*pi*dz/360;
Dlug.Text:=FloatToStr(dl);
end;
kompilator zacina się i pokazuje w zakładce control.inc :
if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)
Mógłby ktoś mi pomóc - co to za problem i jak sobie z nim poradzić?
Z góry dziękuję:)
Nie masz tam breakpointów i debug mode'u, żeby dojść do konkretnej linijki, na której się wiesza?
ad. Toshi_:
zastawiłem tam breakpointy i zatrzymuje się przy... begin.
Tak dla rozwiania wszelkich wątpliwości - debug mode zatrzymuje się na begin, bo tam postawiłeś breakpointa, czy tam cały program się wiesza?
Wybacz, debilne pytanie, ale czasem trzeba się upewnić ;]
Nie, niezależnie gdzie postawię breakpointa program zawiesza się na begin.
