DB ID's in Array Speichern

[DeddyH]

Delphi-Quellcode:

 LSQl := 'Select Id From technik_image where TECHNIKID = 70';
  IBDSetThumbnail.SelectSQL.Text := LSql;
  IBDSetThumbnail.Open;
  dsThumnails.DataSet := IBDSetThumbnail;

  SetLength(FIds,IBDSetThumbnail.RecordCount);

  i := 0;
  while not IBDSetThumbnail.EOF do
    begin 
      FIds[i] := IBDSetThumbnail.Fields[0].Value;
      inc(i);
      IBDSetThumbnail.Next;
    end;

[edit] Nachtrag: Der RecordCount muss nicht in jedem Fall die Anzahl der tatsächlich ermittelten Datensätze wiedergeben, daher ist das SetLength() oben mit etwas Vorsicht zu genießen. [/edit]