VPF::Переписать 2 функции с Дельфи - Форум программистов

ppcumax

Дата 26.3.2008, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 26.4.2007

Репутация: 1
Всего: 1

Помогите, пожалуйста, есть 2 функции на Дельфи, нужно для C++ Builder

Код


procedure ListDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faDirectory, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faAnyfile) then
       begin
         FileList.Add(Path + SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

 function GetWinDir():string;
 var
buffer:string;
len:uint;
begin
setlength(buffer,MAX_PATH + 1);
len := getwindowsdirectory(PAnsiChar(buffer),MAX_PATH);
setlength(buffer,len);
GetWinDir := buffer;
end;

Rififi

Дата 26.3.2008, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1254
Регистрация: 9.3.2008

Репутация: 1
Всего: 36

вторая например так:

Код


#include <windows.h>
#include <string>
#include <wchar.h>

std::string GetWinDirA()
{
    CHAR szBuf[MAX_PATH+1] = {0};
    ::GetWindowsDirectoryA(szBuf, MAX_PATH);
    return (szBuf);
}

std::wstring GetWinDirW()
{
    WCHAR szBuf[MAX_PATH+1] = {0};
    ::GetWindowsDirectoryW(szBuf, MAX_PATH);
    return (szBuf);
}


#ifdef UNICODE
#define GetWinDir GetWinDirW
#else
#define GetWinDir GetWinDirA
#endif

vivat

Дата 27.3.2008, 05:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 6.4.2006
Где: Томск

Репутация: 2
Всего: 2

Ну а первая примерно так

Код


void ListDir(AnsiString Path,TStringList *FileList)
{
  TSearchRec  SR;
  if(FindFirst(Path+"*.*",faDirectory, SR)==0)
  {
     do
     {
        if(SR.Attr != faAnyFile) FileList->Add(Path+SR.Name);
     } while (FindNext(SR) == 0);
     FindClose(SR);
  }
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »