Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Вниз
Сортировка не происходит ! Где я ошибся ? Найти похожие ветки
← →
vic_774N (2003-01-27 11:18) [0]Привет Всем !
вот код:
procedure TForm1.FileFinder1FindFile(Sender: TObject; var FileInfo: TFileInfo);
type
PFileSize = ^TFileSize;
TFileSize = record
Size: Integer;
end;
var
NewName: string;
CRC32: LongInt;
f: file of Byte;
i: Integer;
PFSize: PFileSize;
begin
if step = 1 then
begin
NewName := FileInfo.FileName;
begin
FilesList.Items.Add;
FilesList.Items.Item[a].Caption := NewName;
FilesList.Items.Item[a].SubItems.Append(IntToStr(FileInfo.FileSize));
//******* здесь заношу длину файла
New(PFSize);
PFSize.Size := FileInfo.FileSize;
FilesList.Items.Item[a].Data := PFSize;
//*********
lFilesFind.Caption := IntToStr(FilesList.Items.Count);
if FileCRC32(NewName, CRC32)then
FilesList.Items.Item[a].SubItems.Append(IntToStr(CRC32))
else
begin
if CopyFile(PChar(NewName),PChar(TempPath+"~test.tmp"), False)then
begin
if FileSetAttr(TempPath+"~test.tmp", $20)=0 then
if FileCRC32(TempPath+"~test.tmp", CRC32)then
FilesList.Items.Item[a].SubItems.Append(IntToStr(CRC32));
end;
end;
a := a + 1;
end;
end;
FilesList.SortType := stData; // < здесь включаю сортировку
Application.ProcessMessages;
end;
а сортировки не происходит !!! (или я ошибаюсь ?)
← →
MBo (2003-01-27 14:18) [1]FilesList ?????
← →
vic_774N (2003-01-27 15:47) [2]> FilesList: TListView;
← →
MBo (2003-01-27 15:50) [3]где обработчик OnCompare и вызов сортировки?
← →
vic_774N (2003-01-27 16:48) [4]он у меня отдельно, но тут дело в том, что я записываю данные в виде
type
PFileSize = ^TFileSize;
TFileSize = record
Size: Integer;
end;
в обработчике имеем следующее: (Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
ну данные из Items я читаю, а Data у меня всегда 0 !
← →
Cobalt (2003-01-27 22:46) [5]попробуй использовать GetMem, и сообщи о результатах!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.017 c
