diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index 01a27b05ef21ccb9dcd247b8ce654884afce96c0..22e318ab4a442a24e36759d25e764053a2011e03 100644 (file)
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
b: array of string;
str: string;
begin
+{
SetLength(Result, 0);
SetLength(b, 0);
if TextLen(str) > MaxWidth then
begin // Òåêóùàÿ ñòðîêà ñëèøêîì äëèííàÿ => ðàçáèâàåì
- while str <> '' do
+ while (str[0] <> #0) and (str <> '') do
begin
SetLength(Result, Length(Result)+1);
Result[High(Result)] := str;
end;
end;
+}
+ Result := nil
end;
procedure Sort(var a: SSArray);