rückgabewerte von Findnext....

[glkgereon]

hi

ich weiss, ich sollte in der delphi hilfe gucken, aber die erscheint mir an der stelle etwas komisch:

Zitat:

FindNext liefert den nächsten Eintrag, der mit dem Dateinamen und den Attributen übereinstimmt, die zuvor im Aufruf von FindFirst angegeben wurden. Der gesuchte Eintrag muss einer der an FindFirst übergebenen Einträge sein. Bei Erfolg gibt FileSetDate den Wert Null zurück, ansonsten einen Fehlercode. Ansonsten wird ein Fehlercode zurückgeliefert.

an der entscheidenden Stelle kommt auf einmal eine völlig andere methode ins spiel

ich suche den rückgabewert, den es bei misserfolg zurückgibt...

0 ist es nicht, 1 auch nicht

misserfolg heisst, es ist keine weitere datei da

kann mir da wer helfen?

[SirThornberry]

0 wird zurück gegeben falls eine weitere datei gefunden wird, ansonsten ein wert ungleich 0 (man kann also keinen wert angeben auf den geprüft werden soll sondern nur auf ungleich 0 prüfen).

[glkgereon]

ich bin ein idiot.... :wall:

hätt man probieren können(bzw. müssen)

thx :thumb: :thumb: :thumb:

[nailor]

es ist "<> 0"

siehe delphi hilfe-beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;
  if CheckBox1.Checked then
    FileAttrs := faReadOnly
  else
    FileAttrs := 0;
  if CheckBox2.Checked then
    FileAttrs := FileAttrs + faHidden;
  if CheckBox3.Checked then
    FileAttrs := FileAttrs + faSysFile;
  if CheckBox4.Checked then
    FileAttrs := FileAttrs + faVolumeID;
  if CheckBox5.Checked then

    FileAttrs := FileAttrs + faDirectory;
  if CheckBox6.Checked then
    FileAttrs := FileAttrs + faArchive;
  if CheckBox7.Checked then

    FileAttrs := FileAttrs + faAnyFile;

  with StringGrid1 do
  begin
    RowCount := 0;

    if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then

    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

edit: mal wieder zu lahm