Kod: Tümünü seç
procedure TForm1.FormShow(Sender: TObject);
var
yedek : TIniFile;
ListCount : TStringList;
i : Integer;
begin
ListView1.Clear;
ListCount := TStringList.Create;
yedek := TIniFile.Create(ProgramPath+'YEDEKLER.INI');
yedek.ReadSections(ListCount);
for i:= 0 to ListCount.Count -1 do
begin
with ListView1.Items.Insert(0) do
begin
Caption := yedek.ReadString(IntToStr(i),'Tarih','N/A');
subitems.Add(yedek.ReadString(IntToStr(i),'Path','N/A'));
subitems.Add(yedek.ReadString(IntToStr(i),'Görev','N/A'));
end;
Application.ProcessMessages;
end;
yedek.Free;
ListCount.Free;
Application.ProcessMessages;
end;