Подскажите как записать в фаил все строки вместо listbox
PHP код:
procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile;
i: integer;
begin
AssignFile(f, 'd:\Test.txt');
ReWrite(f);
ListBox1.Items.Clear;
ScanDir('c:', '', что тут указать что бы записать в фаил?);
Label1.Caption := IntToStr(ListBox1.Items.Count);
CloseFile(f);
end;
Процедура ScanDir написана так что, хранилище для резульатат, любой наследник от TString. Как мне необходимо ее переделать, что бы хранилище можно было использовать фаил?