VPF::проблемы отладки - Форум программистов

Creative

Дата 23.11.2005, 15:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

дано Delphi 7 на WinWP SP2 и полный чайник, написавший примитивную программу. При попытке ее отладить (F7, F8) Дельфи открывает окно CPU с кодами ассемблера. На BreakPoint`ах программа не останавливается, а спокойно выполняется ло конца. ЧТо неправильно?

kent

Дата 23.11.2005, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Код в студию...

Creative

Дата 23.11.2005, 15:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


unit Fight;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    Bowman: TLabel;
    Footman: TLabel;
    Cavalry: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
      
procedure TForm1.Button1Click(Sender: TObject);



Const

RBAtt : integer=1; 
RFAtt : integer=2; 
RCAtt : integer=3; 

RBDef : integer=1; 
RFDef : integer=2; 
RCDef : integer=3; 

BBAtt : integer=1; 
BFAtt : integer=2; 
BCAtt : integer=3; 

BBDef : integer=1; 
BFDef : integer=2; 
BCDef : integer=3; 

var

RBNum : integer; 
RFNum : integer; 
RCNum : integer;

BBNum : integer; 
BFNum : integer; 
BCNum : integer; 

RedArmyAtt : integer; 
BlueArmyAtt : integer; 

RedArmyDef : integer; 
BlueArmyDef : integer; 

RedArmyDam : integer; 
BlueArmyDam : integer; 

RedArmyNum : integer ;
BlueArmyNum : integer ;

begin

RBNum := StrToint(Edit1.Text);   
RFNum := StrToint(Edit2.Text);
RCNum := StrToint(Edit3.Text);
BBNum := StrToint(Edit4.Text);
BFNum := StrToint(Edit5.Text);
BCNum := StrToint(Edit6.Text);



RedArmyAtt := (RBAtt*RBNum) + (RFAtt*RFNum) + (RCAtt*RCNum) ; 

BlueArmyAtt := (BBAtt*BBNum) + (BFAtt*BFNum) + (BCAtt*BCNum) ;

RedArmyDef := (RBDef*RBNum) + (RFDef*RFNum) + (RCDef*RCNum) ;

BlueArmyDef := (BBDef*BBNum) + (BFDef*BFNum) + (BCDef*BCNum) ;


RedArmyDam :=  RedArmyAtt - BlueArmyDef ;

BlueArmyDam :=  BlueArmyAtt - RedArmyDef ;


repeat   
  BBNum := BBNum - 1 ;
  RedArmyDam := RedArmyDam - 1 ;
  BFNum := BFNum - 1 ;
  RedArmyDam := RedArmyDam - 1 ;
  BCNum := BCNum - 1 ;
  RedArmyDam := RedArmyDam - 1 ;
  BlueArmyNum := BBNum + BFNum + BCNum ;
until  (RedArmyDam = 0)  or (BlueArmyNum = 0) ;

repeat   
  RBNum := RBNum - 1 ;
  BlueArmyDam := BlueArmyDam - 1 ;
  RFNum := RFNum - 1 ;
  BlueArmyDam := BlueArmyDam - 1 ;
  RCNum := RCNum - 1 ;
  BlueArmyDam := BlueArmyDam - 1 ;
  RedArmyNum := RBNum + RFNum + RCNum ;
until  (BlueArmyDam = 0) or (RedArmyNum = 0);

if RedArmyNum  > BlueArmyNum
  then
  label3.Caption := 'Red army has won!' ;

if RedArmyNum  < BlueArmyNum
  then
  label3.Caption := 'Blue army has won!'
  else label3.Caption := 'Noone has won this battle!' ;


if (RedArmyNum  > BlueArmyNum) and (BlueArmyNum = 0)
  then  label4.Caption := 'Blue Army was completely destroyed'
  else label4.Caption := IntToStr(BBNum) + 'blue' + ' bowmen'+ #13 + IntToStr(BFNum) + 'blue' + ' footman' + #13 + IntToStr(BCNum) + ' blue cavalry has fled cowardly' ;

if (RedArmyNum < BlueArmyNum) and (RedArmyNum = 0)
  then  label4.Caption := 'Red Army was completely destroyed'
  else label4.Caption := IntToStr(RBNum) + 'red' + ' bowmen'+ #13 + IntToStr(RFNum) + 'red' + ' footman' +  #13 + IntToStr(RCNum) + ' red cavalry has fled cowardly' ;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

end.

=====================

Известно, что в программе есть ошибка, и автор с удовольствием бы ее отладил, но вот незадача с отладчиком.

Это сообщение отредактировал(а) Girder - 25.11.2005, 11:21

kent

Дата 23.11.2005, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Цитата(Creative @ 23.11.2005, 15:57)

Известно, что в программе есть ошибка, и автор с удовольствием бы ее отладил, но вот незадача с отладчиком.

Ну тогда прикрепляй проект, я попробую...

kent

Дата 23.11.2005, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Creative, попробовал я скомпилировать твой проект, никаких ошибок при компиляции не выдает...
Попробуй переустановить Delphi, скорее всего проблема в ней...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »