Поиск в ListView

[sli-pro]

Значит такое дело... При сканировании директории выводится список файлов в ListView, все ок отображает только 1, если файл назван русскими буквами то выдает к примеру "??????.doc" в чем проблема???
вот код:

//ПРОЦЕДУРА ПОИСКА ФАЙЛОВ
procedure GetFiles( APath: string );
var
  sr: TSearchRec;
  isFound: boolean;
  ListItem: TListItem;
  temp: string;
begin
  isFound := FindFirst( APath + '\*.*', faAnyFile, sr ) = 0;
while isFound do
begin
if ( sr.Name <> '.' ) and ( sr.Name <> '..' ) and
  ( ( sr.Attr and faDirectory ) <> faDirectory ) then
begin
  ListItem := Form1.ListView1.Items.Add;
  temp := ExtractFileName( sr.Name );
if LastDelimiter( '.', temp ) <> 0 then
  ListItem.Caption := Copy( temp, 0, LastDelimiter( '.', temp )-1 )
else
  ListItem.Caption := temp;
  temp := ExtractFileExt( sr.Name );
  ListItem.SubItems.Add( Copy( temp, Pos( '.', temp )+1, Length( temp ) ) );
  ListItem.SubItems.Add( IntToStr( sr.Size ) );
  ListItem.SubItems.Add( DateToStr( FileDateToDateTime(FileAge( APath + '\' + sr.Name ) ) ) );
  ListItem.SubItems.Add( TimeToStr( FileDateToDateTime(FileAge( APath + '\' + sr.Name ) ) ) );
end;
  isFound := FindNext( sr ) = 0;
end;
  FindClose( sr );
end;

 TForm1.ComboBox1Select(Sender: TObject);
var
  Dir1, Dir2: string;
  Ini:TiniFile;
begin
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Config.ini');
case combobox1.ItemIndex of
0: begin
  ListView1.Clear;
with ListView1.Items.Add do begin
  GetFiles(UnCryptString(Ini.ReadString('Path', '1', '')));
end;
end;

и еще вопрос почему-то при сканировании 1 строчка пустая, а 2- все как положено отображается

[Stilet]

почему-то при сканировании 1 строчка пустая

Не удивительно:

with ListView1.Items.Add do begin
  GetFiles(UnCryptString(Ini.ReadString('Path', '1', '')));
end

Зачем ты создаешь до вызова функции строку не понятно.

[phomm]

Да уж, декомпозиция просто феерична, отсюда и проблемы.
Зачем во внешней по отношению к форме процедуре вызывается добавление строки в листвью ? процедура должна быть самодостаточна, а для выполнения её работы ЛистАйтем надо туда передать - и код упростится и процедура будет обособлена, раз уж она не принадлежит форме.

procedure GetFiles( APath: string ; ListItem: TListItem);
var
  sr: TSearchRec;
  isFound: boolean;
  //листайтем стал параметром
  temp: string;
...
  // ListItem := Form1.ListView1.Items.Add; // выкинуть в тар-тарары
...
// вызов без with, а просто 
GetFiles(UnCryptString(Ini.ReadString('Path', '1', '')), ListView1.Items.Add);

За идентацию кода тоже не похвалю, выглядит кашей, ибо много вложенных блоков, а уровень их всех - один. Если есть возможность - пользуйте автоформаттер кода (из CnPack или отдельной утилиткой)

[sli-pro]

спс за подсказки... переделаемс