Danke Danke
das funktioniert
zwar in etwas anderer Form, könnte aber auch das selbe sein
ich hab jetzt das da stehen:
Delphi-Quellcode:
begin
IF (LaengeEdit.Text <> '') and (FlaecheEdit.Text <> '')
THEN
BreiteEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(LaengeEdit.Text))
ELSE
begin
IF (BreiteEdit.Text <> '') and (FlaecheEdit.Text <> '')
THEN
LaengeEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text))
Else Label11.Caption := 'Fehlende Eingabe'
end
end
Dennis