ListBox .. tralala

[D4N73]

Hiho...

also ich hab da folgendes Problem...

1.)
Ich möchte den ersten Eintrag aus einer ListBox in eine IniFile saven...

ich hab das so probiert..
...
...
Ini.WriteString('BlaBla','Bla', IntToStr(Listbox1.ItemIndex[0]);
<- funzt so aber net :mauer:
...

2.)
Wie kann ich jedem Eintrag der sich in der ListBox befindet eine Zahl zuweisen und
die Zahl mit dem Eintrag dann in der Ini saven. (Array ? Wenn ja Wie?) ;)


thx ...

[DerWolf]

Zum Speichern:
procedure TForm1.Button2Click(Sender: TObject);
var ini: TIniFile;
i: integer;
begin
ini := TIniFile.Create('./test.ini');
ini.WriteInteger('Section', 'Count', ListBox1.Count);
for i := 0 to ListBox1.Count-1 do
ini.WriteString('Section', IntToStr(i), ListBox1.Items[i]);
ini.Free;
end;

zum einlesen:
procedure TForm1.Button3Click(Sender: TObject);
var ini: TIniFile;
i, count: Integer;
begin
ini := TIniFile.Create('./test.ini');
count := ini.ReadInteger('Section', 'Count', 0);
for i := 0 to Count do
ListBox1.Items.add(ini.ReadString('Section', IntToStr(i), ''));
ini.Free;
end;

Musst nur die komponentennamen noch an deine anpassen :) dann hasst dus so wie du es willst