Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.12.2010, 14:03
vikk vikk вне форума
Начинающий
 
Регистрация: 01.10.2010
Сообщения: 132
Репутация: 10
По умолчанию Const Пользовательского типа

Никак не могу найти информацию о том, как инициализировать переменную типа массива из records пользовательского типа. А это вообще можно делать? Знаю, что массивы можно инициализировать, если они const. А record можно инициализировать? И если да, то какой там будет синтаксис?
У меня есть свой MyRec = record (int,int, int, string). Определяю array of MyRec и хочу сразу его инициализировать(он не будет меняться в процессе работы программы, поэтому логично сделать его const). Прошу помощи у опытных товарисчей!!!
Ответить с цитированием
  #2  
Старый 02.12.2010, 15:53
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Ну инициализировать дин. массив можно функцией SetLength(mas, len);
А если это константы, то можно делать как-то так:
Код:
type
  x=record
    y,a,b: integer;
  end;

const
  myX: x = (y: 5; a: 6; b:7);
Надеюсь понял.
__________________
Помогаю за Спасибо
Ответить с цитированием
  #3  
Старый 02.12.2010, 17:03
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  lost = record
    id: Integer;
    nick: String;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  alost: array [0..1] of lost = ((id: 1; nick: 'JACK'), (id: 2; nick: 'LOCK'));

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Add(IntToStr(alost[0].id));
  Memo1.Lines.Add(alost[0].nick);
  Memo1.Lines.Add(IntToStr(alost[1].id));
  Memo1.Lines.Add(alost[1].nick);
end;

end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:50.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025