fixed bug at45362

This commit is contained in:
Christian Hammacher 2006-09-30 18:49:28 +00:00
parent c2695a8cd8
commit 461e7de151
2 changed files with 1 additions and 1 deletions

Binary file not shown.

View File

@ -176,7 +176,7 @@ begin
eTempIndent := eTempIndent +1;
end;
end
else if (eStr[i] = 'else') or (Pos('else if', eStr[i]) = 1) and (Pos('{', eStr[i]) = 0) then
else if (eStr[i] = 'else') or ((Pos('else if', eStr[i]) = 1) or (Pos('case', eStr[i]) = 1) or (Pos('switch', eStr[i]) = 1)) and (Pos('{', eStr[i]) = 0) then
eTempIndent := eTempIndent +1
else if (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 6) then begin
if (IsAtStart('stock', eStr[i], False)) or (IsAtStart('while', eStr[i], True)) then begin