Hier, falls die Annahme vom Schönen Guntar stimmt:
Delphi-Quellcode:
const
Tabs = 6;
X: array[Boolean] of String = ('False', 'True');
var
ListBox: TListBox;
TabsInLB: array[0..Tabs] of Integer;
A, B, C, D, E, F : Boolean;
S: String;
begin
ListBox := ListBox1;
TabsInLB[0] := 0;
TabsInLB[1] := 50;
TabsInLB[2] := 100;
TabsInLB[3] := 150;
TabsInLB[4] := 200;
TabsInLB[5] := 250;
Listbox.TabWidth := 1;
SendMessage(ListBox.Handle, LB_SETTABSTOPS, Tabs, Longint(@TabsInLB));
A := False;
B := False;
C := False;
S := 'A' + #9 + 'B' + #9 + 'C' + #9 + 'D' + #9 + 'E' + #9 + 'F';
ListBox.Items.Add(S);
FOR A := False TO True DO
FOR B := False TO True DO
FOR C := False TO True DO
begin
D := (A AND C) OR (NOT A AND NOT C);
E := (B OR C) OR (B AND C);
F := (A OR B) OR (NOT A AND NOT B);
S := X[A] + #9 + X[B] + #9 + X[C] + #9 + X[D] + #9 + X[E] + #9 + X[F];
ListBox.Items.Add(S)
end;
end;
EDIT:
Oder doch nicht. Ich weiß es nicht.