При запуске вот этого кода

Код

#include "FileCtrl.hpp" #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void ListFiles(AnsiString path, TStrings* List) { Form1->Memo1->Lines->Add("lol"); TSearchRec sr; if (FindFirst(path+"*.*", faAnyFile, sr) == 0) { do { if (sr.Attr   } } else { AnsiString Ext=ExtractFileExt(sr.Name).UpperCase(); if (Ext==".CPP") List->Add(path+sr.Name); } } while (FindNext(sr) == 0); FindClose(sr); } Application->ProcessMessages(); } void __fastcall TForm1::Button1Click(TObject *Sender) { ListFiles("c:\\",Memo1->Lines); } //---------------------------------------------------------------------------

Вылетает куча, ну просто такая куча, ошибок вот таких
[C++ Error] Unit1.cpp(26): E2206 Illegal character ' ' (0xa0)
[C++ Error] Unit1.cpp(27): E2206 Illegal character ' ' (0xa0)
[C++ Error] Unit1.cpp(27): E2206 Illegal character ' ' (0xa0)
....
Народ мож я что то пропустил в коде?

меня или глючит с утра или что, но что то мне кажется что у тебя куча
} лишних

Код

void ListFiles(AnsiString path, TStrings* List) { Form1->Memo1->Lines->Add("lol"); TSearchRec sr; if (FindFirst(path+"*.*", faAnyFile, sr) == 0) { do { if (sr.Attr   } } else { AnsiString Ext=ExtractFileExt(sr.Name).UpperCase(); if (Ext==".CPP") List->Add(path+sr.Name); } } while (FindNext(sr) == 0); FindClose(sr); } Application->ProcessMessages(); }

Это сообщение отредактировал(а) chaos - 22.12.2004, 07:11

Агы тысячу скобок, расставь из нормально!

А это что?

Код

if (sr.Attr

Код

void ListFiles(AnsiString path, TStrings* List)
{
Form1->Memo1->Lines->Add("lol");

TSearchRec sr;
if (FindFirst(path+"*.*", faAnyFile, sr) == 0)
{
do
{
if (sr.Attr & faDirectory)
{
if (sr.Name!=".")
if (sr.Name!="..")
{
ListFiles(path+sr.Name+"\\",List); 
}
}
else
{
AnsiString Ext=ExtractFileExt(sr.Name).UpperCase();
if (Ext==".CPP")
List->Add(path+sr.Name);
}
}
while (FindNext(sr) == 0);
FindClose(sr);
}
 
Application->ProcessMessages();

}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
//ListFiles("c:\\",Memo1->Lines);

}
//---------------------------------------------------------------------------



У меня что то код плохо пропечатался, у меня со скобками все впорядке

Это сообщение отредактировал(а) en-horror - 22.12.2004, 22:50

а теперь какие ошибки?
+ укажи где у тебя эти строки

у меня каждая строчка с
TSearchRec sr;
и до
if (sr.Name!=".")
помечены этой ощибкой и по несколько раз.
Я воопще даже представить не могу в чем там проблема.

Это чего то с компилятором неладно имхо...
Попробуй, скопируй код в блокнот, а потом опять в Бильдер.

Все полный, я даже не прпедставляю что за фигня

Может все-таки так:

Цитата

if (sr.Name!='.')

З.Ы.: Только не бейте меня, я не знаю Borland'а И знать не хочу

А ты эти строки откуда-то из других файлов/нета скопировал? Такая ерунда случается если компилятор не ожидает файл в нужной кодировке. Тогда пробел он воспринимает как другой символ и выдает кучу ошибок. Результат не гарантирую, но попробуй удалить и перенабрать строки с ошибками.

У тебя там NO-BREAK SPACE (0xA0) стоят. Скорее всего ты их не видишь, но они там есть .

все, спасибо большое народ, переписал все от руки заново ,запахало.

Надо было в ворд вставить, и непечатаемые символы отобразить .

Цитата(Hroft @ 27.12.2004, 11:35)

Надо было в ворд вставить, и непечатаемые символы отобразить smile.

Или в блокнот. как я предлагал. Он тоже символы отображает