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

slavon-x86

Well-known member
18.12.2005
215
0
#1
есть тип

Код:
 THTTPInfo = record
Spec: Integer;
Server: String[255];
end;
Можно ли как нибудь создать массив этих типов, но чтобы можно было удалять !
К примеру, когда я удалияю 3-й элемент, то все остальные сдвигаються.

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

ProgeRock

#3
Можно сделать так
Код:
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;