Delphi Programm

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

[venice2]

Zitat von KodeZwerg:

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

Zumindest nicht mit Ausrufezeichen! Ansonsten sollte es gehen.

[Blup]

Ein kleines Beispiel mit zwei Editfeldern(Edit1 und Edit2) für die Eingabe und einem Memo(Memo1) für die Ausgabe.
Die Steuerelemente sollten natürlich sinnvolle Namen bekommen, warum nicht z.B. EditA, EditB, MemoAusgabe?
Ich habe mich bewusst bemüht nicht viel Neues hinzuzufügen.
Wichtig ist den Unterschied zwischen einer Zeichenkette(string) und einer Boolean-Variable(nur 2 mögliche Zustände) zu verstehen.

Delphi-Quellcode:

function EingabeA: Boolean;
begin
  Result := (Edit1.Text = 't');
end;

function EingabeB: Boolean;
begin
  Result := (Edit2.Text = 't');
end;

function BooleanToString(AValue: Boolean): string;
begin
  if AValue then
    Result := 'True'
  else
    Result := 'False';
end;

procedure AusgabeLoeschen;
begin
  Memo1.Lines.Clear;
end;

procedure Ausgabe(const AValue: string);
begin
  Memo1.Lines.Add(AValue);
end;

procedure Verarbeitung;
var
  A, B, C: Boolean;
begin
  AusgabeLoeschen;

  A := EingabeA;
  Ausgabe('A = ' + BooleanToString(A));

  B := EingabeB;
  Ausgabe('B = ' + BooleanToString(B));

  C := A and B;
  Ausgabe('A and B  = ' + BooleanToString(C));

  C := A or B;
  Ausgabe('A or B   = ' + BooleanToString(C));

  C := A xor B;
  Ausgabe('A xor B  = ' + BooleanToString(C));

  C := (A = B);
  Ausgabe('A nxor B = ' + BooleanToString(C));
end;

[KodeZwerg]

Zitat von venice2:

Zitat von KodeZwerg:

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

Zumindest nicht mit Ausrufezeichen! Ansonsten sollte es gehen.

Das habe ich leider nicht verstanden, tut mir leid
Aber ich vermute mein Fehler ist "" anstelle '' << meintest Du das?

@blup

Delphi-Quellcode:

const
  Bool2Str: array [Boolean] of string = ('False', 'True');

also
einstring := Bool2Str[Booleanvariable]; so würde ich es umsetzen

[venice2]

Zitat:

Aber ich vermute mein Fehler ist "" anstelle '' << meintest Du das?

Ja, wohl ein Schreibfehler. Ist ja auch kein ! ... sondern "Anführungszeichen" verkalke langsam.

[KodeZwerg]

...ich auch mein lieber, was hab ich mir dabei gedacht gänsefüßchen zu nutzen...
(dabei sind die doch sooo lecker , also gänse, nicht füße)

[jaenicke]

Zitat von KodeZwerg:

...ich auch mein lieber, was hab ich mir dabei gedacht gänsefüßchen zu nutzen...
(dabei sind die doch sooo lecker , also gänse, nicht füße)

Ohje, wenn ich dann anfange Putenfüße zu setzen... SCNR