dynamische Arrays übergeben

[handson]

Hallo!

Irgendwie habe ich ein Brett vorm Kopf, habe schon nach meinem Problem gesucht, finde aber irgendwie nichts passendes.
Es geht um dynamische Array. Ich möchte Sie einer Procedure / Function übergeben, aber kriege einen Fehler.
Hier ein Beispiel:

Delphi-Quellcode:

Type
  Str6 = String[6];

Procedure A(Value : Array Of Str6);
Begin
  // Tu irgend etwas...
End;

Procedure B;
Var
  a : Array Of Str6;

Begin
  SetLength(a,Query.RecordCount);
  a[0] := '000001'; // usw. alle Felder mit irgendeinem Wert zuweisen

  A(a); // an dieser Stelle kommt ein Fehler, s.u.
End;

Vom Compiler bekomme ich die Meldung: Inkompatible Typen: "Array" und "dynamic array"
Ich mach da irgendwo einen Fehler und komm' nicht drauf. Vielleicht kann mir ja jemand eine
kurze Hilfestellung geben.

Danke!

Stephan

[BenjaminH]

Du musst da einen Typen draus machen. Also

Delphi-Quellcode:

type
  TStr6Array=Array Of Str6;

und in den Parametern der Procedure diesen Typen verwenden.
Viele Grüße,
Benjamin

[handson]

OK, das war's gewesen!

Danke!