[delphi] wat doe ik hier verkeerd?

[Tom-my]

Hello,

Ik zit hier met een procedure die maar 3 van de 4 eigenlijk results teruggeeft.. wat doe ik fout?

code:

Procedure x
begin
  if (FindFirst(folder + '\'+ '*.mp3', faAnyFile, sr) = 0) then
  begin
    ADataSet.Close;
    ADataSet.open;
    vulmemdata(adataset,sr.Name,sr.Size);
    Findnext(sr);
    while (Findnext(sr) = 0) do
    begin
    vulmemdata(adataset,sr.Name,sr.Size);
    Findnext(sr);
    end;
    vulmemdata(adataset,sr.Name,sr.Size);
  end;

Dit is wat er staat in de directory:

code:

22-12-2001  09:04       3.278.848 d.mp3
23-12-2001  13:55             0 Nieuw - WordPad-document.mp3
23-12-2001  13:50             0 Nieu.mp3
05-12-2001  18:03         219.136 ziektebriefj.mp3

(Even wat verder info over deze procedure, hij tjekt op mp3s in een bepaalde folder en smijt deze in een geheugentabel, alleen ik krijg er maar 3 terwijl er 4 zijn, ik snap er geen kloteuh meer van )

[kvdveer]

code:

  begin
    ADataSet.Close;
    ADataSet.open;
    vulmemdata(adataset,sr.Name,sr.Size);
    Findnext(sr);
    while (Findnext(sr) = 0) do
    begin
    vulmemdata(adataset,sr.Name,sr.Size);
    end;
    vulmemdata(adataset,sr.Name,sr.Size);
  end;

Je doet per loop 2x Findnext (1x in de while en een keer in de loop zelf. probeer de bovendstaande code eens.

edit:
ik was lekker eerder!

[misfire]

Je hebt een paar FindNext teveel in je code staan. Als je de findnext boven de while loop weghaalt en binnen de while loop doet ie ze als het goed is wel allemaal, nu slaat de procedure de alle even bestanden over.

Damn, te traag, maar ik vind mijn reactie toch net iets duidelijker, dus ik laat em staan...

[Tom-my]

[buiging mode]

oooooooooow *&^*& natuurlijk DOM! Thanx iig hehe.

[/buiging mode]