Thema: Delphi schleife für listview

Einzelnen Beitrag anzeigen

Paul

Registriert seit: 5. Feb 2004
22 Beiträge
 
#1

schleife für listview

  Alt 6. Feb 2004, 00:06
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
  Mit Zitat antworten Zitat