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:

zusammenfalten · markieren

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;

Hallo Wadim,

markieren

Code:

 

procedure TForm1.Button3Click(Sender: TObject);
var a,b : integer;
begin

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
      [color=red][b]ListItem := ListView1.Items.Add;[/b] [/color]
      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;

Ich denke, Du mußt für jeden neuen Eintrag ein neues Listitem "adden".

Warum schreibst Du 2x

with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do

huhuu - thx es geht, warum ich nur nicht selbst drauf gekommen bin

ich schreibe dies 2 x weil wenn ich es nur einmal schreibe dann sagt er mir das readstring ein undefinierter bezeichern ist - warum weiß ich nicht??

weißt du es vielleicht??

Hallo Wadim,

markieren

Code:

with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
[color=red][b]BEGIN[/b][/color] [color=darkblue]// hast Du vergessen :-)[/color]
  a := readinteger('index','count',0); //definiere ich schon beim speichern damit er weiß ...
  label1.Caption := inttostr (a);
  b := 1;
  while b <= a do begin
...

Zitat von APP:

Hallo Wadim,

markieren

Code:

with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
[color=red][b]BEGIN[/b][/color] [color=darkblue]// hast Du vergessen :-)[/color]
  a := readinteger('index','count',0); //definiere ich schon beim speichern damit er weiß ...
  label1.Caption := inttostr (a);
  b := 1;
  while b <= a do begin
...

hmmm - er startet zwar aber kratzt beim laden ab

aber du hast recht - hab dort wirklich ein begin vergessen

Hallo Wadim,
nachdem ich noch einemal nachgelesen habe, meine ich

markieren

Code:

with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
[color=red][b]TRY[/b][/color] [color=darkblue]// IST BESSER [/color]
  a := readinteger('index','count',0); //definiere ich schon beim speichern damit er weiß ...
  label1.Caption := inttostr (a);
  b := 1;
  while b <= a do begin
...

Du solltest unbedingt wegen dem Create einen Ressourcenschutzblock (mit "Try/Except/End" wie Du es beim 2. With ja richtig machstest) statt einem Begin/End verwenden.

Zitat von APP:

Hallo Wadim,
nachdem ich noch einemal nachgelesen habe, meine ich

markieren

Code:

with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
[color=red][b]TRY[/b][/color] [color=darkblue]// IST BESSER [/color]
  a := readinteger('index','count',0); //definiere ich schon beim speichern damit er weiß ...
  label1.Caption := inttostr (a);
  b := 1;
  while b <= a do begin
...

Du solltest unbedingt wegen dem Create einen Ressourcenschutzblock (mit "Try/Except/End" wie Du es beim 2. With ja richtig machstest) statt einem Begin/End verwenden.

joah - danke für die hilfe

mfg wadim