S: Dringend Hilfe für Delphi-Programm mit Grafikausgabe

[cook]

Hi Leutz...
Ich hab mal wieder ein Problem. Ich kriegs nicht hin einen berechneten Wert in einem Edit Feld auszugeben.... hab folgenden Sourcecode:

Also meine Raumklasse sieht so aus:

Delphi-Quellcode:

type
  TRaum = class(TObject)

  private { Private-Deklarationen }
    Raumbreite: single;   {in cm}
    Raumlaenge: single;   {in cm}
    procedure SetrBreite(const breit: single);
    procedure SetrLaenge(const lang: single);

  public { Public-Deklarationen }
    property rBreite: single  {in m}
      read Raumbreite write SetrBreite;
    property rLaenge: single  {in m}
      read Raumlaenge write SetrLaenge;
end;

Dann hängt natürlich noch die TForm1 da mit drin...

Wenn ich dann auf den Button1 klicke sollte eigentlich die Breite und Länge aus den Edit-Feldern eingelesen werden...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    FRaum.rBreite := StrToFloat(rBreitEingabe.Text);
  FRaum.rLaenge := StrToFloat(rLangEingabe.Text);
    rFlaeche.Text := FloatToStr(FRaum.rBreite);
end;

jedoch macht er mir hier dann ne Fehlermeldung bei Raumbreite:=breit -->EAccessViolation :wall:

Delphi-Quellcode:

procedure TRaum.SetrBreite(const breit: single);
begin
  if (breit > 0) and (breit < 50)
    then Raumbreite := breit;     
end;

Any Hints? :gruebel:

[Gandalfus]

Vieleicht '.' und ',' verwechselt bei der eingabe?

btw.:

Delphi-Quellcode:

private { Private-Deklarationen }
    FRaumbreite: single;   {in cm}
    FRaumlaenge: single;   {in cm}

Das F steht für feld ist so übersichtlicher.

[cook]

hab ja sogar nur ganze Zahlen eingegeben, aber es kommt trotzdem nicht zu einer Ausgabe.

[Gandalfus]

showmessage(floattostr(strtofloat('45456,6776')));

funktioniert.

Grenz den Fehler doch noch näher ein z.B.: mit Breakpoints.

[cook]

Das werd ich mal ausprobieren...
Melde mich Montag wieder, denn ich geh jetzt ins WE und da hab ich keinen Rechner.

schönes WE!
mfg cook

[cook]

Ich glaub ich hab es endlich... mein Fehler war nur das ich die verdammte Produktvariable aus Breite und Länge nicht als extended deklariert habe.

so funktioniert es auch mit Edit.Text := blablabla
aber das mit dem schowmessage(...) hilft mir auch weiter. THX

ich meld mich wieder
mfg cook