Nach einiger Abstinenz habe ich mich wieder durch gerungen mit FPC/Laz. wieder was zu machen.
Um ehrlich zu sein, bin ich recht zu frieden, auch wenn mich die Anzahl an Features erschlägt, ich echte Probleme mit der Dokumentation habe und ein wenig Umdenken muss, damit ich auch alles verstehe.
So, nun zu meinem aktuellen Problem:
Ich komme mit dem Debuggen irgendwie nicht klar.
Mein momentaner Source sieht so aus:
Code: Alles auswählen
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons;
type
{ TForm1 }
TForm1 = class(TForm)
btn_calc_bmi: TButton;
edt_groesse: TEdit;
edt_weight: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure btn_calc_bmiClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
cm, weight, bmi : Double;
implementation
{ TForm1 }
procedure TForm1.btn_calc_bmiClick(Sender: TObject);
var
len : Integer;
begin
cm := StrToFloat(edt_groesse.Text);
weight := StrToFloat(edt_weight.Text);
bmi := (weight / sqr(cm/100));
len := Length(FloatToStr(bmi));
Label3.Text := FloatToStr(bmi);
end;
initialization
{$I main.lrs}
end.Nun, ich möchte zur Laufzeit irgendwie alle vorkommenden Variablen (cm, weight, bmi und die lokale Variable len) überwachen.
Doch irgendwie bekomme ich das nicht auf die Reihe!
Ehrlich - ich habe gar keinen Plan.
Wird mir ein Fenster nicht angezeigt, in dem die Variablen gelistet sind? Oder wie?
Für jede Hilfe wäre ich natürlich sehr dankbar.
MFG
Verein
Links
Suche