Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 23 de maio de 2014

DELPHI - Constante Array - Array Const

Reações: 


// Retirado do site: http://delphi.about.com/od/adptips2006/qt/const_array.htm 
type
    TShopItem = record
      Name : string;
      Price : currency;
    end;

 const
    Days : array[0..6] of string =
    (
      'Sun', 'Mon', 'Tue', 'Wed',
      'Thu', 'Fri', 'Sat'
    ) ;
 
    CursorMode : array[boolean] of TCursor =
    (
      crHourGlass, crSQLWait
    ) ;
 
    Items : array[1..3] of TShopItem =
    (
      (Name : 'Clock'; Price : 20.99),
      (Name : 'Pencil'; Price : 15.75),
      (Name : 'Board'; Price : 42.96)
    ) ; 

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer