procedure TForm1.Button1Click(Sender: TObject);
procedure AddTextFileToMemo(FN: String);
var
F: TStringList;
begin
F:=TStringList.Create;
F.LoadFromFile(FN);
Memo1.Lines.Add(FN);
Memo1.Lines.AddStrings(F);
Memo1.Lines.Add('---');
F.Free;
end;
var
SR: TSearchRec;
begin
Memo1.Clear;
if not DirectoryExists(Edit1.Text) then Exit;
if FindFirst(Edit1.Text + '*.txt', faAnyFile, SR) = 0 then
begin
AddTextFileToMemo(Edit1.Text + SR.Name);
while FindNext(SR) = 0 do
if SR.Attr and faDirectory <> faDirectory then
AddTextFileToMemo(Edit1.Text + SR.Name)
end;
FindClose(SR);
end;
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Последний раз редактировалось The Shadow, 28.03.2008 в 08:14.