hi,
wie schon oben steht versuche ich die listview einträge (items) von einer ini datei zu laden. das speicher hab ich hingekriegt aber das laden funzt irgendwie nicht so wie ich will. der fehler ist das er alles in einer spalte laden, weiß einer warum??
hier erstmal der quellcode:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var a,b : integer;
begin
ListItem := ListView1.Items.Add;
with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
a := readinteger('index','count',0); //definiere ich schon beim speichern damit er weiß wieviel einträge er laden soll
label1.Caption := inttostr (a);
b := 1;
while b <= a do begin
with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do begin
try
listitem.Caption := readstring ('Erster Eintrag','Position' + inttostr(b),'');
listitem.SubItems.Add(readstring ('Zweiter Eintrag','Position' + inttostr(b),''));
listitem.SubItems.Add(''); // da ich 3 einträge habe und der 3 vorest mal leer sein soll
b := b +1;
finally
free;
end;
end;
end;
end;