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