Заполнение массива

[KaDima28]

Пролазил все уроки по массивам. Но так и не где не нашел.

Как заполнить массив словами, при этом совсем разными.

Вот код всей программы (на время и дату не обращайте внимание, она работает):

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var mas:array of string;
var d1,d2,d3,d4,d5,d6,d7:string;

procedure TForm1.Timer1Timer(Sender: TObject);
var num:integer;

begin
Label1.Caption:=Copy(TimeToStr(Time),1,5);
Label2.Caption:=DateToStr(date);
num:=DayOfWeek(now);
Label3.Caption:=mas[num];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mas[0]:='Воскресение'; //Вот эти строки ему не нравятся
mas[1]:='Понедельник';
mas[2]:='Вторник';
mas[3]:='Среда';
mas[4]:='Четверг';
mas[5]:='Пятница';
mas[6]:='Суббота';


end;

end.

Я так понял вопрос нубский?

[Stilet]

Ему не эти строки не нравятся а то что массив у тебя не определен.
SetLength(mas,7) перед заполнением укажи, чтоб динамический массив инициализировать и распределить ему память.
А лучше в текстовый файл строки засунуть и потом считывать.

[KaDima28]

Спасибо, я знал что вопрос нубский.

[Stilet]

Пожалуйста )