Rufe emails von einem Server ab und zeige diese über ein Stringgrid an. wenn ich nun neue Emails abrufe dann soll er diese hinzufügen. Klappt aber nicht. Es gibt eine Fehlermeldung.

Die neuen Nachrichten sollen ab der letzten zeile miteingetragen werden.

hier mal der Code zum einlesen

zusammenfalten · markieren

Delphi-Quellcode:

Nachrichtenliste := 0 ;
if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then
   begin
     for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,index-1] := IdMessage1.From.Address;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[1,index-1] := IdMessage1.Subject;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[2,index-1] := IdMessage1.body.GetText;
         IdPOP31.RetrieveHeader(index,idmessage1);
         Form3.eltreestringgrid1.Cells[3,index-1] := Datetostr(Idmessage1.Date);
         IdPOP31.RetrieveHeader(index,idmessage1);
         Form3.eltreestringgrid1.Cells[4,index-1] := IdMessage1.From.Name;
         IdPOP31.Delete(index);
       end;

Hat jemand einen Rat???

Es wäre zuckersüß von dir wenn du uns zumindest die Fehlermeldung zeigen würdest

Zitat von Natcree:

Es gibt eine Fehlermeldung.

Ja ..?

Grüße
Klaus

Und schau dir auch mal diesen Beitrag an
http://www.delphipraxis.net/1209292-post5.html

kommt jetzt keine Fehler Meldung mehr er überschreibt die vorhandenen emails. Und nun?

Zitat von Natcree:

kommt jetzt keine Fehler Meldung mehr er überschreibt die vorhandenen emails. Und nun?

wissen wir auch endlich was nicht funktioniert.

Wie teilst du dem StringGrid denn mit, dass du nun x Zeilen brauchst?
Wie ermittelst du, in welche Zeile du schreiben musst?

Eigendlich übernimmt er ja nur den Index der Nachrichten liste muss ich hier jetzt noch ne 2. Schleife fürs Stringgrid einbauen?

Du musst dem StringGrid mitteilen, wieviele Zeilen du denn haben möchtest TStringGrid.RowCount und in welche Zeile die Daten eingetragen werden sollen. Das passiert alles nicht automatisch.

Also, überlege dir, wie du an die Zeilenanzahl kommst und passe diese entsprechend an.
Dann überlege dir, wie du an den Zeilenindex kommst, wo du die neuen Daten eintragen willst und trage die Daten dort ein.

Und wenn du es richtig machen möchtest, dann erzeuge dir eine Klasse, die die Informationen zur Mail speichert und hängst diese einfach an eine TObjectList .

Zur Aktualisierung des StringGrids schreibst du dir einfach eine Routine, die diese Liste in einem StringGrid anzeigt

markieren

Delphi-Quellcode:

procedure ShowListInStringGrid( AMailInfoList : TObjectList; AStringGrid : TStringGrid );
begin
  // hier jetzt das Geraffel für die Anzeige der Daten
end;

TStringGrid.RowCount, die Zeilen müssen ja erst einmal da sein, bevor man sie befüllen kann.