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
