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:
Christian Hammacher
2005-12-01 16:30:26 +00:00
parent 83d2e1a510
commit 507a901a9e
8 changed files with 17 additions and 14 deletions

View File

@ -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;