Entwickler-Ecke

Internet / Netzwerk - E-Mails in ListView eintragen


Girgl - Di 15.06.04 17:06
Titel: E-Mails in ListView eintragen
Servus,ich hab ein Problem wenn ich vorhandene E-Mails in ein TListView einfügen will und zwar zeigt er mir anstelle der anderen Nachricht nochmal die gleiche an.
Das ganze versuch ich mit ner for-schleife zu lösen,aber irgendwie klappts net ganz.Wenn ichs einzeln versuchen will dann kommt die richtige e-mail aber so irgendwie net

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
procedure TfmMain.ToolButton3Click(Sender: TObject);
var i:Byte;
    Item:TListItem;
begin
 nMessages:=Pop.CheckMessages;
 MsgSize:=Pop.RetrieveMailBoxSize div 1024;
 ShowMessage(IntToStr(nMessages));
 For i:=1 to nMessages do
  begin
   Pop.RetrieveHeader(i,idMessage);
   Item:=ListView.Items.Add;
   Item.Caption:=idMessage.From.Text;
 //  Item.SubItems.Add(idMessage.Subject);
 //  Item.SubItems.Add(IntToStr(Pop.RetrieveMsgSize(2)));
 //  Item.SubItems.Add(DateToStr(idMessage.Date));
  end;
end;


LCS - Mi 16.06.04 10:54
Hi
da fehlt bloss ein idMessage.Clear als erste Anweisung in der Schleife dann funktioniert das einwandfrei.

Gruss Lothar


Girgl - Mi 16.06.04 16:19
danke,jetz gehts


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!