Einzelnen Beitrag anzeigen

mr-unbekannt

Registriert seit: 29. Okt 2005
Ort: tirol
104 Beiträge
 
Delphi 7 Personal
 
#1

Digitaltechnik: Wahrheitstabelle generieren

  Alt 4. Mai 2006, 20:12
hallo, vielleicht sind ja ein paar hier an digitaltechnik interressiert...

ich habe ein kleines Problem... ich möchte eine Wahrheitstabelle generieren
diese soll den kompletten eingangsbereich mit bits ausfüllen
ich schaffe es nicht, bei E0 abwechselnd 0 und 1 einzufüllen..
könte mir bitte jemand helfen?

vielen dank

Delphi-Quellcode:
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i:Integer;
begin
sg1.ColCount := SpinEdit1.Value;
sg1.RowCount :=Sqr(SpinEdit1.Value)+1;
for i := 1 to Sqr(SpinEdit1.Value) do begin
sg1.Cells[SpinEdit1.Value-1, i]:= '0';
end;


end;
  Mit Zitat antworten Zitat