Deklaration von Record in Funktionen

[Ralf Stehle]

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

[Angel4585]

Versuch mal in der Funktion vor den Parameter ein "var" zu setzen

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

[marabu]

Hallo Ralf,

versuche mit einer Typdeklaration zu arbeiten:

Delphi-Quellcode:

type
  TPatRecArray = array of xmlPdvPatRec;

Grüße vom marabu

[Ralf Stehle]

Vielen Dank. Der erste Vorschlag die Funktionsdeklaration mit var zu erweitern, hat nicht funktioniert.

Die Deklaration type TPatRecArray = array of xmlPdvPatRec; war die Lösung.

Vielen Dank für die superschnelle Hilfe



Ralf