Поиск jpg файлов в каталоге

[bilibian]

Привет.

Пытаюсь найти все jpg файлы в каталоге и отправить их в переменную типа TStrings.

var
  List:TStrings;

procedure ListFile;
var
  searchResult : TSearchRec;
begin
  List.Clear;
  if FindFirst(ExtractFilePath(Application.Exename)+'*.jpg', faAnyFile, searchResult) = 0 then
  begin
    repeat
      List.Add(searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListFile;
Showmessage(List[0]);
end;

В итоге меня приветствует длиннющая ошибка с многочисленными цифрами.

Что не так?

[eval]

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

[bilibian]

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

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

Тогда, какие есть варианты получить список jpg файлов в каталоге?

[bilibian]

кто нибудь может помочь в этом вопросе?

[bilibian]

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

это баг в делфи

Если это баг, то почему у других ребят все тип топ?

http://www.delphibasics.ru/FindFirst.php
http://programmersforum.ru/showthread.php?t=207634

[eval]

потому что другие ребята ошибки читают и справку, вот у их и тип топ, а кто не читает у того баги

[bilibian]

Исправил, заменил тип переменной с TStrings на TStringList и все стало ок.

Я добавляю имена файлов с папки в переменную типа TStringList, иногда необходимо с помощью кнопки на форме удалить строку.

Удаляю так:

List.Delete(index);

Но при удалении индексы у остальных строк сохраняются. Мне нужно, чтобы они не сохранялись и пересчитывались заново.

Например, дано 3 строки:
0-1
1-2
2-3

Если удалить строку под номером 2, то индексы строк будут следующими:
0-1
2-3

Необходимо, чтобы при удалении второй строки, строки были следующими:
0-1
1-3

Как это сделать?

[eval]

опять вы загибаете, у всех тип топ с удалением

[dosha]

var
  List:TStrings;

procedure ListFile;
var
  searchResult : TSearchRec;
begin
  List.Clear;
  if FindFirst(ExtractFilePath(Application.Exename)+'*.jpg', faAnyFile, searchResult) = 0 then
  begin
    repeat
      List.Add(searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
List:=TStrings.create;
ListFile;
Showmessage(List[0]);
end;

а никто не учил делать так?

[bilibian]

Всем спасибо за помощь. Теперь и у меня все тип топ