Klasy i tablice... :(

Tak na brudno (aby zobaczyć czy działa) coś takiego:

w implementation po end tmainform:
TRecord = record
Data : TDateTime;
Tresc : String;
end;

var
Form1: TForm1;
Przypomnij : array of TRecord;

procedure Tmainform.tmPrzypomnijTimer(Sender: TObject);
begin
SetLength(Przypomnij, 1);
Przypomnij[0].Data := Now;
Przypomnij[0].Tresc := 'Tresc...';
Przypomnij[1].Data := Now;
Przypomnij[1].Tresc := 'To tresc...';
end;

Hymm... Co Wy na to? (otwiera mi sie debugger CPU)

SetLength(Przypomnij, 2) - skoro masz 2 elementy

SetLength(Przypomnij, 1);

Ustawiasz ilośc elementów w tablicy (1), odwołujesz sie do dwóch i dziwisz sie, że odpala sie debugger?

// Sharing violation.

// Na następny raz:

setlength - ustawia liczbę elementów w tablicy dynamicznej
Indeksowanie tablicy dynamicznej (array of sth - bez [zakres]) zaczyna się od zera, a kończy na length(tablica)-1. Prawie jak w c.