schreiben von datensaetzen in record-array - ERLEDIGT

[Grumble]

hallo,

ich brauche hilfe beim schreiben von datensaetzen aus einer interbase tabelle in ein record array
hier zunaechst der code fuer das schreiben ins record

Delphi-Quellcode:

procedure TFrameStratOptkat.updatetimedepvals;
begin
  timedeps:=nil;
  if FDB.FARceDB.Connected=false then FDB.FARceDB.Connected:=true;
  if not FDB.TR_FARce.InTransaction then FDB.TR_FARce.StartTransaction;
  FDB.SQL_Timedepvals.ExecQuery;
  if FDB.SQL_timedepvals.RecordCount>0 then
  begin
    while not FDB.SQL_timedepvals.Eof do
    begin
      SetLength(timedeps,FDB.SQL_timedepvals.RecordCount);
      timedeps[FDB.SQL_timedepvals.RecordCount-1].ID:=FDB.SQL_Timedepvals.Fieldbyname('ID').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].ID_Optionen:=FDB.SQL_timedepvals.FieldbyName('ID_OPTIONEN').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].ID_Kriterium:=FDB.SQL_timedepvals.FieldbyName('ID_KRITERIEN').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].timepoint:=FDB.SQL_timedepvals.FieldbyName('TIMEPOINT').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].Wert:=FDB.SQL_timedepvals.FieldbyName('WERT').AsString;
      FDB.SQL_timedepvals.Next;
    end;
  end;
end;

mein problem ist das mein neu erstellter datensatz zwar am ende der interbase tabelle steht, jedoch als erstes im record-array auftaucht.
kann mir jemand sagen wo der hund begraben sein koennte?

Grumble
:coder:

[Grumble]

DANKE, hab ne loesung gefunden:

habe einfach die zeile

Delphi-Quellcode:

FDB.SQL_timedepvals.ComponentIndex:=0;

eingefuegt.
das ganze sieht jetzt so aus:

Delphi-Quellcode:

procedure TFrameStratOptkat.updatetimedepvals;
begin
  timedeps:=nil;
  if FDB.FARceDB.Connected=false then FDB.FARceDB.Connected:=true;
  if not FDB.TR_FARce.InTransaction then FDB.TR_FARce.StartTransaction;
  FDB.SQL_Timedepvals.ExecQuery;
  if FDB.SQL_timedepvals.RecordCount>0 then
  begin
    FDB.SQL_timedepvals.ComponentIndex:=0;
    while not FDB.SQL_timedepvals.Eof do
    begin
      SetLength(timedeps,FDB.SQL_timedepvals.RecordCount);
      timedeps[FDB.SQL_timedepvals.RecordCount-1].ID:=FDB.SQL_Timedepvals.Fieldbyname('ID').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].ID_Optionen:=FDB.SQL_timedepvals.FieldbyName('ID_OPTIONEN').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].ID_Kriterium:=FDB.SQL_timedepvals.FieldbyName('ID_KRITERIEN').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].timepoint:=FDB.SQL_timedepvals.FieldbyName('TIMEPOINT').AsInteger;
      timedeps[FDB.SQL_timedepvals.RecordCount-1].Wert:=FDB.SQL_timedepvals.FieldbyName('WERT').AsString;
      FDB.SQL_timedepvals.Next;
    end;
  end;
end;

fuer verbesserungsvorschlaege bin ich immer offen :)

Grumble
:coder: