Советы по Delphi


Пример массива констант (Array of Const) I


"Array of const" это массив переменных, декларированных как константы. Непосредственно они представлены структурой TVarRec. Скобки просто ограничивают массив. Массив констант дает вам возможность передавать процедуре переменное количество параметров type-safe (безопасным) способом. Вот пример:

typeTVarRec = recordData: record case Integer of0: (L: LongInt);1: (B: Boolean);2: (C: Char);3: (E: ^Extended);4: (S: ^String);5: (P: Pointer);6: (X: PChar);7: (O: TObject);end;Tag: Byte;Stuff: array[0..2] of Byte;end;
function PtrToStr(P: Pointer): String;constHexChar: array[0..15] of Char = '0123456789ABCDEF';
function HexByte(B: Byte): String;beginResult := HexChar[B shr 4] + HexChar[B and 15];end;
function HexWord(W: Word): String;beginResult := HexByte(Hi(W)) + HexByte(Lo(W));end;
beginResult := HexWord(HiWord(LongInt(P))) + ':' + HexWord(LoWord(LongInt(P)));end;
procedure Display(X: array of const);varI: Integer;beginfor I := 0 to High(X) do with TVarRec(X[I]), Data dobegincase Tag of0: ShowMessage('Integer: ' + IntToStr(L));1: if B then ShowMessage('Boolean: True')else ShowMessage('Boolean: False');2: ShowMessage('Char: ' + C);3: ShowMessage('Float: ' + FloatToStr(E^));4: ShowMessage('String: ' + S^);5: ShowMessage('Pointer: ' + PtrToStr(P));6: ShowMessage('PChar: ' + StrPas(X));7: ShowMessage('Object: ' + O.ClassName);end;end;end;
procedure TForm1.Button1Click(Sender: TObject);varP: array[0..5] of Char;
beginP := 'Привет'#0;Display([-12345678, True, 'A', 1.2345, 'ABC', Ptr($1234, $5678), P,Form1]);end;

-Steve [000544]




Начало  Назад  Вперед



Книжный магазин