Delphi Programm

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