Frage zu FindFirst/FindNext

[MacGuyver]

Delphi-Quellcode:

var
  lEc    : Integer;
  lDinfo : TSearchRec;


lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
  if lDinfo.Name[1] <> '.' then
  begin

    //Und hier der gewünschte Kram...

  end;
  lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);

Einfach die erste Stelle des Namens abfragen.

Stefan