index cdbe1056f9fde71dd1a11c5d2bfd53dac216faff..e2551bae7ad58b17eec4aa4026c0dd5cd17e2b5f 100644 (file)
--- a/src/editor/f_packmap.pas
+++ b/src/editor/f_packmap.pas
procedure TPackMapForm.bPackClick(Sender: TObject);
var
- WadFile: String;
mr: TMapReader_1;
mw: TMapWriter_1;
data: Pointer;
Exit;
if not cbAdd.Checked then
- begin
- (* Overwrite wad *)
- if FileExists(eWAD.Text) then
- begin
- if FileExists(eWAD.Text + '.bak0') then
- ASSERT(DeleteFile(eWAD.Text + '.bak0'));
- ASSERT(RenameFile(eWAD.Text, eWAD.Text + '.bak0'))
- end
- end;
+ g_DeleteFile(eWAD.Text, '.bak0');
// Читаем карту из памяти:
mr := TMapReader_1.Create();