Debugging

[xZise]

Ich habe die Delphi 7 PE und würde gerne ein Code debuggen, aber wenn ich F9 / auf den Pfeil drücke, dann zeigt er den Breakpoint so an, als würde er dort nie hinkommen, allerdings müsste er es... Gibt es eine mgölichkeit Debzugging in einer Datei zu verbieten, und wenn ja, wie kann ich das ausstellen, oder liegt es an einen Prozess der vielleicht noch läuft?

[SirThornberry]

versuch mal ob es geht wenn du die Datei dem Projekt hinzufügst. Ansonsten dürfte der Effekt nur auftreten wenn du einen Haltepunkt in einer Funktion hast die nie aufgerufen wird.

[faux]

Wird der Brakepoint als gültig angezeigt?

[xZise]

Zitat:

Zitat von SirThornberry

versuch mal ob es geht wenn du die Datei dem Projekt hinzufügst.

Sie ist schon in einem Projekt

Zitat:

Zitat von SirThornberry

Ansonsten dürfte der Effekt nur auftreten wenn du einen Haltepunkt in einer Funktion hast die nie aufgerufen wird.

>>> siehe Screenshot

Zitat:

Zitat von faux

Wird der Brakepoint als gültig angezeigt?

Ja & Nein
- Breakpoint setzten ==== gültig
- F9 (Start) ==== ungültig

Oder:

- F9 (Start) ==== noch nicht gesetzt
- BP setzen ==== ungültig

[Khabarakh]

Wird die Variable sb vielleicht wegoptimiert?

[faux]

Zitat:

Zitat von xZise

Zitat:

Zitat von faux

Wird der Brakepoint als gültig angezeigt?

Ja & Nein
- Breakpoint setzten ==== gültig
- F9 (Start) ==== ungültig

Oder:

- F9 (Start) ==== noch nicht gesetzt
- BP setzen ==== ungültig

Also nein, denn der Compiler überprüft erst beim Starten ob ein Haltepunkt gültig ist.
btw: TSpeedButton(Sender)??? Meinst du sb := TSpeedButton.Create(Sender); oder so?!
:wall: Das nennt man Casting...

Gib mal die ganze Prozedur als Code, vielleicht ist das alles begründbar. ;)

Grüße
Faux

[xZise]

Das ist der Code von DOND ;)
Es hängt übrigends nicht von der Prozedur & Zeile ab ;)

Delphi-Quellcode:

procedure TForm1.SpeedButton52Click(Sender: TObject);
var
  sb: TSpeedButton;
  i: Integer;
  sum, f: Extended;
begin
  PlaySoundNew('SND_CLICK', SND_RESOURCE or SND_ASYNC);
  sb:=TSpeedButton(Sender);
  sb.Enabled:=False;
  if Label2.Caption='-' then begin
    Label2.Caption:=IntToStr(sb.Tag);
    KofferWert := Money[MoneyBag[sb.Tag]];
    GroupBox8.Visible:=False;
    GroupBox7.Visible:=True;
  end else begin
    TSpeedButton(FindComponent('SpeedButton'+IntToStr(MoneyBag[sb.Tag]))).Enabled:=False;
    Label7.Caption := FloatToStr(Money[MoneyBag[sb.Tag]]) + ' €';
    Label7.Visible := true;
    Application.ProcessMessages;
    sleep(500);
    Label7.Visible := false;
    if MoneyBag[sb.Tag]=26 then
      PlaySoundNew('SND_ARGH', SND_RESOURCE or SND_SYNC);
    if BagCount = 1 then begin
      if not DummyRound then begin
        Form2.NewScore := KofferWert;
        Form2.ShowModal;
      end;
      GroupBox7.Visible:=False;
      GroupBox5.Visible:=True;
    end else
      if not DummyRound and ((BagCount=20) or (BagCount=15) or (BagCount=11) or (BagCount=8) or (BagCount<=6)) then begin
        GroupBox4.Enabled:=False;
        GroupBox7.Visible:=False;
        GroupBox6.Visible:=True;
        PlaySoundNew('SND_RINGIN', SND_RESOURCE or SND_ASYNC);
        sum:=0;
        for i:=1 to 26 do
          if TSpeedButton(FindComponent('SpeedButton'+IntToStr(i))).Enabled then
            sum := sum + MONEY[i];

        f:=1;
        case BagCount of
          20: f:=6.0;
          15: f:=4.5;
          11: f:=3.5;
           8: f:=2.5;
           6: f:=2.0;
           5: f:=1.8;
           4: f:=1.6;
           3: f:=1.3;
        end;
        BankAngebot := Round(sum / (BagCount*f));
//        if BankAngebot > 100 then
//          BankAngebot := BankAngebot div 100 * 100;
        Label1.Caption := FloatToStr(BankAngebot);
      end;
  end;
end;

[faux]

Also ich kann in Zeile 8 einen haltepunkt setzten und er wird auch ausgeführt, also der Debugger hält an.

Grüße
Faux

[xZise]

Funktioniert das auch mit dem ganzen Code (siehe Link oben.) ?

[faux]

Zitat:

Zitat von xZise

Funktioniert das auch mit dem ganzen Code (siehe Link oben.) ?

Nein. :lol: