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.