|
@@ -39,6 +39,7 @@ begin
|
|
if f=-1 then
|
|
if f=-1 then
|
|
Error('Creating utf8string');
|
|
Error('Creating utf8string');
|
|
FileClose(f);
|
|
FileClose(f);
|
|
|
|
+ DeleteFile(u);
|
|
end
|
|
end
|
|
else
|
|
else
|
|
warn('utf8string');
|
|
warn('utf8string');
|
|
@@ -52,6 +53,7 @@ begin
|
|
if f=-1 then
|
|
if f=-1 then
|
|
Error('Creating tcpstr866');
|
|
Error('Creating tcpstr866');
|
|
FileClose(f);
|
|
FileClose(f);
|
|
|
|
+ DeleteFile(c);
|
|
end
|
|
end
|
|
else
|
|
else
|
|
warn('tcpstr866');
|
|
warn('tcpstr866');
|
|
@@ -72,6 +74,7 @@ begin
|
|
if f=-1 then
|
|
if f=-1 then
|
|
Error('Creating unicodestring 1');
|
|
Error('Creating unicodestring 1');
|
|
FileClose(f);
|
|
FileClose(f);
|
|
|
|
+ DeleteFile(u);
|
|
end
|
|
end
|
|
else
|
|
else
|
|
warn('random unicodestring');
|
|
warn('random unicodestring');
|
|
@@ -83,6 +86,7 @@ begin
|
|
if f=-1 then
|
|
if f=-1 then
|
|
Error('Creating unicodestring 2');
|
|
Error('Creating unicodestring 2');
|
|
FileClose(f);
|
|
FileClose(f);
|
|
|
|
+ DeleteFile(u);
|
|
end
|
|
end
|
|
else
|
|
else
|
|
warn('cp866 unicodestring');
|
|
warn('cp866 unicodestring');
|