Привет! Для работы с файлами ( например поиск файлов в задан. директории) хочу использовать компонент из RxLib -  TDirectoryEdit
Действительно, удобный выбор директории (поддиректории) Но вот
незадача -

AnsiString DName;
HANDLE hFind;
WIN32_FIND_DATA Find;

DName=DirectoryEdit1->InitialDir ;
do
{
hFind = FindFirstFile(DName, &Find);  
  ...  и т.д.
Здесь вместо DName хотелось бы как раз и
подставить полный путь к директории... Но компилятор даёт ошибку
"Cannot convert 'AnsiString'to const char "
И ещё  чтобы прописать путь нужно использовать
"\\" а результат DirectoryEdit1->InitialDir даёт
путь с одним "\"  
Подскажите пожалуйста, что мне делать?
Или быть может есть другой способ ?
Например , используя билдеровский стандартный
TSaveDialog ?

http://www.forum.vingrad.ru/cgi-bin....2%E0%EB

К сож. я не знаю Паскаль :-(
http://www.forum.vingrad.ru/cgi-bin....2%E0%EB

Цитата(Guest @ 17.10.2002, 16:44)

Привет! Для работы с файлами ( например поиск файлов в задан. директории) хочу использовать компонент из RxLib -  TDirectoryEdit Действительно, удобный выбор директории (поддиректории) Но вот незадача - AnsiString DName; HANDLE hFind; WIN32_FIND_DATA Find; DName=DirectoryEdit1->InitialDir ; do { hFind = FindFirstFile(DName, &Find);     ...  и т.д. Здесь вместо DName хотелось бы как раз и подставить полный путь к директории... Но компилятор даёт ошибку "Cannot convert 'AnsiString'to const char " И ещё  чтобы прописать путь нужно использовать "\\" а результат DirectoryEdit1->InitialDir даёт путь с одним "\"   Подскажите пожалуйста, что мне делать? Или быть может есть другой способ ? Например , используя билдеровский стандартный TSaveDialog ?

Попробуй вот это:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TSearchRec sr;
 Memo1->Clear();
 if (FindFirst(FileListBox1->Directory + "*.*", faAnyFile | faDirectory, sr) == 0)
 {
   Memo1->Lines->Add(sr.Name+",размер: "+IntToStr(sr.Size));
   while (FindNext(sr) == 0)
    Memo1->Lines->Add(sr.Name+",размер: "+IntToStr(sr.Size));
 }
 FindClose(sr);
}