Möchte einen Taschenrechner programmieren, wobei man durch einen Button (BtMenge) und durch ein Editfeld (EdMenge) neue Zahlenfelder dazu nehmen kann.
Es soll so aussehen, dass, wenn vorher zwei Editfelder für zwei Zahlen zu sehen waren, man durch die eingetippte Zahl in EditMenge bestimmen kann, wieviele Zahlen/Editfelder dazu kommen sollen. Ich habe versucht, dies mit einem bool-Array zu kreieren.
Das ist die Deklaration des Arrays
Dann habe ich die Eigenschaft "Visible", die bei denjenigen Editfeldern auf "false" steht (sind ja am Anfang unsichtbar), den einzelnen Array-Einheiten zugewiesen.
Die for-Schleife soll von 1 bis zur angegebenen Menge zählen und jedes Mal ein entsprechendes Editfeld sichtbar machen (auf "true" setzen).
Leider klappt das auf diese Weise nicht. Was sollte ich ändern?
Es soll so aussehen, dass, wenn vorher zwei Editfelder für zwei Zahlen zu sehen waren, man durch die eingetippte Zahl in EditMenge bestimmen kann, wieviele Zahlen/Editfelder dazu kommen sollen. Ich habe versucht, dies mit einem bool-Array zu kreieren.
Code:
Zahlen: array[1..3] of longbool;
Code:
procedure TTaschenrechner.BtMengeClick(Sender: TObject);
var i: Integer;
begin
Zahlen[1]:=EdZahl3.Visible;
Zahlen[2]:=EdZahl4.Visible;
Zahlen[3]:=EdZahl5.Visible;
Menge := StrToInt(EdMenge.Text);
for i:= 1 to Menge do Zahlen[Menge] := true;
end;
Dann habe ich die Eigenschaft "Visible", die bei denjenigen Editfeldern auf "false" steht (sind ja am Anfang unsichtbar), den einzelnen Array-Einheiten zugewiesen.
Die for-Schleife soll von 1 bis zur angegebenen Menge zählen und jedes Mal ein entsprechendes Editfeld sichtbar machen (auf "true" setzen).
Leider klappt das auf diese Weise nicht. Was sollte ich ändern?