Hallo!
Ich stehe gerade minimal auf dem Schlauch...

In meinem Programm habe ich einen Record mit mehreren Bool-Variablen.
Diese müssen an Hand von Text-Informationen aus einem JSON-Array ggf. auf true gesetzt werden.

Da ich das merfach machen muss und eig. keine direkte Anweisung für jede Variable definieren will war das mein Gedanke:
Ich schreibe eine Procedure, welche die String-Infos aus dem JSON-Array mit denen abgleicht, welche für den true-Status relevant sind.
Entsprechend eines Treffers will ich eine einzelne Variable auf true setzten.

Mein Problem / Fehler ist, dass ich die Record-Variablen nicht in meine Procedure übergeben kann, um diese direkt zu ändern ("var" Angabe der Definition): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden


Teile vom Record:

markieren

Delphi-Quellcode:

type
  TRecEvent = record

    //...

    bCustomMediaHidePrint, bCustomMediaHideApp : Boolean;
  end;

Funktion zum überarbeiten der Boolean-Werte:

zusammenfalten · markieren

Delphi-Quellcode:

procedure proc_loadCustomFiedBooleanState(const sUrl : String; const sArrTrueText : Array of String; var bArrTrueState : Array of Boolean; var jObj : TJSONObject);
  var i, j : Integer;
      jArr : TJSONArray;
begin
  if (Length(sArrTrueText) = 0)
  or (Length(bArrTrueState) = 0)
  or (Length(sArrTrueText) <> Length(bArrTrueState)) then
    Exit;

  try

      jArr := func_jsonGetArray(sUrl, jObj);

      for i := 0 to jArr.Count-1 do
        for j := 0 to High(sArrTrueText) do
          if jArr[i].Value.Equals( sArrTrueText[j] ) then
          begin
            bArrTrueState[j] := true;
            Break;
          end;

  except
  end;
end;

Funktionsaufruf:

markieren

Delphi-Quellcode:

          proc_loadCustomFiedBooleanState( sWebMecEventCustomMediaHideUrl,
                                            [sWebMecEventCustomMediaHidePrint, sWebMecEventCustomMediaHideApp],
                                            [Result[High(Result)].bCustomMediaHidePrint, Result[High(Result)].bCustomMediaHideApp],
                                            JSONObject);

Vom Record baue ich einen Array, um diesen später weiterzuverarbeiten.
Result = TArray<TRecEvent>



Hat jemand eine Idee?

*entfernt* (ob eine globale definition per type eine option wäre)

var array of X heißt nicht, dass das ein array von by ref parametern ist, sondern ein by ref array. Da kann man also nicht einfach einzelne Werte reingeben, sondern nur ein schon bestehendes Array by ref übergeben.

Aber du kannst ein const bArrTrueState: array of PBoolean als Parameter nehmen und dann so übergeben: [@Result[High(Result)].bCustomMediaHidePrint, @Result[High(Result)].bCustomMediaHideApp]
@jaenicke: Für 2 key/value Pairs nen Dictionary hochfahren? puhhh

Zitat von Stevie:

Aber du kannst ein const bArrTrueState: array of PBoolean als Parameter nehmen und dann so übergeben: [@Result[High(Result)].bCustomMediaHidePrint, @Result[High(Result)].bCustomMediaHideApp]

Klasse, es funktioniert mit dem Pointer und die Anpassung ist minimal!

Auf jedenfall werden ich mich mal mit allen genannten Sachen intensiver auseinandersetzen.
DANKE für die schnelle Hilfe!

Zitat von Stevie:

@jaenicke: Für 2 key/value Pairs nen Dictionary hochfahren? puhhh

Für diesen Zweck ist es sicherlich wie mit Kanonen auf Spatzen geschossen. Angesichts der prozeduralen Herangehensweise wollte ich aber einmal zeigen, dass es auch solche Möglichkeiten gibt, ohne dass man sich selbst unbedingt eigene Klassen erstellen muss.

Dazu hätte ich vielleicht noch ein Wort schreiben sollen.

Nur so als Denkanstoss: Ein Record mit Bool-Feldern kann man evtl. auch durch ein Set von Enums ersetzen. Dann kann man ggf. die einzelnen Werte mittels ihrer Namen setzen.

Hallo,
ich hätte den Record ja einfach als Var-Parameter an die Prozedur übergeben...

Das Array wird ja gerade erst neu erstellt und ist somit eine implizite lokale Variable. Da dieses Array aber nicht in einer echten Variable steht, würdest du Änderungen daran ja nicht nutzen können. Deshalb kannst du es nicht als Referenz übergeben.

Das sieht für mich auch recht kompliziert aus. Wie wäre es mit einem objektorientierten Ansatz? Wenn du eine TObjectList mit Objekten nutzen würdest, könntest du die Werte direkt in den Objekten ändern, weil das ohnehin Referenzen sind (anders als Records).
Oder alternativ könntest du ein TDictionary<string, Boolean> verwenden und direkt die Booleanwerte zuordnen.

Was da am sinnvollsten ist, kann ich so nicht sagen. Es seht für mich jedenfalls unnötig umständlich aus. Was eventuell eine Möglichkeit wäre, wenn ich das richtig verstanden habe:

zusammenfalten · markieren

Delphi-Quellcode:

procedure proc_loadCustomFiedBooleanState(const AUrl: string; const AValues: TDictionary<string, Boolean>; var AObj : TJSONObject);
var
  i: Integer;
  jArr: TJSONArray;
begin
  if AValues.Count = 0 then
    Exit;

  jArr := func_jsonGetArray(sUrl, jObj);

  for i := 0 to jArr.Count - 1 do
    if AValues.ContainsKey(jArr.Items[i].Value) then
      AValues[jArr.Items[i].Value] := True;
end;

Und generell:
Meistens macht man sich bei solchen Themen das Leben mit einem objektorientierten Ansatz statt einzelner Funktionen und Prozeduren deutlich leichter.