Einzelnen Beitrag anzeigen

Wadim

Registriert seit: 31. Aug 2003
185 Beiträge
 
#1

Listview einträge laden funzt nicht ganz!!

  Alt 28. Jan 2004, 19:46
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;
  Mit Zitat antworten Zitat