Спецефическая переменная

[slavon-x86]

есть тип

 THTTPInfo = record
Spec: Integer;
Server: String[255];
end;

Можно ли как нибудь создать массив этих типов, но чтобы можно было удалять !
К примеру, когда я удалияю 3-й элемент, то все остальные сдвигаються.

Т.е. по типу как TStringList, но только чтобы всечто String был мой тип.

 

[ProgeRock]

Используйте динамический массив

 

[ProgeRock]

Можно сделать так

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
HTTPInfo: array of ^THTTPInfo;
begin
SetLength(HTTPInfo, {элементов});
for I := 0 to {элементов} do
begin
New(HTTPInfo[I]);
HTTPInfo[I]^.Spec:= I;
HTTPInfo[I]^.Server:= IntTostr(I);
end;
Dispose(HTTPInfo[3]);
for I:=3 to {элементов}-1 do
HTTPInfo[I]^:=HTTPInfo[I+1]^;
Dispose(HTTPInfo[{элементов}]);
SetLength(HTTPInfo, {элементов}-1);
end;