Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#20

Re: Schulprojekt: Thema: Berechnungen am Rechteck

  Alt 16. Feb 2010, 18:17
Hallo,

noch mal die Aufgabe

das wenn man Seite a oder b + die Fläche

Delphi-Quellcode:
if (Edit_a.Text<>'') and (Edit_Area.Text<>'') then
begin
 // a und Fläche gegeben
 // b wird berechnet


  Exit;
end;

if (Edit_b.Text<>'') and (Edit_Area.Text<>'') then
begin
 // b und Fläche gegeben
 // a wird berechnet

  Exit;
end;
Jetzt könnte natürlich auch a und b und die Fläche
per Editor eingegeben sein
-> es wird b berechnet,

oder du fängst da ab

Delphi-Quellcode:
if (Edit_a.Text<>'') and (Edit_b.Text<>'') and (Edit_Area.Text<>'') then
begin
  ShowMessage('ööööö');
  Exit;
end;

Heiko
Heiko
  Mit Zitat antworten Zitat