1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. slavon-x86

    slavon-x86 Well-Known Member

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

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

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

    ProgeRock Гость

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

    ProgeRock Гость

    Репутация:
    0
    Можно сделать так
    Код:
    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.204
  2. slavon-x86
    Ответов:
    10
    Просмотров:
    4.896
  3. slavon-x86
    Ответов:
    3
    Просмотров:
    2.361

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