Освободить порт в массиве

[Shouldercannon]

Имеется

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    BP3: TButton;
    BP1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    BP2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BP3Click(Sender: TObject);
    procedure BP1Click(Sender: TObject);
    procedure BP2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TPorts = Record
    Port: Integer;
    Available: Boolean;
  end;

var
  Form1: TForm1;
  Ports: Array[1..6] of TPorts;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  // Создадим массив с портами для передачи файлов (1000-1005)
  for I := 1 to Length(Ports) do
  begin
    Ports[I].Port := 999 + I;
    Ports[I].Available := True;
  end;
end;

procedure TForm1.BP1Click(Sender: TObject);
  procedure TakePort(Port: Integer);
  var
    I: Integer;
  begin
    for I := 1 to Length(Ports) do
    begin
      if Ports[I].Port = Port then
      begin
        Ports[I].Available := False;
        Break;
      end;
    end;
  end;
begin
  TakePort(StrToIntDef(Edit1.Text, -1));
end;

procedure TForm1.BP2Click(Sender: TObject);
  procedure ReleasePort(Arr: Array of TPorts; Port: Integer);
  var
    I: Integer;
  begin
    for I := 1 to Length(Arr) do
    begin
      if Arr[I].Port = Port then
      begin
        Arr[I].Available := True;
        Break;
      end;
    end;
  end;
begin
  ReleasePort(Ports, StrToIntDef(Edit1.Text, -1));
end;

procedure TForm1.BP3Click(Sender: TObject);
  function GetPort: Integer;
  var
    I: Integer;
  begin
    Result := -1;

    for I := 1 to Length(Ports) do
    begin
      if Ports[I].Available then
      begin
        Result := Ports[I].Port;
        Break;
      end;
    end;
  end;
begin
  ShowMessage(IntToStr(GetPort));
end;

end.

Процедура освобождения порта ReleasePort при первом входе в цикл

if Arr[I].Port = Port then

начинает проверку сразу с 1001 порта вместо 1000
Так

  procedure ReleasePort(Arr: Array of TPorts; Port: Integer);
  var
    I: Integer;
  begin
    for I := 0 to Length(Arr) - 1 do
    begin
      if Arr[I].Port = Port then
      begin
        Arr[I].Available := True;
        Break;
      end;
    end;
  end;

самый первый порт (1000) хоть и попадает под проверку, но не освобождается

[kropotkina-alice]

Ну посмотрите внимательно - как это стыкуется???

Ports: Array[1..6] of TPorts;

и

for I := 0 to Length(Arr) - 1 do

Ведь до последнего момента у вас было верно:

for I := 1 to Length(Ports) do

[Shouldercannon]

При 1 to длина массива первый порт не захватывается, сразу с 1001 проверка идёт

[Аватар]

ReleasePort(Arr: Array of TPorts; Port: Integer);

А зачем массив параметром передаешь? Он же и так у тебя глобальный и доступен всему чему не лень.

самый первый порт (1000) хоть и попадает под проверку, но не освобождается

А чего ему освобождаться? Передана копия массива и изменения в процедуре не отразятся на источнике

[Shouldercannon]

Сообщение от Аватар

А зачем массив параметром передаешь? Он же и так у тебя глобальный и доступен всему чему не лень.

Хотел перенести данную процедуру во внутрь другой, но понял, что это плохое решение

[Аватар]

type
  TPorts = Record
    Port: Integer;
    Available: Boolean;
  end;
  TMyArray = Array[1..6] of TPorts;

var
  Form1: TForm1;
  Ports: TMyArray;

procedure ReleasePort(var Arr: TMyArray; Port: Integer);

for I := 0 to Length(Arr) - 1 do

[Shouldercannon]

В самый раз