Problem mit dynamischem Array of Record

[shmia]

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

[himitsu]

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.

[Luckie]

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

[fillibuster]

Hallo,

danke für eure Hinweise. Leider stecke ich an der Idee mit der TList:

Delphi-Quellcode:

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

type
  TDocxDocument = TList<TDocxline>;

Delphi-Quellcode:

function Tdata.getCatalog(inList : TStringList) : TDocxDocument;
var
  i  : integer;
  reval : TDocxDocument;
  tmp : TDocxline;
begin
  ...
  for i := 0 to inlist.Count - 1 do
  begin
    workQuery.ParamByName('id').AsInteger := StrToInt(inList[i]);
    workQuery.Open;
    if not workQuery.IsEmpty then
    begin
      tmp.level          := workQuery.FieldByName('level').AsInteger;
      tmp.article_id     := workQuery.FieldByName('article_id').AsInteger;
      tmp.article_name   := workQuery.FieldByName('number').AsString;
      tmp.article_number := workQuery.FieldByName('name').AsString;
      reval.AddRange(tmp);
    end;
    workQuery.Close;
  end;
  result := reval;
end;

Wenn ich die Werte dann verarbeiten will, bekomme ich ne Exception. Kann ich eine generische Liste nicht als type deklarieren?

Vielen Dank

[Bummi]

reval : TDocxDocument wird nirgends erzeugt
also z.B.
Result := TDocxDocument.Create; TDocxline müßte kein Record sondern eine Klasse sein und auch entsprechend erzeugt und per Add eingefügr werden.

Im Moment versuchst Du den immer gleichen Zeiger auf dem Stack tmp : in eine nicht vorhandene Liste einzufügen.

[fillibuster]

Ups

[Sir Rufo]

Delphi-Quellcode:

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

type
  TDocxDocument = TList<TDocxline>;

Delphi-Quellcode:

procedure Tdata.getCatalog(inList : TStringList; Result : TDocxDocument );
var
  i  : integer;
  //reval : TDocxDocument;
  tmp : TDocxline;
begin
  {...}
  for i := 0 to inlist.Count - 1 do
  begin
    workQuery.ParamByName('id').AsInteger := StrToInt(inList[i]);
    workQuery.Open;
    if not workQuery.IsEmpty then
    begin
      tmp.level          := workQuery.FieldByName('level').AsInteger;
      tmp.article_id     := workQuery.FieldByName('article_id').AsInteger;
      tmp.article_name   := workQuery.FieldByName('number').AsString;
      tmp.article_number := workQuery.FieldByName('name').AsString;
      //reval.AddRange(tmp);
      Result.Add( tmp );
    end;
    workQuery.Close;
  end;
  //result := reval;
end;

{...}

{ Aufruf erfolgt dann so }

  MyDocx := TDocxDocument.Create;
  try
    MyData.getCatalog( MyInList, MyDocx );
    // Jetzt irgendwelche wilde Sachen mit MyDocx machen
  finally
    MyDocx.Free;
  end;

Zitat von Bummi:

TDocxline müßte kein Record sondern eine Klasse sein und auch entsprechend erzeugt und per Add eingefügr werden.

Im Moment versuchst Du den immer gleichen Zeiger auf dem Stack tmp : in eine nicht vorhandene Liste einzufügen.

Das sehe ich nicht so ... denn ein Record verhält sich genauso wie eine normale Variable.

Delphi-Quellcode:

a := 1; // a = 1
b := a;  // b = 1
a := a + 1;  // a = 2
c := a; // c = 2 und b = 1

Delphi-Quellcode:

type
  MyRec = record
    Value : integer;
  end;

a.Value := 1;
b := a;  // b.Value = 1
a.Value := a.Value + 1;
c := a;  // c.Value = 2 und b.Value = 1

Somit kann hier durchaus ein Record als Listenelement verwendet werden.

[Bummi]

Zitat:

Somit kann hier durchaus ein Record als Listenelement verwendet werden.

Ich bin noch zu sehr in der Welt der Listen ohne Generics gefangen, sorry.