schleife für listview

[Paul]

hi,

hoffe das ich hier richtig bin in der rubrik :-)

ich versuch schon seit 2 tagen irgendwie ne schleife hinzubekommen aber mir will nix einfallen

Code:

var i: integer; 
begin 
If OpenDialog1.execute then 
begin 
Edit1.Clear; 
Edit2.Clear; 
Edit3.Clear; 
Edit4.Clear; 
Edit5.Clear; 
MyIni := TiniFile.Create(GetCurrentDir + '\TDP.ini'); 
Edit1.Text := MyIni.ReadString('FTP','IP','N/A'); 
Edit2.Text := MyIni.ReadString('FTP','user','N/A'); 
Edit3.Text := MyIni.ReadString('FTP','pass','N/A'); 
Edit4.Text := MyIni.ReadString('FTP','Path','N/A'); 
Edit5.Text := MyIni.ReadString('FTP','Port','N/A'); 

begin 
ListView1.Items.Clear; 
listitem := listview1.Items.Add; 
listitem.Caption := MyIni.ReadString('Daten','1','N/A');             //soll so lange ausgelesen werden bis keine mehr da sind 
listitem.SubItems.Add(MyIni.ReadString('Daten','1.1','N/A'));   // nur in die erste und 2 spalte, zeilen sind offen kommt auf das auslesen drauf an 
end; 
end; 
end;

wäre über jede hilfe dankbar, thx

mfg Paul

[Mario]

Das Clear kann weg...

Und wo willst Du hier eine Schleife haben?

[MrKnogge]

Ob das Ende einer Datei erreicht ist, kannst du mit eof (EndOfFile) herausfinden

[MrKnogge]

Vielleicht hilft dir das noch weiter:

Delphi-Quellcode:

Die Namen aller Abschnitte:
ini.ReadSections(ListBox1.items);

Alle Schlüssel zu bestimmten Abschnitten:
ini.ReadSection('Section1',ListBox1.Items);

Alle Werte eines Abschnittes:
ini.ReadSectionValues('Section1', ListBox1.Items);

[s14]

BTW, ich würde auch auf GetCurrentDir verzichten und stattdessen ExtractfilePath(ParamStr(0)) verwenden.
Ich hatte schon mal Probleme damit :wink: