[AllenWallker]

Сообщение от Страдалецъ

Можно клнечно действительно сделать один громадный текстовик содержащий весь программный код, в плане скорости доступа, выигрыш будет, но удобно ли это будет использовать - большой вопрос.
Но хозяин барин. Вот код который загоняет все содержимое встречающихся файлов с расширение *.py в TStringList:

Код:

unit Unit44;

interface

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

type
  TForm44 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Listing: TStringList;
    procedure FolderScan(Folder: String);
  end;

var
  Form44: TForm44;

implementation

{$R *.dfm}

procedure TForm44.FolderScan(Folder: String);
Var FileInfo: TSearchRec;
    S: TStringList;
begin
 if FindFirst(Folder + '*.*', faAnyFile, FileInfo) = 0
 then try
       repeat
        if (FileInfo.Name = '.') or (FileInfo.Name = '..') then Continue;
        if (FileInfo.Attr and faDirectory <> 0)
        then begin
             FolderScan(Folder+FileInfo.Name+'\');
             Continue;
             end;
        if ExtractFileExt(FileInfo.Name) = '.py'
        then begin
             S := TStringList.Create;
             S.LoadFromFile(Folder+FileInfo.Name);
             Listing.AddStrings(S);
             S.Free;
             end;
       until FindNext(FileInfo) <> 0;
      finally
       SysUtils.FindClose(FileInfo);
      end;
end;

procedure TForm44.FormCreate(Sender: TObject);
begin
 Listing := TStringList.Create;
 FolderScan('E:\DBase\MARAFON\');
end;

end.

спасибо большое)