- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
function THandlerServerCommands.CheckCommandOnDigits(const AComand: string;
var AIndex: integer): Boolean;
var
i, k: Integer;
Nn, Ln: integer;
TempComand: string;
begin
Result := False;
try
TempComand := AComand;
Ln := 1;
Nn := 0;
if FServerCommands.Find(TempComand, i) then
begin
AIndex := i;
Result := True;
Exit;
end;
for k := 1 to Length(AComand) do
begin
if not (AComand[k] in ['0'..'9']) then
inc(Nn)
else
begin
inc(Nn);
if Nn > Ln then
begin
TempComand := '';
TempComand := Copy(AComand, 1, Nn - 1);
if FServerCommands.Find(TempComand, i) then
begin
AIndex := i;
Result := True;
Break;
end;
end;
Ln := Nn + 1;
end;
end;
except
on e: Exception do
begin
Result := False;
LogEx.Error('Ошибка в процедуре CheckCommandOnDigits c параметрами AComand = ' + AComand + ' ' + e.Message);
end;
end;
end;
inc(Nn);
if (AComand[k] in ['0'..'9']) then begin
2. строка 29 не нужна.
3. Вместо i лучше юзать AIndex - вряд ли нужно его сохранять при неуспешном поиске.
4. Если не нашел предлагается AIndex = -1 для определенности.
5. 44-я строка не нужна, вообще посмотрите хинты и варнинги.
6. Лишняя переменная tempcommand - можно без нее.
7. условие в строке 27 вообще никогда выполняется - это косяка (возможно в строках 23 и 26)?
ЗЫ. правильно писать Command.
Приоритет полного соответствия строк, далее соответствия строки до цифры.
Например, список команд:
1 notreply_limit
2 notreply_limit2
3 timer1_func
функция
от notreply_limit2 вернёт 2
от notreply_limit вернёт 1
от notreply_limit3 вернёт 1
от timer1_func9 вернёт 3
Команды приходят в таком виде с сервера.
ProviderOptions142_comission_interval_2_ k1
142 - параметр от 1 до 500