Daten ins stringgrid einlesen

[DeddyH]

- Ursprünglichen RowCount merken (das ist der Zeilenindex für die erste Nachricht aus Deiner Liste)
- RowCount entsprechend Anzahl Nachrichten erhöhen
- Nachrichten ab gemerktem Zeilenindex eintragen

So in etwa sollte es funktionieren. Ich hätte allerdings auch nicht unbedingt ein StringGrid genommen, bei anderen Komponenten fügt man einfach Items an und ist fertig damit.

[Natcree]

Danke ich habe es jetzt

Delphi-Quellcode:

    i:=Form3.ElTreeStringGrid1.RowCount;
    for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,i+index-1] := IdMessage1.From.Address;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[1,i+index-1] := IdMessage1.Subject;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[2,i+index-1]:= IdMessage1.body.GetText;
         IdPOP31.RetrieveHeader(index,idmessage1);
         Form3.eltreestringgrid1.Cells[3,i+index-1] := Datetostr(Idmessage1.Date);
         IdPOP31.RetrieveHeader(index,idmessage1);
         Form3.eltreestringgrid1.Cells[4,i+index-1] := IdMessage1.From.Name;
         {IdPOP31.Delete(index);}
       end;

[Sir Rufo]

Zitat von Natcree:

Danke ich habe es jetzt

Delphi-Quellcode:

    i:=Form3.ElTreeStringGrid1.RowCount;
    for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,i+index-1] := IdMessage1.From.Address;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[1,i+index-1] := IdMessage1.Subject;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[2,i+index-1] := IdMessage1.body.GetText;
         IdPOP31.RetrieveHeader(index,idmessage1);
         Form3.eltreestringgrid1.Cells[3,i+index-1] := Datetostr(Idmessage1.Date);
         IdPOP31.RetrieveHeader(index,idmessage1);
         Form3.eltreestringgrid1.Cells[4,i+index-1] := IdMessage1.From.Name;
         {IdPOP31.Delete(index);}
       end;

Warum glaube ich, dass du es doch noch nicht so wirklich verstanden hast ...

BTW: du könntest deinen Code erheblich kürzen und damit erheblich performanter gestalten:

Delphi-Quellcode:

    i:=Form3.ElTreeStringGrid1.RowCount;
    for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,i+index-1] := IdMessage1.From.Address;
         Form3.eltreestringgrid1.cells[1,i+index-1] := IdMessage1.Subject;
         Form3.eltreestringgrid1.cells[2,i+index-1] := IdMessage1.body.GetText;
         Form3.eltreestringgrid1.Cells[3,i+index-1] := Datetostr(Idmessage1.Date);
         Form3.eltreestringgrid1.Cells[4,i+index-1] := IdMessage1.From.Name;
         {IdPOP31.Delete(index);}
       end;

[Natcree]

Ja hast recht zum Kürzen komme ich meistens immer erst später bis alles läuft . Doppelt gemoppelt hält besser. Ja auf dem weg zum könner fehlt bei mir noch sehr sehr viel grins. Aber darüber können wir ja mal in 10 Jahren nochmal schreiben grins. Danke euch beiden