Komponenten durch For abfragen

[setblockmaster]

Guten Tag,
In meinem Formular habe ich knapp 20 RadioButtons bzw. CheckBoxen. Durch einen Klick auf einen Knopf soll jede Komponente abgefragt werden, ob sie aktiviert ist und dann soll der Name (Caption) in ein Array gespeichert werden.
Das Array soll also die Länge annehmen, wie viele Buttons/Boxen aktiviert sind und die Namen halt nacheinander in ein Array abgespeichert werden.
Vielleicht werde ich es auch in eine Textdatei speichern.

Kann mir dabei jemand helfen?

Schon Mal danke für Antworten
Schönen Abend noch!

[Maik81SE]

Es gibt da 2 Möglichkeiten.
Entweder alle im jeweiligen OnChange abfragen, oder was ich in diesem Fall mache.

Eine seppereate Procedure und diese in jedem OnChance aufrufen.

An der OnChange kommst du definitiv nicht vorbei.

Da ich gerade am Tab bin, kann ich gerade kein Bsp Setzen.

PCs und PI4 bleiben heute aus.

[setblockmaster]

Hallo,
danke für deine Antwort
Es ist also nicht möglich, bei dem Klick auf einen Button durch alle Zahlen zu iterieren und jeweils den Wert abzufragen?

Mfg

[wennerer]

Hallo,
ich hoffe das ich dich richtig verstanden habe. Probier mal mein kleines Beispiel ob das so in die richtige Richtung geht.
Vielleicht hilft es dir ja etwas weiter.

Edit: Hab ich vergessen, wenn du die // weg machst dann gehts mit dem Change Event.

Viele Grüße
Bernd

[m.fuchs]

Wenn du nicht alle Checkboxen in einem separaten Array zwischenhalten möchtest und es dir wirklich um alle Checkboxen auf einem Form geht, dann sollte dich folgender Code zum Ziel führen:

Code: Alles auswählen

function TForm1.GetCaptionsOfCheckedCheckboxes: TStringArray;
var
  o: TComponent;
  CurrentCheckbox: TCheckBox;
begin
  Result := []; // ursprünglich "TStringArray.Create", dies wird aber in zukünftigen FPC-Versionen nicht mehr unterstützt
  for o in Self do begin
    if o is TCheckBox then begin
      CurrentCheckbox := o as TCheckBox;
      if CurrentCheckbox.Checked then begin
        SetLength(Result, Length(Result) + 1);
        Result[High(Result)] := CurrentCheckbox.Caption;
      end;
    end;
  end;
end;

danke für deine Antwort
Es ist also nicht möglich, bei dem Klick auf einen Button durch alle Zahlen zu iterieren und jeweils den Wert abzufragen?

Antworten von Maik81SE kannst du immer getrost ignorieren.

[wennerer]

@m.fuchs: Geniale Function!
Was ich aber nicht verstehe ist warum muss man nach

Code: Alles auswählen

TStringArray.Create;

kein free verwenden? Macht das TStringArray selber?

Viele Grüße
Bernd

[Socke]

TStringArray ist ein ganz normaler dynamischer Array und wird damit durch die automatische Referenzzählung wieder freigegeben.
Die Notation Result := TStringArray.Create ist gleichbedeutend mit SetLength(Result, 0), erzeugt im Gegensatz dazu aber keine Warnmeldung durch den Compiler.

Das ist eine relativ neue Syntax.

[wennerer]

Vielen Dank für die Erklärung.
Viele Grüße
Bernd

[PascalDragon]

TStringArray ist ein ganz normaler dynamischer Array und wird damit durch die automatische Referenzzählung wieder freigegeben.
Die Notation Result := TStringArray.Create ist gleichbedeutend mit SetLength(Result, 0), erzeugt im Gegensatz dazu aber keine Warnmeldung durch den Compiler.

Bitte beachte, dass die Nutzbarkeit von Create ohne Parameter bei dynamischen Arrays ein Bug ist und in zukünftigen Versionen von FPC behoben wird.

Das ist eine relativ neue Syntax.

Man könnte auch einfach eine Syntax nehmen, die schon immer für dynamische Arrays funktioniert hat: Result := Nil. Dies funktioniert auch bei unbenannten Arrays.
Ansonsten gibt es ab 3.2.0 hierfür auch Result := []. Dies funktioniert ebenso mit unbenannten Arrays.

[m.fuchs]

Bitte beachte, dass die Nutzbarkeit von Create ohne Parameter bei dynamischen Arrays ein Bug ist und in zukünftigen Versionen von FPC behoben wird.

Oha, gut zu wissen.

Man könnte auch einfach eine Syntax nehmen, die schon immer für dynamische Arrays funktioniert hat: Result := Nil. Dies funktioniert auch bei unbenannten Arrays.
Ansonsten gibt es ab 3.2.0 hierfür auch Result := []. Dies funktioniert ebenso mit unbenannten Arrays.

Nil empfinde ich etwas unlogisch aber die neue Syntax mit den leeren, eckigen Klammern find ich gut.

Danke für die Hinweise.

[m.fuchs]

Bitte beachte, dass die Nutzbarkeit von Create ohne Parameter bei dynamischen Arrays ein Bug ist und in zukünftigen Versionen von FPC behoben wird.

Warum wird das eigentlich als Bug gesehen und behoben? Hat es irgendwelche Nachteile wenn die Möglichkeit eines Create ohne Parameter existiert?

[PascalDragon]

Bitte beachte, dass die Nutzbarkeit von Create ohne Parameter bei dynamischen Arrays ein Bug ist und in zukünftigen Versionen von FPC behoben wird.

Warum wird das eigentlich als Bug gesehen und behoben? Hat es irgendwelche Nachteile wenn die Möglichkeit eines Create ohne Parameter existiert?

Das Create existiert einfach nur zur Delphi Kompatibilität. Allein auf Grund der Tatsache, dass es zwei andere, umfassendere Varianten gibt sehe ich keinen Grund für dieses Konstrukt mehr zuzulassen als für die Kompatibilität nötig.