Section courante

A propos

Section administrative du site

SYSGETMEM

Système: Demande la mémoire
Delphi/Kylix/Lazarus System

Syntaxe

Function SysGetMem(Size:Integer):Pointer;

Paramètres

Nom Description
Size Ce paramètre permet de demander la taille de la mémoire demandé en octet

Description

Cette procédure permet d'effectuer une allocation dynamique sur la mémoire global de tas.

Exemple

Voici quelques exemples typiques de l'utilisation de la fonction «GetMem» en Delphi :

  1. Program SysGetMemSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. Type
  7.  TInteger = Array[0..20] of Integer;
  8.      
  9. Var
  10.  P:^TInteger;
  11.  I:Integer;
  12.      
  13. BEGIN
  14.  P:=SysGetMem(20 * SizeOf(Integer));
  15.  If NIL <> P Then Begin
  16.   For I := 0 to 19 do P^[I] := 1000-(I * 10);
  17.   WriteLn('Valeur P^[15] = ',P^[15]);
  18.   SysFreeMem(P);
  19.  End 
  20.   Else 
  21.  Begin
  22.   WriteLn('Impossible d''allouer de la mémoire dynamiquement !');
  23.  End;
  24. END.

on obtiendra le résultat suivant :

Valeur p[15] = 850

Dernière mise à jour : Mercredi, le 18 février 2015