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:

Zitat von DieDolly (Beitrag 1486995)

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]

Delphi-Quellcode:

booleanvariable := (edit1.text = "t");

könnte vielleicht klappen, habs noch nie versucht...

[venice2]

Zitat:

Zitat von KodeZwerg (Beitrag 1487001)

Delphi-Quellcode:

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:

Zitat von venice2 (Beitrag 1487014)

Zitat:

Zitat von KodeZwerg (Beitrag 1487001)

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :lol:, also gänse, nicht füße)

[jaenicke]

Zitat:

Zitat von KodeZwerg (Beitrag 1487078)

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

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