Mehrere Strings an Procedure übergeben

[HolgerCW]

Hallo,

ich möchte mehrere Strings an eine Procedure übergeben.

Es können mal 2,3 oder bis maximal 10 sein.

Welchen Datentyp nehme ich dafür.

Wenn ich das so mache:

procedure TStrings_fuellen (Box:TStrings; Tabelle:String; Spalten: Array[1..10] of String; Anzahl:Integer; SQL: String; Order: String); kommt die Fehlermeldung, das er anstatt '[' of erwatet, wenn ich die eckige Klammer aber weg lasse kann ich keinen einzelnen String übergeben ?

Gruss

Holger

[marabu]

Hallo Holger,

im Prozedurkopf hat die Array-Dimensionierung nichts verloren. Einfach weglassen.

Grüße vom marabu

[HolgerCW]

So klappt es jetzt:

procedure TStrings_fuellen (Box:TStrings; Tabelle:String; Spalten: Array of String; Anzahl:Integer; SQL: String; Order: String); Musste nur die Werte, die ich übergeben will in eckige Klammern setzen.

Wie bekomme ich jetzt noch die Anzahl der übergebenen Werte aus dem Array raus ?

Gruss

Holger

[scrat1979]

Zitat von HolgerCW:

So klappt es jetzt:

procedure TStrings_fuellen (Box:TStrings; Tabelle:String; Spalten: Array of String; Anzahl:Integer; SQL: String; Order: String); Musste nur die Werte, die ich übergeben will in eckige Klammern setzen.

Wie bekomme ich jetzt noch die Anzahl der übergebenen Werte aus dem Array raus ?

Gruss

Holger

Gabs da nicht mal was mit Hi(Spalten) ???

SCRaT

[Apollonius]

Hi() und lo() sind für bestimmte Bereiche einer Zahl ("oberstes" und "unterstes" Byte). Für Arrays muss man richtiges Englisch verwenden: Low() und High(). Oder schlicht und einfach length().

[HolgerCW]

Vielen dank mit length klappt es ...

Gruss

Holger

[RavenIV]

Wie wäre es, wenn Du nicht mit einem festen Array, sondern mit TStringList arbeitest?
Da bist Du flexibler und musst nur soviel übergeben, wie es tatsächlich ist.

Und vor allem, wenn Du mal mehr wie 10 Strings hast, was machst Du dann?

[DeddyH]

Er übergibt doch bereits ein dynamisches Array.

[RavenIV]

Sorry, aber ich bin irgendwie allergisch gegen Array, egal ob dynamisch oder fest.