Guten Abend Leute,
Ich habe Folgenden Code der mir die Newsgroups in einer Listview anzeigen soll aber leider sehe Ich keine Eintraege erscheinen.
Ich sehe dass die Listview gefuellt wird aber angezeigt wird nichts.
Kann mir da einer bitte weiter helfen?
Waere sehr nett.
Listview.ViewStyle steht auf vsReport.
Delphi-Quellcode:
procedure TForm1.GroupsZeigenClick(Sender: TObject);
Var
tsl: TStringList;
tli: TListItem;
Hi,Lo,i: Integer;
NewsGroup,Stat: String;
begin
grps.Clear; // ListView für die NewsGroups
Application.ProcessMessages;
tsl:=TStringList.Create;
idNNTP1.GetNewsgroupList(tsl);
For i:=0 to tsl.Count-1 do begin
tli:=grps.Items.Add;
idNNTP1.ParseNewsGroup(tsl[i],NewsGroup,Hi,Lo,Stat);
tli.Caption:=NewsGroup;
if (Lo>=Hi) then
tli.SubItems.Add('0')
else
tli.SubItems.Add(IntToStr(Hi-Lo));
if Length(LowerCase(Stat[1])) > 0 then
case Stat[1] of
'y':tli.SubItems.Add('R/W');
'n':tli.SubItems.Add('RO');
'm':tli.SubItems.Add('MOD');
end;
end;
tsl.free;
end;
Gruss Lucius.