Hallo,

ich erstelle so ein dynamisches Array of Record:

zusammenfalten · markieren

Delphi-Quellcode:

function Tdata.getCatalog(inList : TStringList) : TDocxDocument;
var
  i : integer;
  reval : TDocxDocument;
begin
  if workQuery.Active then WorkQuery.Active := false;
  workQuery.SQL.Clear;
  workQuery.SQL.Add('SELECT ass.level, ass.article_id, art.name, art.number FROM ');
  workQuery.SQL.Add('assignments as ass JOIN articles as art ON ass.article_id=art.id WHERE ');
  workQuery.SQL.Add('ass.id=:id');
  for i := 0 to inlist.Count - 1 do
  begin
    workQuery.ParamByName('id').AsInteger := StrToInt(inList[i]);
    workQuery.Open;
    if not workQuery.IsEmpty then
    begin
      reval[i].level := workQuery.FieldByName('level').AsInteger;
      reval[i].article_id := workQuery.FieldByName('article_id').AsInteger;
      reval[i].article_name := workQuery.FieldByName('name').AsString;
      reval[i].article_number := workQuery.FieldByName('number').AsString;
    end;
    workQuery.Close;
  end;
  SetLength(reval,i);
  result := reval;
end;

Die Typen sind wie folgt deklariert:

markieren

Delphi-Quellcode:

type TDocxline = record
  level : integer;
  article_id : integer;
  article_number : string;
  article_name : string;
end;

type
  TDocxDocument = array of TDocxline;

Allerdings habe ich Probleme das zurückgegebene Array zu durchlaufen. Habe ich setLength richtig gesetzt?

Viele Grüße ...

Du musst SetLength() aufrufen, bevor Du die Array-Elemente befüllst. Allerdings solltest Du dies aus Performancegründen blockweise tun (z.B. 16 Elemente reservieren, ab dem 17. Datensatz wieder um 16 Elemente vergrößern usw.).

Zitat von fillibuster:

markieren

Delphi-Quellcode:

type TDocxline = record
  level : integer;
  article_id : integer;
  article_number : string;
  article_name : string;
end;

type
  TDocxDocument = array of TDocxline;

Da Du ja D2010 nutzt, nimm doch besser eine generische Liste:
  TDocxDocument=TList<TDocxline> Dann kannst Du über einen Indexer laufen, Elemente mit Add anhängen uvw.

Zitat von joachimd:

Da Du ja D2010 nutzt, nimm doch besser eine generische Liste:
  TDocxDocument=TList<TDocxline> Dann kannst Du über einen Indexer laufen, Elemente mit Add anhängen uvw.

Das hört sich gut an. Gibt's da irgendwo nen Beispiel bzw. ein Tutorial zu?

Viele Grüße ...

//Edit: erledigt - http://docwiki.embarcadero.com/CodeE...t_%28Delphi%29

Von Daniel sollte es ein paar Videos zu Generics geben.

Und nochmal zu dem Array ... ein Tipp: schalte mal die Breichs- und Überlaufprüfung in den Projektoptionen an ... diese hätten dir sofort mitgeteilt, daß bei dir was nicht stimmt

Ich würde aus dem Record eine Klasse machen!

markieren

Delphi-Quellcode:

TDocxline = class(Tobject)
public
  level : integer;
  article_id : integer;
  article_number : string;
  article_name : string;

  procedure LoadFromDataset(Dataset:TDataset);
  procedure SaveToDataset(Dataset:TDataset);
end;

Du siehst, es gibt schon 2 Methoden, die eindeutig der Klasse zuzuordnen ist.
Und es lassen sich bestimmt noch weitere Methoden finden.

Record + Funktionen, die mit dem Record arbeiten ==> Klasse.

Zitat von shmia:

Ich würde aus dem Record eine Klasse machen!

Ich würde einen TList-Abkömmling daraus machen, oder ist die Idee zu abwegig?

Gruß
K-H

Zitat von p80286:

Ich würde einen TList-Abkömmling daraus machen, oder ist die Idee zu abwegig?

Ein Record, auf den bestimmte Operationen angewendet werden schreit danach "Bitte mach mich zur Klasse".
Das ist die Grundlage von OOP!
Es bedeutet, dass ein Programm letztendlich fast ausschlieslich aus Klassen besteht und Records nur noch in Ausnahmefällen (Windows API, Zugriff auf Resourcen ) benützt werden.
Man muss nur die Schranken im eigenen Denken einreisen.

Eine Liste von TDocxline-Objekten würde man natürlich in einer TObjectList halten (oder man nimmt eine generische Liste).

Sein Delphi 2010 bietet aber auch die Möglichkeit von Record-Methoden.

Man muß also nicht immer gleich ein Objekt erstellen, wenn man Methoden darin einbinden will.

Und Records bieten eine schöne automatische Speicherverwaltung.
Also kein Create und kein Free. (OK, das Free könnte man auch über Interfaces lösen)

Meine BigMath-Lib war als Objekte schöner zu lösen. Eben weil kein Create nötig war und auch Records "kopieren" geht einfacher, als ein Objekt zu klonen. Und dann die knuffigen Operatoren.

Noch ein Hinweis, auch wenn es sich eventuell schon erledigt hat, aber die Laufvariable einer for-Schleife, ist nach der Schleife nicht definiert.