помогите дописать функцию замены порта

[beegl]

примерно так, .. если СОМ4 то СОМ5 результат. Взял массив. Помогите дописать, чтоб заменяла порт

function DecToCOM(Decimal: String): string;
const
  DefCOM: array[1..50] of string =
  ('COM1', 'COM2', 'COM3', 'COM4', 'COM5', 'COM6', 'COM7', 'COM8', 'COM9', 'COM10', 'COM11', 'COM12', 'COM13', 'COM14', 'COM15',
  'COM16', 'COM17', 'COM18', 'COM19', 'COM20', 'COM21', 'COM22', 'COM23', 'COM24', 'COM25', 'COM26', 'COM27', 'COM28', 'COM29', 'COM30',
  'COM31', 'COM32', 'COM33', 'COM34', 'COM35', 'COM36', 'COM37', 'COM38', 'COM39', 'COM40', 'COM41', 'COM42', 'COM43', 'COM44', 'COM45',
  'COM46', 'COM47', 'COM48', 'COM49', 'COM50');

  NeedCOM: array[1..50] of String =
  ('COM2', 'COM3', 'COM4', 'COM5', 'COM6', 'COM7', 'COM8', 'COM9', 'COM10', 'COM11', 'COM12', 'COM13', 'COM14', 'COM15',
  'COM16', 'COM17', 'COM18', 'COM19', 'COM20', 'COM21', 'COM22', 'COM23', 'COM24', 'COM25', 'COM26', 'COM27', 'COM28', 'COM29', 'COM30',
  'COM31', 'COM32', 'COM33', 'COM34', 'COM35', 'COM36', 'COM37', 'COM38', 'COM39', 'COM40', 'COM41', 'COM42', 'COM43', 'COM44', 'COM45',
  'COM46', 'COM47', 'COM48', 'COM49', 'COM50', 'COM51');
var
  i: Integer;
  scratch: string;
begin
  scratch := '';
  for i := 13 downto 1 do
    while (Decimal >= NeedCOM[i]) do
    begin
//      Decimal := Decimal - NeedCOM[i];
      scratch := scratch + DefCOM[i];
    end;
  Result := scratch;
end;

[newerow1989]

А покороче никак нельзя, например:

var DefCOM,NeedCOM:array of string;
    i:integer;
...........
   SetLength(DefCOM,50);
   SetLength(NeedCOM,50);
   For i:=0 to 49 do
   begin
      DefCOM[i]:='COM'+IntToStr(i+1);
      NeedCOM[i]:='COM'+IntToStr(i+2);
   end;

если СОМ4 то СОМ5 результат

Так что ли:

   For i:=0 to 49 do
      If Decimal=DefCOM[i] then
      begin
         Result:=NeedCOM[i];
         Exit;
      end;

[beegl]

Сообщение от newerow1989

Так что ли:

   For i:=0 to 49 do
      If Decimal=DefCOM[i] then
      begin
         Result:=NeedCOM[i];
         Exit;
      end;

так будет заменять?

function DecToCOM(Decimal: String): string;
var
  i: Integer;
  DefCOM,NeedCOM:array of string;
begin
   SetLength(DefCOM,50);
   SetLength(NeedCOM,50);
      For i:=0 to 49 do
      If Decimal=DefCOM[i] then
      begin
         Result:=NeedCOM[i];
         Exit;
      end;
end;

не заменяет, пустое сообщение:

showmessage(DecToCOM(nrCommTAPI1.Device[SetIndexFx].PortName));

[newerow1989]

function DecToCOM(Decimal: String): string;
var
  i: Integer;
  DefCOM,NeedCOM:array of string;
begin
   SetLength(DefCOM,50);
   SetLength(NeedCOM,50);
   For i:=0 to 49 do
   begin
      DefCOM[i]:='COM'+IntToStr(i+1);
      NeedCOM[i]:='COM'+IntToStr(i+2);
   end;
   Result:='';//это если введешь COM542
   For i:=0 to 49 do
      If Decimal=DefCOM[i] then
      begin
         Result:=NeedCOM[i];
         Exit;
      end;
end;

[BDA]

Если преобразование настолько линейно:

function DecToCOM(Decimal: String): string;
var
  i: Integer;
begin
  i := StrToIntDef(copy(Decimal, 4, length(Decimal) - 3), -1);
  if (copy(Decimal, 1, 3) = 'COM') and (i >= 1) and (i <= 50) then
    result := 'COM' + IntToStr(i + 1)
  else
    result := '';
end;

[beegl]

спасибо большое, получилось, .. протестируйте пожалуйста, не будет ошибок при запуске программы? .. или ещё что-то .. (тестировал на Win XP SP3 и в VirtualBox на Win 8, ошибок нет)

https://sourceforge.net/projects/intertelecomsc/

[newerow1989]

Ошибки в Windows 7 Домашняя базовая

[beegl]

Сообщение от newerow1989

Ошибки в Windows 7 Домашняя базовая

Спасибо, за помощь в тестировании, и за функцию, преобразования СОМ порта.
Обновил, как сейчас? .. (ссылка 1) или (ссылка 2)

И ещё такой вопрос, у Win 7, может быть такое, что не показывает Аренду соединения?

ipconfig /allcompartments /all
или ipconfig /all

здесь спрашивал: (ссылка)

[newerow1989]

Та же самая ошибка

у Win 7, может быть такое, что не показывает Аренду соединения?

У меня нету такого (при USB-модеме)

[beegl]

Сообщение от newerow1989

У меня нету такого (при USB-модеме)

а в командной строке также не показывает Аренду? .. вот это из-за этого наверное ошибка. Придётся искать новый алгоритм поиска Аренды, пока только через командную строку беру)