Delphi Programm

[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