Проблема с BreakePoint

[mastersoftna]

В BDS2006 у меня часто возникает проблема, breakepoint (точка останова) выделяется зеленым цветом и программа на ней не останавливает выполнение. В чем проблема?

[Stilet]

Например в том что эта строчка попадает под оптимизацию, и просто отсекается, так как делфи по некоторым причинам считает ее ненужной.

[mastersoftna]

Но не может каждая строчка в коде попасть под оптимизацию. А у меня именно так.

[Stilet]

код в студию.

[mastersoftna]

Вот код:

procedure TForm7.Button1Click(Sender: TObject);
var
TMNFile: TStringList;
  I: Integer;
  NNumber: string;
  NType: integer;
  NYear: string;
  tmp: string;
  temp: string;
begin
TMNFile:=TStringList.Create;
if Edit1.Text<>'' then
begin
TMNFile.LoadFromFile(Edit1.Text);
for I := 0 to TMNFile.Count - 1 do
begin
  tmp:=trim(TMNFile.Strings[i]);
  NYear:=copy(tmp,length(tmp)-1,2); //получили год
  showmessage(NYear);
  temp:=copy(tmp, length(tmp)-4,1); //получили тип
  if temp='P' then NType:=2;
  if temp='T' then NType:=3;

  NNumber:=copy(tmp, 1, pos('(',tmp)-1); //получили номер

  pFIBDataSet1.Open;
  if pFIBDataSet1.Locate('ISS_NUMBER;TYPE_UPDATE;ISS_YEAR', VarArrayOf([NNumber, NType, NYear]), [loPartialKey])
  then
  begin
    continue;
  end
  else begin
    WriteTransaction.StartTransaction;
    pFIBDataSet1.Insert;
    pFIBDataSet1.FieldByName('iss_number').asinteger:=strtoint(NNumber);
    pFIBDataSet1.FieldByName('type_update').asinteger:=NType;
    pFIBDataSet1.FieldByName('iss_year').asinteger:=strtoint(NYear);
    pFIBDataSet1.FieldByName('action').asinteger:=1;
    pFibdataset1.Post;
    WriteTransaction.Commit;
  end;
end;
TMNFile.Free;
showmessage('Все! Готово!');
end
else showmessage('Файл не указан!');
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
  Edit1.Text:=OpenDialog1.FileName;
end;
end;

procedure TForm7.FormCreate(Sender: TObject);
var
TmpCfg: TStringList;
begin
TmpCfg:=TStringList.Create;
TmpCfg.LoadFromFile('cfg.ini');
pFIBDatabase1.DBName:=TmpCfg.strings[0];
pFIBDatabase1.ConnectParams.UserName:=TmpCfg.strings[1];
pFIBDatabase1.ConnectParams.Password:=TmpCfg.strings[2];
pFIBDatabase1.LibraryName:= TmpCfg.strings[3];
pFIBDatabase1.Connected:=True;
TmpCfg.Free;
end;

[DarkEvil]

У мну когда-то тоже такой глюк был, я его лечил кардинально перестановкой делфи :-)

[Stilet]

Насколько смог вой код перенес, все строки учитываются кроме continue; (что вполне логично - он там лишний)

код то этот хоть к обработчикам привязан?

[mastersoftna]

Привязан. Так все таки BDS-ка глючит?

[DarkEvil]

ну я б попробывал переставить, так как давненько у меня была такая фича, кстате а на иных проектах точки останова работают?
Если да, то BDS здесь не причем,
P.S. у меня еще фича была когда проект начинался писаться под одной IDE а потом все приходилось дарабатывать под другой, то там не только косяки с точками останова были а еще компоненты как-то странно себя вели

[JTG]

Вот что за люди, удалили сапёр - сносить винду, компильнули проект без отладки - сносить IDE...

Выбери конфигурацию debug, а не release (или отметь в опциях компилятора галку Debug information) и скомпиль весь проект (build)