Prozedur zusammenbauen

[Popov]

Kann es ein, dass du sowas in der Art wie bei Format suchst:

Delphi-Quellcode:

Format('Text %s, Text %s, Text %s', [a, b, c]);
...

Das wird da so gelöst:

Delphi-Quellcode:

function Format(const Format: string; const Args: array of const): string;
begin
  ...
end;

//Edit:

Bei Polygon

Syntax:

Delphi-Quellcode:

procedure Polygon(Points: array of TPoint);
...

Beispiel:

Delphi-Quellcode:

Canvas.Polygon([Point(10, 10), Point(30, 10), Point(130, 30), Point(240, 120)]);
...

Delphi-Quellcode:

procedure TCanvas.Polygon(const Points: array of TPoint);
begin
  ...
end;

[josefkoller]

Hi,

nein, sowas nicht. Ich such einfach eine Möglichkeit

eine Prozedur vor dem Aufruf zusammenzubasteln.

Je nachdem, wieviele Textarrays ich habe, muß die Prozedur unterschiedlich aufgerufen werden.

Also: Wenn ich ein Text array habe, dann so:

DrawTextAcrossCols([arrColText[0,b]]); Wenn es zwei sind, dann halt so:

DrawTextAcrossCols([arrColText[0,b], [arrColText[1,b] ]); usw.

Händisch ist das ja kein Problem. Ich schreib halt soviele hin, wie ich habe.

Es soll aber automatisiert werden und die Anzahl dieser TextArray's ist eben nicht immer gleich.

Danke.

Josef

[Bummi]

Die Art der möglich Zuweisungen lassen auf eine Array of Const schließen, so einfach kann da kein Array zugewiesen werden. Hier gibt es einen Artikel zu diesem Thema: http://rvelthuis.de/articles/articles-openarr.html

[Popov]

Das Beispiel mit Points ist vielleicht nicht so glücklich gewählt, aber ich ich erstelle ein Array mit einer n-Zahl von Points und übergebe es als Polygon. Das Polygon schluckt also n Parameter.

[DeddyH]

Mehrdimensionale Arrays kann man AFAIK nicht als offene Arrays übergeben, aber wenn man typisiert, sollte das klappen. Schnell unter Lazarus zusammengetippt und ausprobiert:

Delphi-Quellcode:

type
  TStringArray = array of string;

procedure ShowValues(const ValueArrays: array of TStringArray);
var
  i, j: integer;
begin
  for i := Low(ValueArrays) to High(ValueArrays) do
    for j := Low(ValueArrays[i]) to High(ValueArrays[i]) do
      ShowMessage(ValueArrays[i, j]);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  Arr1, Arr2: TStringArray;
begin
  SetLength(Arr1, 2);
  Arr1[0] := 'Hallo';
  Arr1[1] := 'Welt';
  SetLength(Arr2, 3);
  Arr2[0] := 'Hier';
  Arr2[1] := 'bin';
  Arr2[2] := 'ich';
  ShowValues([Arr1, Arr2]);
  Arr1 := nil;
  Arr2 := nil;
end;

Kann aber auch sein, dass ich das Problem nicht richtig verstanden habe.

[Bummi]

IMHO wird etwas gesucht das so aussehen soll, aber natürlich nicht funktioniert

Delphi-Quellcode:

Type
TStringArray=Array of String;

procedure TForm5.Button1Click(Sender: TObject);
var
 DerWäreschönWennAlsConstArrayÜbergebbar:TStringArray;
begin
  SetLength(a,2);
  DerWäreschönWennAlsConstArrayÜbergebbar[0] := 'eins';
  DerWäreschönWennAlsConstArrayÜbergebbar[1] := 'zwei';
  Showmessage(Format('Ausgabe 1. %s 2. %s',DerWäreschönWennAlsConstArrayÜbergebbar));
end;

[DeddyH]

Nachdem ich jetzt den Ausgangspost noch 4 Mal intensiv durchgelesen habe könntest Du Recht haben. Ich hatte mich auch schon gewundert wegen des Array of const.

[himitsu]

Zeig doch mal die Deklaration von DrawTextAcrossCols.

Zitat von josefkoller:

wie in Deinem Beispiel hakt es. wie bekomme ich da eins, zwei drei, vier Arrays rein? also nicht händisch reingetippt.

Du legst dr auch noch eine Variable (array of TStringArray ) an, befüllst sie und übergibst dann diese an die Funktion.

Zitat von Bummi:

Die Art der möglich Zuweisungen lassen auf eine Array of Const schließen,

Zitat:

so einfach kann da kein Array zugewiesen werden.

PS: ein array of const ist intern ein array of TVarRec und sowas kann man einer Funktion auch übergeben.
(nur die Speicherverwaltung ist etwas nervig, darum ist es schönder, wenn man diese Array-Verwaltung in einer Klasse kapselt, welche sich sicher um alles kümmert)

Man kann halt nur Arrays des gleichen Typs zuweisen.
Man kann z.B. auch kein Array of AnsiString einem Array of WideString oder einemAray of Variant zuweisen.

[josefkoller]

Hi,

Zitat von DeddyH:

Mehrdimensionale Arrays kann man AFAIK nicht als offene Arrays übergeben, aber wenn man typisiert, sollte das klappen. Schnell unter Lazarus zusammengetippt und ausprobiert:

Delphi-Quellcode:

type
  TStringArray = array of string;

procedure ShowValues(const ValueArrays: array of TStringArray);
var
  i, j: integer;
begin
  for i := Low(ValueArrays) to High(ValueArrays) do
    for j := Low(ValueArrays[i]) to High(ValueArrays[i]) do
      ShowMessage(ValueArrays[i, j]);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  Arr1, Arr2: TStringArray;
begin
  SetLength(Arr1, 2);
  Arr1[0] := 'Hallo';
  Arr1[1] := 'Welt';
  SetLength(Arr2, 3);
  Arr2[0] := 'Hier';
  Arr2[1] := 'bin';
  Arr2[2] := 'ich';
  ShowValues([Arr1, Arr2]);
  Arr1 := nil;
  Arr2 := nil;
end;

Kann aber auch sein, dass ich das Problem nicht richtig verstanden habe.

eben bei

ShowValues([Arr1, Arr2]);

wie in Deinem Beispiel hakt es. wie bekomme ich da eins, zwei drei, vier Arrays rein? also nicht händisch reingetippt.

danke.

Josef

[DeddyH]

Nun bin ich aber doch wieder verwirrt. Kannst Du mir mal einen angedachten Aufruf anhand meines Beispiels zeigen?