сортировка в listview

[HTTqp]

помогите подправить код чтобы выводилось сначала папки потом файлы

procedure TForm1.UpdateFile;
var
Handle:THandle;
FindData:TWin32FindData;
temp_ext,result,Temp_Cap:String;
Attr:Integer;
dDir:string;
begin
SetCurrentDir(dDir);
ListView1.Clear;
dDir:='c:\';
Handle:=FindFirstFile(PChar(dDir+'*'),FindData);
if Handle<>INVALID_HANDLE_VALUE then
 try
  while FindNextFile(Handle,FindData) do
  begin
   with ListView1.Items.Add do
    begin
    Temp_Cap:=ExtractFileName(FindData.cFileName);
    if (FindData.dwFileAttributes and faDirectory)<>faDirectory then
    Caption:=(copy(Temp_Cap,1,pos('.',Temp_Cap)-1)) else Caption:=Temp_Cap;
    temp_ext:=ExtractFileExt(FindData.cFileName);
    if (FindData.dwFileAttributes and faDirectory)=faDirectory then
    SubItems.Add('[Папка]')
    else
    SubItems.Add(Copy(temp_ext,2,Length(temp_ext)-1));
    if (FindData.dwFileAttributes and faDirectory)<>faDirectory then
    SubItems.Add(FloatToStrF(FindData.nFileSizeHigh+FindData.nFileSizeLow,ffNumber,18,0)) else SubItems.Add('');
    SubItems.Add(FileTimeToDateTimeStr(FindData.ftLastWriteTime));
    Result:='';
    if (FILE_ATTRIBUTE_ARCHIVE and FindData.dwFileAttributes)>0 then Result:=Result+'a' else Result:=Result+'-';
    if (FILE_ATTRIBUTE_READONLY and FindData.dwFileAttributes)>0 then Result:=Result+'r' else Result:=Result+'-';
    if (FILE_ATTRIBUTE_HIDDEN and FindData.dwFileAttributes)>0 then Result:=Result+'h' else Result:=Result+'-';
    if (FILE_ATTRIBUTE_SYSTEM and FindData.dwFileAttributes)>0 then Result:=Result+'s' else Result:=Result+'-';
    SubItems.Add(Result);
    end;
  end;
  finally
  ListView1.Items.EndUpdate;
  end;

[Stilet]

procedure TForm1.UpdateFile;
var
Handle:THandle;
FindData:TWin32FindData;
temp_ext,result,Temp_Cap:String;
Folders:TStringList;
Attr,i:Integer;
dDir:string;
begin
SetCurrentDir(dDir);
ListView1.Clear;
dDir:='c:\';
Handle:=FindFirstFile(PChar(dDir+'*'),FindData);
if Handle<>INVALID_HANDLE_VALUE then
 try
  Folders:=TStringList.Create;
  while FindNextFile(Handle,FindData) do
  begin

    Temp_Cap:=ExtractFileName(FindData.cFileName);
    temp_ext:=ExtractFileExt(FindData.cFileName);

    if (FindData.dwFileAttributes and faDirectory)=faDirectory then begin
     Folders.append(Temp_Cap);
     
   end else

   with ListView1.Items.Add do   begin
    if (FindData.dwFileAttributes and faDirectory)<>faDirectory then begin
      Caption:=copy(Temp_Cap,1,pos('.',Temp_Cap)-1)
      SubItems.Add(Copy(temp_ext,2,Length(temp_ext)-1));
      SubItems.Add(FloatToStrF(FindData.nFileSizeHigh+FindData.nFileSizeLow,ffNumber,18,0)) else SubItems.Add('');
      SubItems.Add(FileTimeToDateTimeStr(FindData.ftLastWriteTime));
      Result:='';
      if (FILE_ATTRIBUTE_ARCHIVE and FindData.dwFileAttributes)>0 then Result:=Result+'a' else Result:=Result+'-';
      if (FILE_ATTRIBUTE_READONLY and FindData.dwFileAttributes)>0 then Result:=Result+'r' else Result:=Result+'-';
      if (FILE_ATTRIBUTE_HIDDEN and FindData.dwFileAttributes)>0 then Result:=Result+'h' else Result:=Result+'-';
      if (FILE_ATTRIBUTE_SYSTEM and FindData.dwFileAttributes)>0 then Result:=Result+'s' else Result:=Result+'-';
      SubItems.Add(Result);
    end;
   end;

  end;
  for i=0 to Folders.count-1 do with ListView1.Items.insert(i) do begin
   SubItems.Add('[Папка]');
   Caption:=Folders[i];
  end;
  Folders.free;
  finally
  ListView1.Items.EndUpdate;
  end;

Идея ясна?

[HTTqp]

Stiler, выдает ошибку

[Stilet]

Я так понимаю догадываться на какой строке мне придется?

[eval]

коли назвался груздем, так и в кошик полезай, думал в сказку попал

[HTTqp]

Прошу прощение за флуд, все сделал, все спасибо, Stilet тебе в рему +

[Stilet]

Сделал - хорошо )