ListBox mit .ini und noch einiges.

[xShadowBoZz]

Zitat von marabu:

Hallo Andreas,

vielleicht suchst du das hier:

Delphi-Quellcode:

procedure TDemoForm.ListBoxClick(Sender: TObject);
var
  fn: TFileName;
begin
  with Sender as TListBox do
    if ItemIndex > -1 then
    begin
      fn := ini.ReadString(Items[ItemIndex], 'PATH', '');
      Memo.Items.LoadFromFile(fn);
    end;
end;

Freundliche Grüße

ok thx trotzdem, habs vor ein paar stunden selber hingekriegt als niemand geschrieben hat xD
ich glaub ich habs evtl. ein bisschen komplizierter aber es funktioniert.
allerdings kommen manchma error wie zb. wenn iche min. 1 eintrag in der listbox habe und ich dann ins freie klicke, kommt fehler meldung 'Listenindex überschreitet das maximum -1', wird bei dir wahrscheinlich nicht der fall sein.
und auserdem kommt bei mir beim close button ein error o.O muss aber wohl an was anderem liegen.

also hier mein code ^^

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var ini:TInifile;
begin
  Ini:=TInifile.Create('.\db\data.ini');
  Memo2.Lines.LoadFromFile(Ini.ReadString(ListBox1.Items.Strings[Listbox1.ItemIndex],'Path',''));
end;

also die zeile ist ja richtig bei mir geworden zumindestens ist es das gleiche wie bei dir.
Memo2.Lines.LoadFromFile(Ini.ReadString(ListBox1.I tems.Strings[Listbox1.ItemIndex],'Path',''));

und soviel ich weiß oder denk wird mit

Delphi-Quellcode:

  with Sender as TListBox do
    if ItemIndex > -1 then

der listenindex error entfernt. richtig?

@Blackheart:
ehm ka, ich glaub der ganze thread erklärts dir schon irgendwie ^^