VPF::Тип данных в стиле стека - Форум программистов

Gorcer

Дата 23.7.2004, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 30.6.2004
Где: Владивосток

Репутация: нет
Всего: 4

Как в Delphi реализовать данные в виде стека, тоесть........

Я хочу добавлять в конец массива данные, и при удалении какихто данных из середины масива. он должен сдвигаться,......

Методы сортировки и сдвигов массива непредлагайте!

--------------------

Больнее всего получить удар от человека которому доверяешь.

<удалено администрацией>

<Spawn>

Дата 23.7.2004, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Gorcer Используй класс TStack из модуля Contnrs.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Gorcer

Дата 23.7.2004, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 30.6.2004
Где: Владивосток

Репутация: нет
Всего: 4

Огромное спасибо, а я ищу просто Stek, и нифига немогу найти.
Чтоб я без вашего форума бы делал?

--------------------

Больнее всего получить удар от человека которому доверяешь.

<удалено администрацией>

Sardar

Дата 23.7.2004, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Бегун

Профиль
Группа: Модератор
Сообщений: 6986
Регистрация: 19.4.2002
Где: Нидерланды, Groni ngen

Репутация: 2
Всего: 317

Вроде простой связанный список должен быть...

--------------------

Опыт - сын ошибок трудных © А. С. Пушкин
Процесс написания своего велосипеда повышает профессиональный уровень программиста. © Opik
Оценить мои качества можно тут.

Dynamic

Дата 25.7.2004, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Цитата

Имхо, если данные можно удалять из середины стека, то это уже не стек.

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

Gorcer

Дата 27.7.2004, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 30.6.2004
Где: Владивосток

Репутация: нет
Всего: 4

Нехочу показаться ламером (хотя это неизбежно) но как правильно push и pull делать?

Есть

Код


TMyRecord= record
ProcName:string;
ProcParam:array of Variant;
end;

Var
Stek:array of TMyRecord

Хочу, чтобы у меня всё это было не в массиве а в стеке!

Стек содержит только указатели на переменные

Как мне вставлять Туда записи и брать их оттудова?

Помогите плиз, а то я даже непредставляю как это правильно сделать, все мои начинания заканчивались тупиками

--------------------

Больнее всего получить удар от человека которому доверяешь.

<удалено администрацией>

Dynamic

Дата 27.7.2004, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Вобщем, я думаю, что-то типа этого:

Код

uses ...,  cntnrs;

type
    PMyRecord = ^TMyRecord;
    TMyRecord= record
     ProcName:string;
     ProcParam:array of Variant;
    end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Stack: TStack;
  public
    procedure Push(P: PMyRecord);
    function Pop: PMyRecord;
    procedure AddToStack(MyRec: TMyRecord);
    procedure GetFromStack(var MyRec: TMyRecord);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
     Stack := TStack.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Stack.Free;
end;

function TForm1.Pop: PMyRecord;
begin
     Result := PMyRecord(Stack.Pop);
end;

procedure TForm1.Push(P: PMyRecord);
begin
     Stack.Push(P);
end;

procedure TForm1.AddToStack(MyRec: TMyRecord);
var p: PMyRecord;
    len: integer;
begin
     New(p);
     with p^ do
     begin
       ProcName := 'Proc1';
       len := Length(ProcParam) + 1;
       SetLength(ProcParam, len);
       ProcParam[len] := 'MyParam';
     end;
     Push(p);
end;

procedure TForm1.GetFromStack(var MyRec: TMyRecord);
begin
     MyRec := Pop^;
end;

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

Gorcer

Дата 27.7.2004, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 30.6.2004
Где: Владивосток

Репутация: нет
Всего: 4

Болшьшое спасибо!

--------------------

Больнее всего получить удар от человека которому доверяешь.

<удалено администрацией>

Петрович

Дата 29.7.2004, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Вообще то, в модуле Contnrs есть тип TStack реализующий функциональность стека.

--------------------

Все знать невозможно, но хочется

Dynamic

Дата 29.7.2004, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Именно он и был использован в примере, посмотрите внимательней. А также вопрос, предшествующий примеру.

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »