Delphi Programm

[Anonym123]

Hallo,
Ich muss ein Delphiprogramm erstellen, welches sich mit den boolschen Variablen beschäftigt. Vorgegeben ist a als True und B als False. Das Programm soll A and B, A or B, A xor B und A nxor B berechnen. Könnte mir einer bitte dieses Programm nur mit a and b erstellen. Das wäre sehr nett und würde mir weiterhelfen.

Schonmal vielen Dank im Voraus.

[DieDolly]

Ich hoffe, niemand wird die Lösung, egal wie einfach sie ist, hier schreiben.
Denn danach wäre alles nur noch Copy und Paste und der Lerneffekt wäre gleich null.

Such mal bei Google oder hier im Forum. Du wirst schn ell fündig.

[blawen]

Zitat:

Zitat von Anonym123 (Beitrag 1486985)

Hallo,
Ich muss ein Delphiprogramm erstellen, welches sich mit den boolschen Variablen beschäftigt. Vorgegeben ist a als True und B als False. Das Programm soll A and B, A or B, A xor B und A nxor B berechnen. Könnte mir einer bitte dieses Programm nur mit a and b erstellen. Das wäre sehr nett und würde mir weiterhelfen.

Schonmal vielen Dank im Voraus.

Und was ist die Gegenleistung, wenn wir Dir Deine Hausaufgaben lösen? ;-)

Zeige doch, was Du schon probiert hast und wo es aktuell klemmt.
So wird Dir jeder gerne helfen :-)

[Anonym123]

Wie kann man hier ein Bild einfügen ?

[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?