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
Delphi-Quellcode:
procedure TRaum.SetrBreite(const breit: single);
begin
if (breit > 0) and (breit < 50)
then Raumbreite := breit;
end;
Any Hints?
