Prozedur zusammenbauen

[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.