Schulprojekt: Thema: Berechnungen am Rechteck

[hoika]

Hallo,

Delphi-Quellcode:

IF (LaengeEdit.Text <> '') or ((BreiteEdit.Text<> '') and (FlaecheEdit.Text <> '')) THEN
begin
  LaengeEdit.Text := IntToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));

Das nehmen wir mal auseinander

Delphi-Quellcode:

IF (LaengeEdit.Text <> '') then
begin
  LaengeEdit.Text := IntToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));

[/delphi]

Der FlaecheEdit oder Breitedit können hier leer sein
dann kommt bei StrToInt('') die besagte Exception


OR

Delphi-Quellcode:

IF ((BreiteEdit.Text<> '') and (FlaecheEdit.Text <> '')) THEN
begin
  LaengeEdit.Text := IntToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));

[/delphi]


Also stimmt dein if nicht immer


Heiko

[Dennis S.]

hää?? Bei Fläche muss ja was stehen sonst funktioniert das alles ja nicht aber seite a oder b ist ja immer ins leer.

[implementation]

Eben. Deshalb musst du das or ja auch durch ein and ersetzen. Es muss ja alles zutreffen.
[ADD]
Außerdem solltest du das erste <> durch = ersetzen.

[Dennis S.]

also wenn ich das 'or' durch ein 'and' ersetze, dann würde es funktionieren, aber dann kann ich die Fehlende Seite, welches genau mein Ziel ist, ja nicht mehr berechnen und der gesamte Befehl wäre überflüssig, da er ja mit dem 1. IF gedeckt ist.
Sobalt ich aber 'or' verwende schmeißt er mir diesen blöden Error rein.

[Dennis S.]

@implementation:
ja aber dann müsste feld 1 immer leer sein.
wie müsste das sein wenns auch feld 2 sein kann?

[implementation]

Wenn das zweite Feld leer ist, soll das ja ausgerechnet werden, oder verstehe ich das falsch?

[Dennis S.]

genau

Delphi-Quellcode:

IF (LaengeEdit.Text <> '') or ((BreiteEdit.Text<> '') and (FlaecheEdit.Text <> ''))
   THEN
    begin
     LaengeEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));
     BreiteEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(LaengeEdit.Text));
    end

ist LaengeEdit leer soll dieses ausgerechnent werden. Ist BreiteEdit frei dann das.

[implementation]

Delphi-Quellcode:

IF (LaengeEdit.Text { --> } = { <-- } '') { --> } and { <-- } (BreiteEdit.Text<> '') and (FlaecheEdit.Text <> '') 
   THEN 
    begin 
     LaengeEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text)); 
     BreiteEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(LaengeEdit.Text)); 
    end

[Dennis S.]

es ist zum weinen Ich wenn ich BreiteEdit und FlaecheEdit ausfülle kommt LaengeEdit aber wenn ich LaengeEdit und FlaecheEdit ausfülle kommt aber keine Breite

[hoika]

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