Exception: Disk Full during 50GB of free time

[soldat-game]

As you can see every three seconds performed, such repetitions is from 2-12 to evoke this error.

Code: [Select]

function RandomizeArray(Core: TStringList): TStringList;
var high, rand: integer;
begin
high := Core.Count;
while (high>0) do begin
rand := Random(0, high);
Result.Append(Core[rand]);
Core.Delete(rand);
high := (high-1);
end;
end;

procedure ForTestNewFunction();
var Temp, Temp2: TStringList; i:integer;
begin
Temp := File.CreateStringList;
Temp.Append('1');
Temp.Append('1');
Temp.Append('3');
Temp.Append('2');
Temp.Append('6');
Temp.Append('4');
Temp.Append('5');
Temp.Append('1');
Temp.Append('1');

WriteLn('Grupa Kontrolna:');
WriteLn('cos');
for i:= 0 to Temp.Count-1 do WriteLn(Temp[i]);

WriteLn('Random:');
Temp2 := File.CreateStringList;
Temp2:=RandomizeArray(Temp);
Temp.Free;
for i:= 0 to Temp2.Count-1 do WriteLn(Temp2[i]);
Temp2.Free;
end;

Code: [Select]

18-02-16 18:12:12 Grupa Kontrolna:
18-02-16 18:12:12 cos
18-02-16 18:12:12 1
18-02-16 18:12:12 1
18-02-16 18:12:12 3
18-02-16 18:12:12 2
18-02-16 18:12:12 6
18-02-16 18:12:12 4
18-02-16 18:12:12 5
18-02-16 18:12:12 1
18-02-16 18:12:12 1
18-02-16 18:12:12 Random:
18-02-16 18:12:12 6
18-02-16 18:12:12 1
18-02-16 18:12:12 4
18-02-16 18:12:12 1
18-02-16 18:12:12 1
18-02-16 18:12:12 2
18-02-16 18:12:12 3
18-02-16 18:12:12 1
18-02-16 18:12:12 5
18-02-16 18:12:17 Grupa Kontrolna:
18-02-16 18:12:17 cos
18-02-16 18:12:17 1
18-02-16 18:12:17 1
18-02-16 18:12:17 3
18-02-16 18:12:17 2
18-02-16 18:12:17 6
18-02-16 18:12:17 4
18-02-16 18:12:17 5
18-02-16 18:12:17 1
18-02-16 18:12:17 1
18-02-16 18:12:17 Random:
18-02-16 18:12:17 3
18-02-16 18:12:17 5
18-02-16 18:12:17 1
18-02-16 18:12:17 2
18-02-16 18:12:17 4
18-02-16 18:12:17 6
18-02-16 18:12:17 1
18-02-16 18:12:17 1
18-02-16 18:12:17 1
18-02-16 18:12:22 Grupa Kontrolna:
18-02-16 18:12:22  [*] [Deadmatch-1v1-Stats] Unhandled exception occured:
18-02-16 18:12:22  [*] [Deadmatch-1v1-Stats] In unit DM-stats.pas(1104:2) [FORTESTNEWFUNCTION]: Exception: Disk Full
18-02-16 18:12:22  [*] Disabling Deadmatch-1v1-Stats



[jrgp]

Is the disk actually full?

[soldat-game]

Read title 50GB FREE SPACE.  This compound has the IDP.Generic  trojan in soldatserver exe?

[jrgp]

Read title 50GB FREE SPACE.  This compound has the IDP.Generic  trojan in soldatserver exe?

Oh gotcha. The topic title says "free time" not "free space" which is why I was confused. Is that the full script? I could try to reproduce this.