Dosyadan stringliste atıp istenen satırı okuma

[NewMember]

Kod: Tümünü seç

procedure TFrmAna.kll1Click(Sender: TObject);
var
  Listem : TStringList;
begin
Listem.Create;
Listem.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'Ayarlar\MyOptions.local');
edit1.Text:=Listem.Strings[22];
end;

//Not 22 numaralı satır var.

Arkadaşlar bu kodun neresi hatalı acaba. Access violation veriyor.

[mrmarman]

- Create tanımı aşağıdaki şekilde olmalıydı.

Kod: Tümünü seç

  Listem := TStringList.Create;

Kod: Tümünü seç

procedure TFrmAna.kll1Click(Sender: TObject); 
var
  Listem : TStringList;
begin
  Listem := TStringList.Create;
  Listem.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'Ayarlar\MyOptions.local');
  edit1.Text:=Listem.Strings[22];
end;

[NewMember]

Sabahtan beri bu koda bakıyorum ama ben bunu nasıl göremedim.Access violation olmayan bir nesneye ulaşmaya çalışılınca olur diyorum kendi kendime ama yinede olmayan bir nesnenin bir özelliğine ulaşmaya çalıştığımın arkına varamamışım.
22 nolu satır var ama ortada o satırlara sahip bir liste yokmuş meğer
Üstadım teşekkürler.
Mola verme zamanı çoktan gelmiş.