[Sharky]

Всем привет
вообщем вот что:
Ищю я директории в какой то папке и добавляю найденные имена папок в массив строк . Первые два элемента у меня равны '.' и '..' ну я знаю что это родительский каталог .Так вот суть проблемы: я пытаюсь не записывать эти строки в мой массив
вот как я это делаю

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure findDirList(Path:Pchar; var list:TStringli var  c:char;  F : TSearchRec;  i:integer; begin  findfirst(Path,faDirectory,F);  i:=1;  if (F.name <> '.')  and ( F.name <> '..')  then  List[i]:=f.name;  repeat   if list[i]<>list[i-1] then    begin     FindNext(F);     if (F.name <> '.') and ( F.name <>'..') then     List[i+1]:=F.name;     inc(i);    end   else   break ....

Вообщем всё равно записываются в 1 и 2 элементы точки
я уж и засекал номер символа через орд и зажав альт писал в условии но не пашет все равно
Прогу пишу я на турбо паскале

[Nyctos Kasignete]

Пробовала так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure findDirList(const Path: string; var list: TStringList); var   F: TSearchRec; begin   if FindFirst(Path, faAnyFile, F) <> 0 then Exit;   list.Clear;   if (F.Name <> '.') and ( F.Name <> '..') then     if (F.Attr and faDirectory) <> 0 then list.Add(F.Name);     try     while FindNext(F) = 0 do       if (F.Name <> '.') and ( F.Name <> '..') then         if (F.Attr and faDirectory) <> 0 then list.Add(F.Name);   finally     FindClose(F);   end; end;   procedure TForm1.Button1Click(Sender: TObject); var   SList: TStringList; begin   SList := TStringList.Create;   try     findDirList(Edit1.Text, SList);     Memo1.Lines.Clear;     Memo1.Lines.AddStrings(SList);   finally     SList.Free;   end; end;

Вроде, нету никаких точек на выходе...

P.S. Ай, забыла, что на Pascal пишите! Ну да ладно, это не меняет сути...

[lmikle]

Честно говоря, не понял зачем такие сложности.
Ну и функцию, наверное, ты не совсем правильно используешь.
На дельфях это будет выглядеть так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var   I : Integer;   F : TSearchRect;   iFound : Integer; begin   I := 0;   iFound := FindFirst(Path,faAnyFile,F);   While iFound = 0 Do     Begin        If ((F.Attr And faDirectory) <> 0) And           (F.Name <> '.') And           (F.Name <> '..') Then          Begin            Inc(I);            List[i] := F.Name;          End;        iFound := FindNext(F);     End;   FindClose(F);

[Sharky]

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

Честно говоря, не понял зачем такие сложности.
Ну и функцию, наверное, ты не совсем правильно используешь.
На дельфях это будет выглядеть так:

Код:

яж на турбо паскале пишу и там у меня
type
TsringList= array [1..255] of string;

[Sharky]

И ваще с какой стати мой код не работает
написано же ведь

Код:

1 2 3

if (F.name <> '.')  and ( F.name <> '..')  then  List[i]:=f.name;

в слечае 1 или 2 точек не производить запись в масссив а турбо среде по
Вот почему????

[lmikle]

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

яж на турбо паскале пишу и там у меня
type
TsringList= array [1..255] of string;

Ну а я чего написал?
Я понял, что это у тебя массив.

[lmikle]

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

И ваще с какой стати мой код не работает
написано же ведь

Код:

в слечае 1 или 2 точек не производить запись в масссив а турбо среде по
Вот почему????

Попробуй как я написал, все-таки. Там у тебя какая-то муть в 3 захода...