BOOL CAtkisSatz::HatObjekte( int i )
{
CxString txt;
BOOL result = FALSE;
int l;
for ( l = 0; l < NumFktParam( i ); l++ )
{
txt = ObjektNummerRechts( i, l );
txt.TrimAll();
if ( txt.GetLength()) result = TRUE;
txt = ObjektNummerLinks( i, l );
txt.TrimAll();
if ( txt.GetLength()) result = TRUE;
}
return result;
} // HatObjekte
CxString StripTrailing( const CxString &source, const char toStrip )
{
size_t i = source.GetLength();
const _TCHAR *pSrc = (LPCTSTR)source + i;
--pSrc;
while (i && *pSrc == toStrip)
{
--pSrc;
--i;
}
return source.Mid(0, (int)i);
}
void MakeDirectory( CxString strDir )
{
if ( strDir.Right(1) == _T("\\") )
strDir = strDir.Left(strDir.GetLength()-1);
if ( GetFileAttributes(strDir) != -1 )
return;
DWORD dwErr = GetLastError();
if ( !((dwErr == ERROR_PATH_NOT_FOUND) || (dwErr == ERROR_FILE_NOT_FOUND)) )
return;
int nFound = strDir.ReverseFind( _T('\\') );
MakeDirectory( strDir.Left(nFound) );
::CreateDirectory( strDir, NULL );
}
