Einzelnen Beitrag anzeigen

Dennis S.

Registriert seit: 16. Feb 2010
Ort: Kreiensen
11 Beiträge
 
Delphi 7 Personal
 
#21

Re: Schulprojekt: Thema: Berechnungen am Rechteck

  Alt 16. Feb 2010, 19:26
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
  Mit Zitat antworten Zitat