Форум: "Основная";
Текущий архив: 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.089 c