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 ^^