Changeset 370 for tools


Ignore:
Timestamp:
Mar 9, 2010, 3:48:25 PM (15 years ago)
Author:
maron
Message:

Vytváření složky před vytvořením souboru

Location:
tools/dbc_export
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • tools/dbc_export/DBCExport.lpi

    r359 r370  
    22<CONFIG>
    33  <ProjectOptions>
     4    <PathDelim Value="/"/>
    45    <Version Value="7"/>
    56    <General>
     
    1112      <Title Value="DBCExport"/>
    1213      <UseXPManifest Value="True"/>
    13       <ActiveEditorIndexAtStart Value="3"/>
     14      <ActiveEditorIndexAtStart Value="0"/>
    1415    </General>
    1516    <VersionInfo>
    1617      <Language Value=""/>
    1718      <CharSet Value=""/>
    18       <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
    1919    </VersionInfo>
    2020    <PublishOptions>
     
    3636        <IsPartOfProject Value="True"/>
    3737        <UnitName Value="DBCExport"/>
    38         <CursorPos X="57" Y="16"/>
     38        <CursorPos X="45" Y="168"/>
    3939        <TopLine Value="144"/>
    4040        <EditorIndex Value="0"/>
     
    115115        <IsPartOfProject Value="True"/>
    116116        <UnitName Value="USqlDatabase"/>
    117         <CursorPos X="22" Y="166"/>
    118         <TopLine Value="276"/>
     117        <CursorPos X="14" Y="53"/>
     118        <TopLine Value="10"/>
    119119        <EditorIndex Value="3"/>
    120120        <UsageCount Value="71"/>
     
    151151      </Unit14>
    152152      <Unit15>
    153         <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
     153        <Filename Value="../../../../../usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
    154154        <CursorPos X="14" Y="253"/>
    155155        <TopLine Value="234"/>
     
    157157      </Unit15>
    158158      <Unit16>
    159         <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
     159        <Filename Value="../../../../../usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
    160160        <CursorPos X="3" Y="544"/>
    161161        <TopLine Value="542"/>
  • tools/dbc_export/DBCExport.pas

    r359 r370  
    165165  with DBC do begin
    166166    if FileExists(DBCFileName) then
     167      if not DirectoryExists(ExtractFileDir(NewDBCFileName)) then
     168        mkdir(ExtractFileDir(NewDBCFileName));
    167169      SaveToFile(NewDBCFileName);
    168170    Free;
Note: See TracChangeset for help on using the changeset viewer.