TurboPL Referenz

MaxLabel Prozedur

Syntax

MaxLabel(Tabelle: Integer): Integer

Kategorie

Datenbank-Befehl

Erklärung

Die Funktion MaxLabel ermittelt zur Laufzeit des Programms die Anzahl der Spalten einer Datenbanktabelle.  Besonders geeignet ist die Funktion in Abbruchbedingungen von Schleifenkonstruktionen.

Beispiel

Das folgende Makro scheibt alle Feldbezeichner der aktuellen Primärtabelle in eine externe Textdatei.

PROCEDURE WriteLabels
               VARDEF t, i : Integer
               t := Reset("EXTERN.TXT")
               WHILE i := i+1 <= MaxLabel(FileNr)
                               WriteLn(t,Label(FileNr,i))
               END
               Close(t)
ENDPROC

Siehe auch

FileSize, Label, LabelNo