fix, range violation introduced in f5e5167ebde45881cecf959aecbe42b5bcb33260

This commit is contained in:
Basile Burg 2015-08-13 15:09:20 +02:00
parent 20ef73bb57
commit 1fb0c2b432
1 changed files with 2 additions and 1 deletions

View File

@ -364,7 +364,8 @@ begin
updateServerlistening;
for str in fTempLines do
begin
if (length(str) < 9) and AnsiSameText(str[1..5], 'DITTO') then
i := length(str);
if (i > 4) and (i < 9) and AnsiSameText(str[1..5], 'DITTO') then
continue;
aComment += ReplaceStr(str, '\n', LineEnding);
end;