Idee gesucht: Mehrere Daten mit Funktion zurückgeben

[Andreas L.]

Hi,
ich habe eine Funktion geschrieben die mehrere Daten (Strings, Booleans und Integers) aus einer Datei extrahiert. Diese Daten sollen über nur diese eine Funktion dem User zur Verfügung stehen. Ich dachte da an einen Record

Delphi-Quellcode:

type
Tsomething = record
 value1: String[100];
 value2: Boolean;
 value3: Integer;
end;

den ich der Funktion dann einfach als Rückgabewert geben

Delphi-Quellcode:

function bla(......):Tsomething;

Dieser record und die Funktion sind in einer extra Unit ausgelagert. Jetzt ist meine Frage:
Kann der User der diese Unit z. B. in seiner Haupt-Unit einbindet (uses-Klausel) einfach auf den zurückgegebenen Record zugreifen obwohl Tsomething nicht in seiner Haupt-Unit deklariert ist? Und wie macht er das dann? So wie mit einen normalen, in der Unit deklarierten Record?

Schonmal Danke :mrgreen:

ciao,
Andy

[mkinzler]

Zitat:

Kann der User der diese Unit z. B. in seiner Haupt-Unit einbindet (uses-Klausel) einfach auf den zurückgegebenen Record zugreifen obwohl Tsomething nicht in seiner Haupt-Unit deklariert ist?

Ja, du kannst ja auch auf Typen zugreifen, die du aus anderen Units importierst.

Zitat:

Und wie macht er das dann? So wie mit einen normalen, in der Unit deklarierten Record?

Ja.

[himitsu]

Zitat:

Zitat von mkinzler

Ja, du kannst ja auch auf Typen zugreifen, die du aus anderen Units importierst.

Jo und zwar bezieht sich das auf alle Typen und Funktionen, welche im Interface-Teil definiert wurden.

[Andreas L.]

Ahh, das wahr ja einfach,

Danke an euch :-)

[RavenIV]

Allerdings gibt es (wie immer) auch hier einen Fallstrick:
Wenn der Record in verschiedenene Units deklariert ist, ist er nicht gleich, obwohl er gleich aufgebaut ist und gleich heisst.
Also muss man den Record in EINER Unit deklarieren und diese EINE Unit in die anderen Units einbinden. Somit ist der Record nur einmal deklariert und somit 100%-ig identisch.

[Andreas L.]

Zitat:

Zitat von RavenIV

Allerdings gibt es (wie immer) auch hier einen Fallstrick:
Wenn der Record in verschiedenene Units deklariert ist, ist er nicht gleich, obwohl er gleich aufgebaut ist und gleich heisst.
Also muss man den Record in EINER Unit deklarieren und diese EINE Unit in die anderen Units einbinden. Somit ist der Record nur einmal deklariert und somit 100%-ig identisch.

Hab auch nur eine Unit. Also kein Problem.

Aber gibt es auch eine record-Liste? In diesen Tutorial (http://dsdt.info/tutorials/typdateien/) werden die records ja in eine Datei abgelegt. Gibt es auch eine Möglichkeit das ich per Funktion mehrere records zurückgebe?

Delphi-Quellcode:

type
Tsomething = record
value1: String[100];
value2: Boolean;
value3: Integer;
end;
...
function blubb:Tsomething;

Es sollen also mehrere records zurückgegeben werden.

Delphi-Quellcode:

function blubb:array of Tsomething;

Geht das so irgendwie? Wenn ja, wie verwende ich Arrays?

[Luckie]

Delphi-Quellcode:

  TMyRecArray = array of TSomething;

  function Foobar: TMyRecArray;

[Andreas L.]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

  TMyRecArray = array of TSomething;

  function Foobar: TMyRecArray;

Und wie greift der User darauf zu?

Delphi-Quellcode:

edit1.text := TmyRecArry[1].value1; //1 für datensatz 2?

[Luckie]

So:

Delphi-Quellcode:

type
  TMyRec = record
    FName: ShortString;
  end;

  TMyRecArray = array[0..1] of TMyRec;


function FillMyRecArrays: TMyRecArray;
var
  MyRecArray: TMyRecArray;
  i: Integer;
begin
  for i := 0 to length(MyRecArray) - 1 do
  begin
    MyRecArray[i].FName := IntToStr(i);
  end;
  Result := MyRecArray;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRecArray: TMyRecArray;
  i: Integer;
begin
  MyRecArray := FillMyRecArrays;
  for i := 0 to length(MyRecArray) - 1 do
    ShowMessage(MyRecArray[i].FName);
end;

[Andreas L.]

Zitat:

Zitat von Luckie

So:

Delphi-Quellcode:

type
  TMyRec = record
    FName: ShortString;
  end;

  TMyRecArray = array[0..1] of TMyRec;


function FillMyRecArrays: TMyRecArray;
var
  MyRecArray: TMyRecArray;
  i: Integer;
begin
  for i := 0 to length(MyRecArray) - 1 do
  begin
    MyRecArray[i].FName := IntToStr(i);
  end;
  Result := MyRecArray;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRecArray: TMyRecArray;
  i: Integer;
begin
  MyRecArray := FillMyRecArrays;
  for i := 0 to length(MyRecArray) - 1 do
    ShowMessage(MyRecArray[i].FName);
end;

2 Fragen habe ich noch:
1. Kann TMyRecArray = array[0..1] of TMyRec; nur 2 Einträge beinhalten? Wie mache ich das er unendlich viele Einträge haben kann. Also ein dynamischer Array?
2. Wenn ich einen record definiere:

Delphi-Quellcode:

type 
tsomething = record;
 blubb: String[50];

Muss ich dann immer angeben wie viel Speicher reserviert werden soll (hier für 50 Zeichen)? Oder kann ich das auch weglassen um so beliebig lange Strings zu speichern?