'Watch' refuses to see my variables Laz can and does ?HUH!
Original Reporter info from Mantis: emmpeabee
-
Reporter name: Michael Briggs
Original Reporter info from Mantis: emmpeabee
- Reporter name: Michael Briggs
Description:
I have a very VERY simple test program that blows up under certain conditions.
So I found out how to set a watch - but that says no such thing - but it compiles and runs ....
Steps to reproduce:
and set a watch on EDIT2.TEXT == BOOM - no such thing !!!???
Additional information:
I have a jpeg
code
{mode objfpc}{
H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
ClearUp: TButton;
Clear: TButton;
ClearDown: TButton;
MoveDown: TButton;
NULL: TButton;
MoveUp: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
Counter1: Integer;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
//With Edit1 DO
if Edit1.Text <> 'Gawm' then
begin
Edit2.Text := Edit1.Text;
Edit1.Text := 'Gawm';
end else
begin
// 2nd or moret
if Edit2.Text[1..4] = 'Ouch' then
begin
Edit2.Text := Edit2.Text + '*';
end
else
begin
Edit2.Text := 'Ouch';
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit3.Clear;
end;
end.
I have a jpg of the whole thing if you want.
Mike
Mantis conversion info:
- Mantis ID: 34182