FillMemory-Funktion Diese Funktion füllt eine beliebige Variable oder ein Array mit einer bestimmten Anzahl eines beliebigen Wertes.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  291

Deklaration:

Declare Sub FillMemory Lib "kernel32.dll" _
  Alias "RtlFillMemory"  ( _
  Destination As Any, _
  ByVal Length As Long, _
  ByVal Fill As Byte)

Beschreibung:
Diese Funktion füllt eine beliebige Variable oder ein Array mit einer bestimmten Anzahl eines beliebigenWertes.

Parameter:

Destination	Erwartet eine Variable, die mit denWerten gefüllt werden soll. Wird eine Long- oder String-Variable übergeben, mussdiesem das Wort "ByVal" vorrausstehen.
Length	Erwartet die Länge der Bytes, die mit demWert in "Fill" überschrieben werden sollen.
Fill	Erwartet einen Wert, der die angegebeneMenge von Bytes überschreibt.

Rückgabewert:
keiner

Beispiel:

Private Declare Sub FillMemory Lib "kernel32.dll" _
  Alias "RtlFillMemory"  ( _
  Destination As Any, _
  ByVal Length As Long, _
  ByVal Fill As Byte)
Private Declare Sub ZeroMemory Lib "kernel32.dll" _
  Alias "RtlZeroMemory"  ( _
  Destination As Any, _
  ByVal Length As Long)

' Beispiel mit API-Funktionen
Private Sub Command1_Click()
  Dim TmpStr As String * 16
 
  ' Variable mit 16 Sechsen füllen
  FillMemory ByVal TmpStr, Len(TmpStr), Asc("6")
  MsgBox TmpStr, vbInformation, "Der inhalt von TmpStr"
 
  ' Inhalt der Variable löschen
  ZeroMemory ByVal TmpStr, Len(TmpStr)
  MsgBox TmpStr, vbInformation, "Der inhalt von TmpStr"
End Sub

' Beispiel mit VB Bordmitteln
Private Sub Command2_Click()
  Dim TmpStr As String * 16
 
  ' Variable mit 16 Sechsen füllen
  TmpStr = String(Len(TmpStr), "6")
  MsgBox TmpStr, vbInformation, "Der inhalt von TmpStr"
 
  ' Inhalt der Variable löschen
  TmpStr = ""
  MsgBox TmpStr, vbInformation, "Der inhalt von TmpStr"
End Sub