Свой курсор для всех элементов, и отображение курсора в TIMAGE

[phphel]

Cделал так, но ошибка все равно появляется

[DIgorevich]

Полный код процедуры в студию. Т.к. у меня ошибки нет.

[phphel]

procedure TForm1.Button1Click(Sender: TObject);
var
  j:integer;
  F: TSearchRec;
  iFound : Integer;
  mas_dir: array[0..13] of string ;
begin
  j:=0;
  iFound := FindFirst('C:\' + '*.*', faAnyFile, F);
  While iFound = 0 Do
    begin
      j:=j+1;
      mas_dir[j]:=F.Name;
      Combobox1.Items.Add(F.Name);
      iFound := FindNext(F);
    end;
  FindClose(F);
end;

end.

[phphel]

разобрался, походу ошибка из-за того, что я не верно указал кол-во файлов при инициализации массива, забыл ".." и "."

НО возникает вопрос) как создать не зная заранее кол-во элементов?

Или к примеру я могу написать функцию которая считает кол-во файлов, но как потом указать при инициализации массива?

mas_dir: array[0..GetFileCount(dir)] of string; типа такого))

[DIgorevich]

Если я заменяю твою строку

 iFound := FindFirst('C:\' + '*.*', faAnyFile, F);

на

FindFirst(GetCurrentDir+'\cursors\' + '*.*', faAnyFile, F);

то ошибка не появляется и еще j:=j+1; ставь в конец цикла.

[DIgorevich]

Сообщение от phphel

разобрался, походу ошибка из-за того, что я не верно указал кол-во файлов при инициализации массива, забыл ".." и "."

НО возникает вопрос) как создать не зная заранее кол-во элементов?

Можно создавать динамический массив, но ИМХО проще зарезервировать просто больше mas_dir: array[0..300] of string ;

[phphel]

DIgorevich, действительно проще, по моему хороший вариант, спасибо что уделил время.
Остался вопрос с TImage, мб кто подскажет.

[DIgorevich]

Ну, "спасибо" тут говорят путем нажатия на кнопочку весов (чуть левее от сообщения) . А насчет вывода курсоров в картинки, скорее всего надо искать доп. компоненты.

Хотя нет! Помогу и тут, наверное... сейчас протестирую...
Тебе когда и где надо загружать курсор в TImage?

[phphel]

Сообщение от DIgorevich

Ну, "спасибо" тут говорят путем нажатия на кнопочку весов (чуть левее от сообщения) . А насчет вывода курсоров в картинки, скорее всего надо искать доп. компоненты.

Немного ты меня опередил) я только собирался это сделать)

я думаю, просто перекодировать в битмап нужно..

[phphel]

Сообщение от DIgorevich

Хотя нет! Помогу и тут, наверное... сейчас протестирую...
Тебе когда и где надо загружать курсор в TImage?

Ну к примеру просто создать форму, кнопку на ней, и при нажатии
мы выбираем файл курсора, .ani или .cur и в TImage1 заносится изображение этого курсора, желательно было бы что бы ani был анимированный...правда думаю с простым TImage такого эффекта не добиться..