procedure next

Modified on 02/02/2009 13:57 by CPABED Categorized as Plattform
'''Syntax:'''{BR}
{{{{'''procedure''' next;}}}}{BR}
{BR}
'''Beschreibung:'''{BR}
{BR}
Die Methode Next positioniert auf den nächsten Datensatz der Datenmenge.

Mit Next können Sie auf den nächsten Datensatz der Datenmenge positionieren und diesen zum aktiven Datensatz machen. Dabei werden zuerst die Änderungen des aktuellen Datensatzes eingetragen und anschließend folgende Aktionen durchgeführt:

Die Eigenschaften Bof und Eof werden auf false gesetzt.
	Der nächste Datensatz wird abgerufen und aktiviert.
	Die anderen für die Anzeige benötigten Datensätze werden abgerufen, um beispielsweise eine Gitterkomponente zu füllen (dies gilt nicht für unidirektionale Datenmengen).
	Die Eigenschaft Eof wird auf true gesetzt, wenn der letzte Datensatz der Datenmenge bereits aktiv war.
	Die verbundenen Steuerelemente und Detailmengen werden von der Änderung benachrichtigt. Diese führen dann die entsprechenden Aktualisierungen durch.

Hinweis:	TDataSet verwendet interne, geschützte Methoden, um den aktiven Datensatz zu wechseln und die für die Anzeige benötigten Datensätze abzurufen. In TDataSet sind diese internen Methoden leere Grundgerüste. Sie werden in abgeleiteten Klassen implementiert, um die Funktion von Next bereitzustellen.
{BR}
'''Beispiel:'''{BR}
{BR}
<code pascal>
// Alle Datensätze in Customers (einer Tabelle in Windows

// und SQLDataSet-Komponente in Linux) durchlaufen.
// ProgressBar entsprechend aktualisieren.

procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0;
    Max := Customers.RecordCount;
    Customers.First;
    for i := Min to Max do
    begin
      Position := i;
      Customers.Next;
      // Operationen mit aktuellem Datensatz durchführen
    end;
  end;
end;
</code>
CP Wiki

Navigation¶

procedure next
