[pylsar]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  ComboBox1.Clear;
  FindRes := FindFirst('C:\1\*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    ComboBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  List : TStringList;
  i,j : integer;
  S : String;
begin
  List := TStringList.Create;
  S:=ComboBox1.Items.Strings[5];
  List.LoadFromFile(S);
  StringGrid1.RowCount := List.Count;
  for i:=0 to StringGrid1.RowCount-1 do
    with StringGrid1.Rows[i] do
    begin
      Delimiter:=' ';   
      DelimitedText:=List[i];
  end;
end;

Админ: Пользоваться тегами по их назначению, а не абы как!

Собственно в выпадающем списке имена файлов находящихся в папке 1 диска С. Кстати как их отсортировать по дате и выбросить из списка ComboBox ( . и ..), которые при поиске записываются в Items ComboBox'a ? Далее хочу при выборе файла из списка загружать его в StringGrid, если ручками прописать конкретный файл, то код работает. Не получается реализовать с изменяющимся файлом S.

[~TB~]

...выбросить из списка ComboBox ( . и ..), которые при поиске записываются в Items ComboBox'a?

Примерно так. Ну а по дате, нужно копить еще и дату, в отдельный массив. А комбосписок отсортировать уже после заполнения, по массиву с датами.

Код:

var
  SR: TSearchRec;
  FindRes: Integer;
begin
  ComboBox1.Clear;
  FindRes := FindFirst('C:\1\*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
if (SR.Name <> '.') and (SR.Name <> '..') then
    ComboBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

Далее хочу при выборе файла из списка загружать его в StringGrid, если ручками прописать конкретный файл, то код работает. Не получается реализовать с изменяющимся файлом S.

Может нужно было сделать как-то так?

Код:

S:=ComboBox1.Items[ComboBox1.ItemIndex]

Ну или проблема в том, что путь неполон и его нужно дособрать.

[pylsar]

Пасиб с точками помогло. А вот с Combo, все по прежнему, почему то ищет в файлы тхт в корне каталога проекта, а не в папке 1, соответственно закрывается ошибкой отсутствия файла.

[~TB~]

Вот так, скорее всего, тогда.

Код:

List.LoadFromFile('C:\1\'+S);

[pylsar]

Спасибо помогло