Cannot assign a nil to a TListBoxStrings

[ademcicek]

Herkese Kolauy gelsin. ben bir dizi oluşturdum.aşağıdaki gibi.bir buton koydum. butona tıklayınca şöyle bir hata veriyor.
//////
"Cannot assign a nil to a TListBoxStrings"
////
bu hata neden çıkar bir bilgisi olan arkadaş varsa yardımcı olursa sevirim.
yada bu çıkan hata ne hatası.


var
Ihale_Durum_Liste: array[0..3, 0..14] of TStringList;
Ihale_Durumlari_Kod: array[0..3, 0..14] of Ihale_Durumlari_Kod_Tip_Kume;
Numara1, Numara2: Integer;
{ TForm1 }

procedure TForm1.DurumListesiAl;
var i, j: integer;
k: Ihale_Durumlari_Kod_Tip;
begin
Ihale_Durumlari_Kod[0, 0] := [IHTIYAC_LISTESI, TEKNIK_SARTLAR];
Ihale_Durumlari_Kod[0, 1] := [IHTIYAC_LISTESI, TEKNIK_SARTLAR, YAKLASIK_MALIYET];
for i := 0 to 3 do
for j := 0 to 14 do
begin
Ihale_Durum_Liste[i, j] := TStringList.Create;
for k := IHTIYAC_LISTESI to YAKLASIK_MALIYET do
if (k in Ihale_Durumlari_Kod[i, j]) then
Ihale_Durum_Liste[i, j].Add(Ihale_Durumlari_Yazi[ord(k)]);
end;
end;

procedure TForm1.NumarasiAl;
begin
Numara1 := StrToInt(Edit1.Text);
Numara2 := StrToInt(Edit2.Text);
if ((Numara1 <> -1) and (Numara2 <> -1)) then
begin
CheckListBox1.Items.Assign(Ihale_Durum_Liste[Numara1, Numara2]);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
NumarasiAl;
end;

end.

[freeman35]

cretae edilmemiş class ı atamaya çalışıyorsun.
code gönderirkende

Kod: Tümünü seç

 yazdığın mesajları formatlarsan çok daha fazla cevap alıcağına eminim
[code].....

[/code]

kolay gele

[ademcicek]

İlgilendiğiniz için çok teşekür ederim programın kırıldığı yer aşağıdaki kısım.nerenin create olmadığını anlayamadım. sizin gördüğünüz bir şey varsa yardımcı olursanız sevinirim.
kolay gelsin

if ((Numara1 <> -1) and (Numara2 <> -1)) then
begin
CheckListBox1.Items.Assign(Ihale_Durum_Liste[Numara1, Numara2]);
end;
end;

[gkimirti]

Ihale_Durum_Liste[Numara1, Numara2] bu ne ise create etmeden atama yapıyorusn muhtemelen