Daten ins stringgrid einlesen

[Natcree]

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

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???

[Sir Rufo]

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

[Klaus01]

Zitat:

Zitat von Natcree (Beitrag 1209322)

Es gibt eine Fehlermeldung.

Ja ..?

Grüße
Klaus

[Sir Rufo]

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

[Natcree]

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

[Sir Rufo]

Zitat:

Zitat von Natcree (Beitrag 1209328)

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?

[Natcree]

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

[Sir Rufo]

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

Delphi-Quellcode:

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

[DeddyH]

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

[Natcree]

Da die nachrichtenliste dir var ist die mir die anzahl der zeilen gibt die ich brauche müsste ich ja den rowcount um diese anzahl vergrössern.

Richtig?

Dann müsste ich ihm anschliessend sagen das er aber der ersten leere Zeile die Daten über nehmen soll richtig??

Delphi-Quellcode:

Form3.ElTreeStringGrid1.RowCount:= Form3.ElTreeStringGrid1.RowCount+nachrichtenliste;