Changeset 370 for tools

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:

• DBCExport.lpi (modified) (6 diffs)
• DBCExport.pas (modified) (1 diff)

tools/dbc_export/DBCExport.lpi

@@ -2 +2 @@
 <CONFIG>
   <ProjectOptions>
+    <PathDelim Value="/"/>
     <Version Value="7"/>
     <General>
@@ -11 +12 @@
       <Title Value="DBCExport"/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="3"/>
+      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
       <Language Value=""/>
       <CharSet Value=""/>
-      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
     </VersionInfo>
     <PublishOptions>
@@ -36 +36 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="DBCExport"/>
-        <CursorPos X="57" Y="16"/>
+        <CursorPos X="45" Y="168"/>
         <TopLine Value="144"/>
         <EditorIndex Value="0"/>
@@ -115 +115 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="USqlDatabase"/>
-        <CursorPos X="22" Y="166"/>
-        <TopLine Value="276"/>
+        <CursorPos X="14" Y="53"/>
+        <TopLine Value="10"/>
         <EditorIndex Value="3"/>
         <UsageCount Value="71"/>
@@ -151 +151 @@
       </Unit14>
       <Unit15>
-        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
+        <Filename Value="../../../../../usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
         <CursorPos X="14" Y="253"/>
         <TopLine Value="234"/>
@@ -157 +157 @@
       </Unit15>
       <Unit16>
-        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
+        <Filename Value="../../../../../usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
         <CursorPos X="3" Y="544"/>
         <TopLine Value="542"/>

tools/dbc_export/DBCExport.pas

@@ -165 +165 @@
   with DBC do begin
     if FileExists(DBCFileName) then
+      if not DirectoryExists(ExtractFileDir(NewDBCFileName)) then
+        mkdir(ExtractFileDir(NewDBCFileName));
       SaveToFile(NewDBCFileName);
     Free;