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

Тема в разделе "Delphi - Система", создана пользователем slavon-x86, 23 апр 2008.

  1. slavon-x86

    slavon-x86 Well-Known Member

    Регистрация:
    18 дек 2005
    Сообщения:
    216
    Симпатии:
    0
    есть тип

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

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

    ProgeRock Гость

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

    ProgeRock Гость

    Можно сделать так
    Код (Text):
    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;
     
Загрузка...
Похожие Темы - Спецефическая переменная
  1. IvanFuture
    Ответов:
    0
    Просмотров:
    1.163
  2. slavon-x86
    Ответов:
    10
    Просмотров:
    4.849
  3. slavon-x86
    Ответов:
    3
    Просмотров:
    2.305

Поделиться этой страницей