root/trunk/UtilsImpl/unit_ExportToDeviceThread.pas

470479
156
    Folder := IncludeTrailingPathDelimiter(Trim(CheckSymbols(Folder)));
156
    Folder := IncludeTrailingPathDelimiter(Trim(CheckSymbols(Folder)));
157
    FileName := Trim(CheckSymbols(FileName));
157
    FileName := Trim(CheckSymbols(FileName));
158
158
159
    { TODO -oNickR -cBug : FullName нечем не инициализирована }
159
    InsideFileName := FullName + ' - ' + FTable.FieldByName('Title').AsString;
160
    InsideFileName := FullName + ' - ' + FTable.FieldByName('Title').AsString;
160
161
162
    {
161
    if Settings.TransliterateFileName then
163
    if Settings.TransliterateFileName then
162
    begin
164
    begin
163
      InsideFileName := Transliterate(InsideFileName);
165
      InsideFileName := Transliterate(InsideFileName);
164
      Folder := Transliterate(Folder);
166
      Folder := Transliterate(Folder);
165
      FileName := Transliterate(FileName);
167
      FileName := Transliterate(FileName);
166
    end;
168
    end;
169
    }
167
170
168
    FileName := FileName + DMCollection.tblBooks['Ext'];
171
    FileName := FileName + DMCollection.tblBooks['Ext'];
169
  end;
172
  end;
...
...
219
    emFB2:
222
    emFB2:
220
      unit_globals.CopyFile(FFileOprecord.SArch, DestFileName);
223
      unit_globals.CopyFile(FFileOprecord.SArch, DestFileName);
221
    emFB2Zip:
224
    emFB2Zip:
222
      ZipFile(FFileOprecord.SArch, DestFileName + ZIP_EXTENSION);
225
      unit_globals.ZipFile(FFileOprecord.SArch, DestFileName + ZIP_EXTENSION);
223
    emTxt:
226
    emTxt:
224
      unit_globals.ConvertToTxt(FFileOprecord.SArch, DestFileName, Settings.TXTEncoding);
227
      unit_globals.ConvertToTxt(FFileOprecord.SArch, DestFileName, Settings.TXTEncoding);
225
    emLrf:
228
    emLrf: