Dateien einlesen

[himitsu]

Nicht nur ODER oder EXOTISCH,

denn sonst würde man den ersten Fund überspringen.

Zitat:

Delphi-Quellcode:

FindFirst...
while FindNext do
begin
  // verarbeiten
end;

Delphi-Quellcode:

if FindFirst... then
begin
  // verarbeiten ;)
  while FindNext... do
  begin
    // verarbeiten
  end;
  FindClose...;
end;

Wobei am Ende natürlich Beides ginge.

Delphi-Quellcode:

if FindFirst... then
begin
  repeat
    // verarbeiten
  until FindNext... <> 0;
  FindClose...;
end;