Delphi Programm

[Anonym123]

procedure TForm1.Button1Click(Sender: TObject);
Var ant1,ant2:Boolean;
a,b,auswerten:Integer;

Procedure ein;
begin;

ant1:=Edit1.Text;
ant2:=Edit2.Text;
End;

Procedure Verarbeitung;
Begin;
A:=(ant1='t');
B:=(ant2='t');
IF (ant1='t') AND (ant2='t') THEN Edit3.Text:='True';
End;




end;

end.

[Anonym123]

das hab ich bis jetzt

[Anonym123]

Und eig kommt hinter dem true noch else edit3.text:='False';

[KodeZwerg]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  ant1,ant2:Boolean;
  a,b,auswerten:Integer;

  Procedure ein; // ein submethode innerhalb von button1click
  begin;
    ant1:=Edit1.Text;
    ant2:=Edit2.Text;
  End;

  Procedure Verarbeitung; // ein submethode innerhalb von button1click
  Begin;
    A:=(ant1='t');
    B:=(ant2='t');
    IF (ant1='t') AND (ant2='t') THEN Edit3.Text:='True';
  End;
// hier fehlt ein begin
// hier sollte code rein der vielleicht diese submethoden auch aufruft
end;

end. // hier ist alles aus

[himitsu]

Warum mit Edits, anstatt mit CheckBoxes?

Und wenn in "Verarbeitung" bereits die Daten von String in Boolean konvertiert wurden, warum dann im nachfolgenden IF nicht diese Boolean-Variablen verwenden?


PS:
TCheckBox TCheckListBox

Delphi-Quellcode:

S := BoolToStr(B, True);

B := StrToBool(S);

[DieDolly]

Zitat:

warum dann im nachfolgenden IF nicht diese Boolean-Variablen verwenden?

Warum nicht direkt den ganzen Code neu schreiben?

[Anonym123]

Könnt ihr mir nicht bitte das eine Berichtigen, ich blick hier nichtmehr durch. Das ist auch keine Hausaufgaben,ich schreibe nur eine Arbeit und das war für die Arbeit eine Beispiel Aufgabe.

Danke

[DieDolly]

Du solltest das ganze Programm in den Papierkorb werfen und neu anfangen.
Deine Konvertierung von String zu Boolean ist nicht schön. Nimm dafür TCheckBox-en.

[himitsu]

Zitat von DieDolly:

Warum nicht direkt den ganzen Code neu schreiben?

Klein Anfangen? (Stück für Stück erstmal verstehen was warum und so)

Es hilft auch die Fehlermeldungen des Compilers zu lesen.

Zitat:

Delphi-Quellcode:

Var
  ant1,ant2:Boolean;
  a,b,auswerten:Integer;

Denn diese Typen sind falsch.

Was muß ant1,ant2 für einen Typ haben, wenn da der Text vom Edit rein soll?
Ebenso, was müssten a,b für Typen sein?

[KodeZwerg]

booleanvariable := (edit1.text = "t"); könnte vielleicht klappen, habs noch nie versucht...