Array of String als Parameterübergabe - Inkompatible Typen

[hitzi]

Hallo,

irgendwie steh ich heute auf dem "Schlauch" und komm nicht weiter. Ich brauch endlich Urlaub :stupid:
Ich habe folgenden Quelltext:

Delphi-Quellcode:

procedure TfrmMain.GetTables(DS : TADODataSet; var mTables : array of string);
begin
  ...
  setlength(mTables, DS.RecordCount); //Fehler Inkombatible Typen
  ...

Fehler steht oben im Quelltext. Wie kann ich diesen umgehen?

MfG Hitzi

[Jens Schumann]

Zitat:

Zitat von hitzi

Hallo,

irgendwie steh ich heute auf dem "Schlauch" und komm nicht weiter. Ich brauch endlich Urlaub :stupid:
Ich habe folgenden Quelltext:

Delphi-Quellcode:

procedure TfrmMain.GetTables(DS : TADODataSet; var mTables : array of string);
begin
  ...
  setlength(mTables, DS.RecordCount); //Fehler Inkombatible Typen
  ...

Fehler steht oben im Quelltext. Wie kann ich diesen umgehen?

MfG Hitzi

Versuch es mal so:

Delphi-Quellcode:

Type
  TStrArray = Array of String;
...
procedure TfrmMain.GetTables(DS : TADODataSet; var mTables : TStrArray);
begin
  ...
  setlength(mTables, DS.RecordCount); //Fehler Inkombatible Typen
  ...

[Gollum]

Hallo,

so sollte es funktionieren:

Delphi-Quellcode:

type
  TMTables:array of String;
...
...
procedure TfrmMain.GetTables(DS : TADODataSet; var mTables:TMTables);
...

[hitzi]

Danke Gollum hat funktioniert. Bis auf einen kleine Fehler:

Delphi-Quellcode:

type
  TMTables = array of String;

Danke für deine Hilfe.

Hitzi

[IngoD7]

Zitat:

Zitat von hitzi

Danke Gollum [...]Danke für deine Hilfe.

@Jens Schumann

Undank ist der Welt Lohn ... :mrgreen:

[Jens Schumann]

Zitat:

Zitat von IngoD7

Zitat:

Zitat von hitzi

Danke Gollum [...]Danke für deine Hilfe.

@Jens Schumann

Undank ist der Welt Lohn ... :mrgreen:

Genau :(

[hitzi]

Whoops .... SORRY ... VERZEIH MIR Jens :roll:

Das ist eben blöd, wenn man den Link in der Email anklickt, sehe ich erstmal nur den letzten Beitrag. Habe dann leider vegessen nochmal hochzuscrollen.

Der Dank geht natürlich auch an dich Jens. Danke.
Ich gelobe Besserung und scrolle das nächste Mal :stupid:

MfG Hitzi

PS: Danke nochmal an alle die mir bei dem Problem geholfen haben. Danke :thuimb: