Delphi-PRAXiS - Delphi Deklaration von Record in Funktionen

ich möchte ein dynamisches Record-Array (= dynamische Array mit Aufbau eines Record) in der Deklaration einer Funktion benutzen, dabei soll die Größe des Arrays erst in der Funktion festgelegt werden.

Die Funktion FillxmlPdvPatSuche funktioniert einwandfrei, wenn ich das PatRecArray schon bei der Deklaration festlege, dann muss ich aber höllisch aufpassen, ob nicht noch Daten drinstehen von einem vorherigen Aufruf drinstehen

Delphi-Quellcode:

			var

  fMain: TfMain;

  PatRecArray: array of xmlPdvPatRec

Wenn ich das PatRecArray aber erst in der Funktion deklariere damit das Array sicher leer ist sowie im untenstehenden Code, dann erscheint beim Aufruf von

Delphi-Quellcode:

SetLength(PatRecArray, z);

leider immer die Fehlermeldung

Zitat:

Inkompatible Typen

Hier meine 2 Units: in uMain wird die Funktion benötigt, die Deklarationen und Funktionen stehen in myMdcDef

Unit uMain hat folgenden Aufbau:;

Delphi-Quellcode:

			unit uMain;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, StrUtils,IdHTTP, myMdcDef,

  IdComponent, IdTCPConnection, IdTCPClient;

type

  TfMain = class(TForm)

    IdHTTP: TIdHTTP;

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  fMain: TfMain;

implementation

{$R *.dfm}

procedure TfMain.Button1Click(Sender: TObject);

var

  i, z: integer;

  PatRecArray: array of xmlPdvPatRec;

begin

  z := FillxmlPdvPatSuche('Müller','A*', '','', PatRecArray);

  //Array fängt bei  Null an

  for i := 0 to z-1 do begin

    ShowMessage(PatRecArray[i].NACHNAME + ', ' + PatRecArray[i].VORNAME);

  end;

end;

end.

Unit myMdcDef hat folgenden Aufbau:

Delphi-Quellcode:

			unit myMdcDef;

interface

uses

   SysUtils, Windows, Classes, Dialogs, StrUtils;

type xmlPdvPatRec  = record   

  pat              : AnsiString;

  PIZ              :String[8];

  BHFNR            :String[12];

  VERLNR           :string;

  TITEL            :String[20];

  NACHNAME         :String[40];

  VORNAME          :String[28];

  GEBURTSNAME      :String[40];

  GEBURTSDATUM     :String[12];

  GESCHLECHT       :String[1];

  STRASSE          :String[40];

  PLZ              :String[7];

  ORT              :String[40];

  LAND             :String[10];

  TEL              :String[20];

  STAATSANG        :String[3];

end;

  function FillxmlPdvPatSuche(const Name, Vorname, GebDat, Geschlecht: String; PatRecArray: array of xmlPdvPatRec): integer;

implementation

uses

  uMain;

function FillxmlPdvPatSuche(const Name, Vorname, GebDat, Geschlecht: String; PatRecArray: array of xmlPdvPatRec): integer;

var

  pos1, posStart, posEnd, z : integer;

  url                       : AnsiString;

  answer                    : AnsiString;

  ParamData                 : TStrings;

begin

  //....... Code um Daten aus der Datenbank in ein AnsiString auszulesen,

  //AnsiString zu parsen und Anzahl der Datensätze z ermitteln

  SetLength(PatRecArray, z);  //hier kommt immer die Fehlermeldung

  result := z;

end;

end.