Record als Const?

[Kedariodakon]

Kann ich ein Record irgendwie als const definieren? :gruebel:

Das ist mein record oder besser Delphis Record :zwinker:

Delphi-Quellcode:

type
  TFormatSettings = record
    CurrencyFormat: Byte;
    NegCurrFormat: Byte;
    ThousandSeparator: Char;
    DecimalSeparator: Char;
    CurrencyDecimals: Byte;
    DateSeparator: Char;
    TimeSeparator: Char;
    ListSeparator: Char;
    CurrencyString: string;
    ShortDateFormat: string;
    LongDateFormat: string;
    TimeAMString: string;
    TimePMString: string;
    ShortTimeFormat: string;
    LongTimeFormat: string;

    ShortMonthNames: array[1..12] of string;
    LongMonthNames: array[1..12] of string;
    ShortDayNames: array[1..7] of string;
    LongDayNames: array[1..7] of string;
    TwoDigitYearCenturyWindow: Word;
  end;

Nun will ich ne Konstante MyFS mit festen Werten haben...
Tut das gehn? :?:


Bye

[Sharky]

Hai Kadariodokon,

schaue mal in der Hilfe nach Record-Konstanten

Delphi-Quellcode:

type TmyTest = Record
       blubb : String;
       foo   : Integer;
     end;

const
  myTest : TMyTest = (blubb:'hallo';foo:23);

[tommie-lie]

Delphi-Quellcode:

MyFS: TFormatSettings = (
  CurrencyFormat: 1;
  NegCurrFormat: 2;
  ThousandSeparator: ' '
  // ...);

Dabei müssen nicht alle Felder auch vorbelegt werden.


Edit: Och menno, diese doofen Moderatoren, die kommen immer als erstes dran... http://dpchat.dpexperte.de/smileys/icon_mecker.gif

[Kedariodakon]

Schon gefunden ^^
Bin heut zu pöd zum suchen...

Delphi-Quellcode:

Const
  MyFS: TFormatSettings = (
            CurrencyFormat:            3;
            NegCurrFormat:             8;
            ThousandSeparator:         '.';
            DecimalSeparator:          ',';
            CurrencyDecimals:          2;
            DateSeparator:             '.';
            TimeSeparator:             ':';
            ListSeparator:             ';';
            CurrencyString:            '';
            ShortDateFormat:           '';
            LongDateFormat:            '';
            TimeAMString:              '';
            TimePMString:              '';
            ShortTimeFormat:           '';
            LongTimeFormat:            '';
            ShortMonthNames:           ( '', '', '', '', '', '', '', '', '', '', '', '');
            LongMonthNames:            ( '', '', '', '', '', '', '', '', '', '', '', '');
            ShortDayNames:             ( '', '', '', '', '', '', '' );
            LongDayNames:              ( '', '', '', '', '', '', '' );
            TwoDigitYearCenturyWindow: 2 );

Bye

[Robert Marquardt]

Zitat:

Zitat von Kedariodakon

Bin heut zu pöd zum suchen...

Das mit der Rechtschreibung scheint auch nicht zu gehen :-)