Hallo zusammen,

ich lese schon eine ganze Weile hier im Forum, und es hat mir bei meinem Einstieg teilweise schon sehr geholfen.
Jedoch bin ich jetzt an einem Punkt, da muss ich doch mal was fragen, da ich nichts passendes gefunden habe.

Ich möchte eine Funktion benutzen, die ein Array of Const (array of TVarRec) erwartet.

markieren

Code:

Report2PDF(aExportfile, aReportFile :String; aParam, aParamValue : array of const): Integer;

meine Parameter besorge ich mir zuvor aus einer Datenbank. Dort sind sie wie folgt gespeichert: "p1=v1;p2=v2;p3=v3".
Leider weiß ich zur Designzeit nicht wie viele Parameter kommen werden.
Nach dem Abfragen zerlege ich sie im ersten Schritt in zwei TstringLists: Parameter und Values

markieren

Code:

procedure ParseParams(aParameter: string; var vlist, plist :TStrings);
var
v: string;
i: Integer;
begin
  StrTokenToStrings(aParameter,';',vList);
  for I := 0 to vList.Count-1 do
    begin
      v := vlist.Strings[i];
      plist.Add(StrToken(v,'='));
      vlist.Strings[i] := v;
    end;
end;

Soweit so gut. Leider will die Funktion keine Tstrings
also habe ich versucht mir einen TVarRec selber zu bauen:

markieren

Code:

procedure TfrmMain.ParseParamsVarRec(aParameter: string; var vRec, pRec :array of TVarRec);
var
v: string;
i: Integer;
vlist, plist : TStringList;
begin
  vlist := TStringList.Create;
  plist := TStringList.Create;
  StrTokenToStrings(aParameter,';',vList);
  for I := 0 to vList.Count-1 do
    begin
      v := vlist.Strings[i];
      plist.Add(StrToken(v,'='));
      vlist.Strings[i] := v;
    end;
  for I := 0 to vlist.Count-1 do
    begin
      vRec[i] := CreateVarRec(vlist.Strings[i]);
    end;
  for I := 0 to plist.Count-1 do
    begin
      pRec[i] := CreateVarRec(plist.Strings[i]);
    end;
end;

markieren

Code:

function TfrmMain.CreateVarRec(input : string) :TVarRec;
begin
Result.VType := vtWideString;
WideString(result.VWideString) := 'abc';
end;

Das funktioniert jedoch nicht und wenn ich mich bei meiner Suche im Internet nicht verlesen habe, dann soll es wohl auch nicht möglich sein, sich selber ein TVarRec bzw. Array of TVarRec zu bauen.

Könnt ihr mir helfen? Was muss ich tun, um die Funktion dennoch nutzen zu können?
Evtl. brauche ich nur einen kleinen Stubs weil ich den Wald vor lauter Bäumen nicht mehr sehe.

MfG
Jan

Mir war doch so, das es das hier schon gab

(String-) Format - variable Anzahl an Paramern (dynamisch!)

Cool Danke, habe es hinbekommen.