Hente ind i ListBox, fra fil

Noget i den her stil? fil.ini skal ligge i samme katalog som .exe filen,
og kan f.eks. indeholde:

[SvendBendt]
name=Søren Krakamut
email=svend@bent.dk
[SørenSørensen]
name=Søren Sørensen
email=soren@bbtt.dk

Husk også lige at sætte eventprocedurerne korrekt op. Du kan evt. få en zip fil
tilsendt.

unit ini1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  inifiles, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  type
    indgang= record
      titel: string;
      navn: string;
      email: string
    end;
  var
    tabel: array [1..100] of indgang;
    antal: integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  t: TIniFile;
  sections: TStringList;
  i: integer;
begin
  t:=TIniFile.Create(\'./fil.ini\');
  sections:=TStringList.Create;
  t.readSections(sections);
  antal:=0;
  for i:=0 to sections.count-1 do
  begin
    inc(antal);
    tabel[antal].titel:=sections.strings[i];
    tabel[antal].navn:=t.readstring(sections.strings[i],\'name\',\'\');
    tabel[antal].email:=t.readstring(sections.strings[i],\'email\',\'\');
    listbox1.Items.add(sections.strings[i]);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  edit1.text:=tabel[listbox1.itemindex+1].navn;
  edit2.text:=tabel[listbox1.itemindex+1].email;
end;

end.

erikjackobsen -> Der sker intet!

\"Husk også lige at sætte eventprocedurerne korrekt op\"

Det skulle være gjort...:

unit LynLogViewer3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, ImgList, inifiles;

type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    Label12: TLabel;
    Edit3: TEdit;
    procedure ToolButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

type
    indgang= record
      titel: string;
      navn: string;
      email: string
    end;
  var
    tabel: array [1..100] of indgang;
    antal: integer;

implementation

{$R *.DFM}

procedure TForm3.ToolButton2Click(Sender: TObject);
begin
Edit1.Text := \'\';
Edit2.Text := \'\';
Edit3.Text := \'\';
Edit4.Text := \'\';
Edit5.Text := \'\';
Edit6.Text := \'\';
Edit7.Text := \'\';
Edit8.Text := \'\';
Memo1.Text := \'\';
Memo2.Text := \'\';
ToolButton2.Enabled := False;
ToolButton3.Enabled := True;
end;

procedure TForm3.FormCreate(Sender: TObject);
var
  t: TIniFile;
  sections: TStringList;
  i: integer;
begin
  t:=TIniFile.Create(\'./fil.ini\');
  sections:=TStringList.Create;
  t.readSections(sections);
  antal:=0;
  for i:=0 to sections.count-1 do
  begin
    inc(antal);
    tabel[antal].titel:=sections.strings[i];
    tabel[antal].navn:=t.readstring(sections.strings[i],\'name\',\'\');
    tabel[antal].email:=t.readstring(sections.strings[i],\'email\',\'\');
    listbox1.Items.add(sections.strings[i]);
  end;

end;

procedure TForm3.ListBox1Click(Sender: TObject);
begin
edit1.text:=tabel[listbox1.itemindex+1].navn;
edit2.text:=tabel[listbox1.itemindex+1].email;
end;

end.

Sådan ser det ud!

Enten er fil.ini tom eller ligger et andet sted. Eller også
bliver dine event-procedurer ikke kaldt. Sæt lige en
  showmessage(\'hej\');
nogle steder, så du kan se om de bliver kaldt når du
forventer det.

Får en :
\"List index out of bounds\" fejl!?

Jo, ja, men det er jo svært at se hvad du har gjort, som jeg ikke har
gjort.

Ja, ved hvad du mener...

Du må da gerne bamse en zip afsted hvis du vil!?

stalle@get2net.dk

:-)

[Warning] LynLogViewer3.pas(97): FOR-Loop variable \'i\' may be undefined after loop

siger den!!

Du får lige hele Delphi-projektet, som jeg har det. Det skal helst køre
umiddelbart. Pak det ud i et separat katalog (Det er delphi 3 men det skal
heller ikke give problemer)