function () : array of TMyType;

Yacoon · Beiträge: 72

Hi zusammen!
Ich habe einen einen Record, z. B.

Quelltext

1:
2:
3:

TMyType = record
  strName : String;
end;

Es ist kein Problem einen Array von dem Typ zu deklarieren

markieren

Quelltext

1:	aryMyType : Array of TMyType;

Wie aber schaffe ich es, das ich eine Funktion schreibe, deren Rückgabewert vom Typ TMyType ist?
Oder geht das mit Delphi gar nicht?

Gruß

Fred Ferkel · Beiträge: 87

hier nur ein kleiner schnipsel aber das sollte alles sagen..

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

TMyType = record
  strName : String;
end;


var
  Form1: TForm1;

implementation

{$R *.DFM}

function myfunc():TMyType;
begin
  result.strName:='TEST';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(myfunc().strName);
end;

cya

Yacoon · Beiträge: 72

naja der code behebt nicht mein Problem. Das Ergebnis sollte vom Typ array of TMyType sein.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

TMyType = record 
  strName : String; 
end; 


var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

function myfunc():Array of TMyType; 
begin 
  result.strName:='TEST'; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  showmessage(myfunc().strName); 
end;

Ich habe den Code einfach mal geändert. Wenn du jetzt diesen Code nimmst, dann bringt er den Fehler "Bezeichner erwartet aber Array gefunden"?

Tower · Beiträge: 99

Du musst vorher noch einen eigenen Typ für das Array erstellen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

TMyType = record 
  strName : String; 
end; 
TMyArray = Array of TMyType;

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

function myfunc():TMyArray; 
begin 
  result.strName:='TEST'; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  showmessage(myfunc().strName); 
end;

Dann funktioniert's.

Yacoon · Beiträge: 72

Ah cool, danke, das funktioniert

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme