Автор: slavon-x86 22:04:2008, 21:35
есть тип
Код
THTTPInfo = record
Spec: Integer;
Server: String[255];
end;
Можно ли как нибудь создать массив этих типов, но чтобы можно было удалять !
К примеру, когда я удалияю 3-й элемент, то все остальные сдвигаються.
Т.е. по типу как TStringList, но только чтобы всечто String был мой тип.
Автор: ProgeRock 23:04:2008, 00:00
Используйте динамический массив
Автор: ProgeRock 23:04:2008, 06:13
Можно сделать так
Код
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;
Автор: sax_ol 23:04:2008, 06:23
Собственно можно и TStringList использовать. Иногда даже лучше.