Получение списка файлов

[Костян Пират]

пытаюсь написать прогу, которая выводит в Memo список файлов выбранной папки и их размер через символ '|'...
получается, что выводит название папки и размер 0... вроде всё по книжке делаю...
вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl, StdCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button1: TButton;
    SaveTextFileDialog1: TSaveTextFileDialog;
    Memo1: TMemo;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 if SaveTextfileDialog1.Execute then
   Memo1.Lines.SaveToFile(SaveTextfileDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 SR: TSearchRec;
begin
 if FindFirst(DirectoryListBox1.Directory+'*.*',faAnyFile,SR)=0 then
  begin
   Memo1.Lines.Add(SR.Name + '|' + IntToStr(SR.Size));
   while FindNext(SR)=0 do
     Memo1.Lines.Add(SR.Name + '|' + IntToStr(SR.Size));
  end;
 FindClose(SR);
end;

end.

Нарушения:
- неоправданное использование верхнего регистра в названии темы;
- неиспользование тега "Код".
В следующий раз вкачу предупреждение.
Рекомендую прочесть правила раздела.

сорри... постараюсь быть внимательней...

[Terran]

У вас не до конца путь указан в этой строчке

if FindFirst(DirectoryListBox1.Directory+'*.*',faAnyFile,SR)=0 then

Вам нужно сделать так:

if FindFirst(DirectoryListBox1.Directory+'\*.*',faAnyFile,SR)=0 then

И у вас лишняя переменная i: integer;. Она у вас не используется.

[Костян Пират]

о, чёрт! точно!
спасибо! как всегда решение под носом

заработало, но ещё вопрос - в начало списка выводятся строки:
.|0
..|0

что это за строки и откуда они растут?
думал может верхние директории, но даже если через 10 вложенных папок лежит данная, всё равно 2 строки появляются...

[mihali4]

Так Винда обозначает, что нижележащий список является вложенным.
Когда работаете с каталогами и файлами, нужно отфильтровывать значения SR.Name, равные '.' и '..'

[Костян Пират]

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

Когда работаете с каталогами и файлами, нужно отфильтровывать значения SR.Name, равные '.' и '..'

для этого есть какие-то специальные функции или в ручную всё программируется?

[mihali4]

Вручную конечно...
Например:

if (SR.Name<>'.') and (SR.Name<>'..') then

[Костян Пират]

Terran ,mihali4 спасибо!
но продолжу быть назойливым
как выводить только имена файлов (без папок)? может вместо faAnyFile чего-то другое указать?

[mihali4]

Есть функция ExtractFileName...

[Костян Пират]

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

Есть функция ExtractFileName...

но она по-моему выводит полное имя файла... а можно так, чтобы без пути? хотя, можно обрезать строку, но хочется полаконичней код

[Kotofff]

Все правильно mihali4 сказал :
http://www.delphibasics.ru/ExtractFileName.php