hedgewars/uConsole.pas
changeset 1277 752b53481057
parent 1242 4aca5f7b2504
child 1560 e140bc57ff68
equal deleted inserted replaced
1276:281f6aa9afba 1277:752b53481057
   204 	i: LongWord;
   204 	i: LongWord;
   205 begin
   205 begin
   206 i:= (CurrLine + cLinesCount - 2) mod cLinesCount;
   206 i:= (CurrLine + cLinesCount - 2) mod cLinesCount;
   207 Result:= ConsoleLines[i].s;
   207 Result:= ConsoleLines[i].s;
   208 
   208 
   209 //Result:= Result + #10;
   209 Result:= Result + #10;
   210 
   210 
   211 i:= (CurrLine + cLinesCount - 1) mod cLinesCount;
   211 i:= (CurrLine + cLinesCount - 1) mod cLinesCount;
   212 Result:= Result + ConsoleLines[i].s;
   212 Result:= Result + ConsoleLines[i].s;
   213 
   213 
   214 GetLastConsoleLine:= Result
   214 GetLastConsoleLine:= Result