Вопрос не решен

[NIKOLAYY2]

Вопрос здесь:
http://programmersforum.ru/showthread.php?t=277306

[NIKOLAYY2]

ДралсяСошибками
Вам выдам несколько замечений:
Во первых - толку от вашей помощи ноль...
Во вторых если вы что знаете по решению задачи- то могли бы и реально помоч (а не символически)
В третих ваша помощ- как помощ - она нулевая!
Я вам ставлю два по шкале помощи.

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

[Stilet]

http://www.programmersforum.ru/showthread.php?t=6639

[SLAUR]

Во первых тему закрыли
Во вторых я вам посылал личное сообщение где был ответ

[ДралсяСошибками]

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

ДралсяСошибками
Вам выдам несколько замечений:
Во первых - толку от вашей помощи ноль...
Во вторых если вы что знаете по решению задачи- то могли бы и реально помоч (а не символически)
В третих ваша помощ- как помощ - она нулевая!
Я вам ставлю два по шкале помощи.

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

Мне наверно должно сейчас быть стыдно))))

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  FileAttr:array[0..37] of integer=(1,2,3,4,5{!},6,7,32,33,34,35,36,37{!},38,39,
     128,288,289{!},290,2048,2080,2081,2082,{<!}2083,2084,2085{!>},2086,8198,
     8224,{<!}8225,8226,8227,8228,8229{!>},8230,10272,10273{!},10274);
  PapkaAttr:array[0..25] of integer=(16,17,18,19,20,21,22,48,49{!},50,2064,
     2065{!},2066,{<!}2067,2068,2069,2070{!>},2071,8208,8209{!},8210,{<!}8211,
     8212,8213{!>},8214,10256);
  Files:array[0..3] of string=('jpg','png','gif','bmp');

var
  Form1: TForm1;
  sl:tStringList;

implementation

{$R *.dfm}

function LowerCase2(s: string): string;
var i:integer;
begin
   For i:=1 to Length(s) do
      If (s[i]>='A') and (s[i]<='Z') or (s[i]>='А') and (s[i]<='Я') then
         Inc(s[i],32);
   Result:=s;
end;

function PrinadlezhitI(n: integer; p: array of integer): boolean;
var i:integer;
begin
   Result:=false;
   For i:=Low(p) to High(p) do
      If n=p[i] then
         Result:=true;
end;

function PrinadlezhitS(n: string; p: array of string): boolean;
var i:integer;
begin
   Result:=false;
   For i:=Low(p) to High(p) do
      If n=p[i] then
         Result:=true;
end;

procedure SistemaFajl(papka: string);
var poisk:tSearchRec;
    s:string;
begin
   ChDir(papka);
   If IOResult<>0 then
      Exit;
   If papka[Length(papka)]<>'\' then
      papka:=papka+'\';
   If FindFirst('*',faAnyFile,poisk)=0 then
   Repeat
      If PrinadlezhitI(poisk.Attr,FileAttr) then
      begin
         s:=ExtractFileExt(poisk.Name);
         Delete(s,1,1);
         s:=LowerCase2(s);
         If PrinadlezhitS(s,Files) then
            sl.Add(poisk.Name);
      end;
   Until FindNext(poisk)<>0;
{   ChDir(papka);
   If FindFirst('*',faAnyFile,poisk)=0 then
   Repeat
      If PrinadlezhitI(poisk.Attr,PapkaAttr) then
         If not (poisk.Name='.') and not (poisk.Name='..') then
         begin
            SistemaFajl(papka+poisk.Name);
            ChDir(papka);
         end;
   Until FindNext(poisk)<>0;}//для захода в другие папки
   FindClose(poisk);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   sl:=tStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   sl.Clear;
   SistemaFajl('D:');
   ListBox1.Items.Text:=sl.Text;
end;

end.

Сойдет?

[min@y™]

Вам выдам несколько замечений:
Во первых - толку от вашей помощи ноль...
Во вторых если вы что знаете по решению задачи- то могли бы и реально помоч (а не символически)
В третих ваша помощ- как помощ - она нулевая!
Я вам ставлю два по шкале помощи.

Ты кто такой тут, вообще, чтобы замечания делать?
Хватит насиловать русский язык! Ставлю тебе ноль по шкале знания русского языка!

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

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

Это не ваша проффессия, это не ваш конек..

Виктор Фёдорович? Я тебя по "...фф..." узнал! Ты всё в Ростове прячешься или давно в Африку свалил?

[Stilet]

Опять градус Высерманна повысился... Закрою ка я тему, а то дует.