MEMLINES( )-Funktion

Artikel
04/01/2008

Gibt die Anzahl der Zeilen eines Memofeldes zurück.

MEMLINES(MemoFieldName)

Rückgabewerte

Numerisch

Parameter

MemoFieldName
Gibt den Namen des Memofeldes an. Befindet sich das Memofeld in einer Tabelle, die nicht im aktuellen Arbeitsbereich geöffnet ist, geben Sie vor dem Namen des Memofeldes den Alias der Tabelle und einen Punkt an.

Hinweise

Die Anzahl der Zeilen eines Memofeldes ist abhängigvon dem Wert, auf den SET MEMOWIDTH eingestellt ist.

Beispiel

Im folgenden Beispiel werden drei Datensätze der Tabelle employee gescannt und wird mit MEMLINES( ) ermittelt, ob das Memofeld notes Daten enthält bzw. wann Seitenumbrüche erfolgen sollen. Es wird entweder der im jeweiligen Datensatz gespeicherte Nachname (Feld last_name) zusammen mit den Anmerkungen (Memofeld notes, sofern dieses Daten enthält) oder eine Meldung, dass es für diesen Datensatz keine Anmerkungen (notes) gibt, angezeigt.

CLOSE DATABASES
CLEAR
SET TALK OFF
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee  && Open Employee table

SET MEMOWIDTH TO 65
gnLine = 1
GOTO 2
SCAN NEXT 3
   gnMemoSize = MEMLINES(notes)
   IF gnMemoSize = 0
      STORE .T. TO glNoMemo
      STORE 1 TO gnMemoSize
   ELSE
      STORE .F. TO glNoMemo
   ENDIF
   IF gnLine + gnMemoSize > 65
      EJECT
      gnLine = 1
   ENDIF
   @ gnLine,2 SAY 'Last Name: '+ last_name
   gnLine = gnLine +1
   @ gnLine ,2 SAY 'Notes: ' 
   ?? IIF(glNoMemo, 'No notes ',notes)
   gnLine = gnLine + gnMemoSize + 2
   IF gnLine > 24
      gnLine = 1
      CLEAR
   ENDIF
ENDSCAN

Siehe auch

Freigeben über