Changed a few language strings (again) to English
Fixed bug in the replace system Fixed bug in the Autcomplete Check Changed version number to 1.4
This commit is contained in:
@ -456,10 +456,11 @@ var eStr: String;
|
||||
begin
|
||||
Result := 0;
|
||||
eStr := StringReplace(frmMain.sciEditor.Lines[frmMain.sciEditor.GetCurrentLineNumber], '^"', '', [rfReplaceAll]);
|
||||
eStr := Copy(eStr, 1, frmMain.sciEditor.GetCaretInLine);
|
||||
while Between(eStr, '"', '"') <> '' do
|
||||
eStr := StringReplace(eStr, Between(eStr, '"', '"'), '', [rfReplaceAll]);
|
||||
while Between(eStr, '{', '}') <> '' do
|
||||
eStr := StringReplace(eStr, Between(eStr, '"', '"'), '', [rfReplaceAll]);
|
||||
eStr := StringReplace(eStr, Between(eStr, '{', '}'), '', [rfReplaceAll]);
|
||||
for i := 0 to Length(eStr) -1 do begin
|
||||
if eStr[i] = ',' then
|
||||
Result := Result +1;
|
||||
|
Reference in New Issue
Block a user