Delphi Опции

[Makvit]

Кто-нить может подсказать, как работать с классом TThread? (мультипоточность)

[Makvit]

o_0. Образ диска на мыло я тебе скидывать не буду )
а так зайди на ftp://flashback.kazandom.ru/incoming/Programming/Delphi
там вроде и дистриб есть

[DunasTu]

Люди нужно инфу про Стэки если есть у кого нить закиньте плизз

[Astynax84]

Люди нужно инфу про Стэки если есть у кого нить закиньте плизз

Ты, и в самом деле, приведи конкретный пример.
А то "инфу про стеки". И именно про стеки (LIFO)? Не про очереди (FIFO)?

Впрочем, приведу пример стека в простейшем виде.
Будет стек целых (integer) чисел.

Код

// Стек целых чисел (integer)
unit Stack;

interface

type
  // указатель на элемент стека
  PStackItem = ^TStackItem;

  // собственно, элемент стека
  TStackItem = record
    Value: integer;  // уначение
    PrevItem: PStackItem;  // указатель на предыдующий элемент. У первого элемента (в самом низу стека) PrevItem = nil
  end;

// процедура добавления числа в стек
procedure PushItem(var Stack: PStackItem; Value: integer);

// функция извлечения последного (верхнего) числа из стека
function PopItem(var Stack: PStackItem): integer;

implementation

procedure PushItem(var Stack: PStackItem; Value: integer);
var
  TmpItem: PStackItem;
begin
  // выделяем памят под новый элемент
  GetMem(TmpItem, SizeOf(TmpItem));

  // заполняем поле значения
  TmpItem^.Value := Value;

  // добавляем к данному элементу ссылку на предыдущий элемент
  TmpItem^.NextItem := Stack;
  
  // присваиваем указателю на сам стек указатель на новый элемент
  Stack := TmpItem;
end;

function PopItem(var Stack: PStackItem): integer;
var
  TmpItem: PStackItem;
begin
  // проверяем, не пуст ли стек
  if Stack = nil then

    // стек пуст - возвращаем "-1"
    Result := -1

  else begin

    // стек не пуст
    // получаем указатель на верхний элемент стека
    TmpItem := Stack;

    // получаем результат - значение элемента (целое число)
    Result := Stack^.Value;

    // передвигаемся к предыдущему элементу в стеке
    Stack := Stack^.NextItem;

    // освобождаем память, занимаемую извлеченным элементом
    Dispose(TmpItem);

  end;
end;

end.

Работаем со стеком так:

Создаем переменную - указатель на элемент стека:

Код

var
  Stack: PStackItem;

Обнуляем на всякий случай:

Код

Stack := nil;

Добавляем, к примеру, 3 числа:

Код

PushItem(Stack, 100);
PushItem(Stack, 200);
PushItem(Stack, 300);

Извлекаем все элементы из стека и выводим на печать:

Код

repeat
  WriteLn(PopItem(Stack));
until Stack = nil;

Получим:
"300"
"200"
"100"

У меня все сразу заработало Набирал параллельно в Delphi

[DunasTu]

Ты, и в самом деле, приведи конкретный пример.
А то "инфу про стеки". И именно про стеки (LIFO)? Не про очереди (FIFO)?

Впрочем, приведу пример стека в простейшем виде.
Будет стек целых (integer) чисел.

Код

// Стек целых чисел (integer)
unit Stack;

interface

type
  // указатель на элемент стека
  PStackItem = ^TStackItem;

  // собственно, элемент стека
  TStackItem = record
    Value: integer;  // уначение
    PrevItem: PStackItem;  // указатель на предыдующий элемент. У первого элемента (в самом низу стека) PrevItem = nil
  end;

// процедура добавления числа в стек
procedure PushItem(var Stack: PStackItem; Value: integer);

// функция извлечения последного (верхнего) числа из стека
function PopItem(var Stack: PStackItem): integer;

implementation

procedure PushItem(var Stack: PStackItem; Value: integer);
var
  TmpItem: PStackItem;
begin
  // выделяем памят под новый элемент
  GetMem(TmpItem, SizeOf(TmpItem));

  // заполняем поле значения
  TmpItem^.Value := Value;

  // добавляем к данному элементу ссылку на предыдущий элемент
  TmpItem^.NextItem := Stack;
  
  // присваиваем указателю на сам стек указатель на новый элемент
  Stack := TmpItem;
end;

function PopItem(var Stack: PStackItem): integer;
var
  TmpItem: PStackItem;
begin
  // проверяем, не пуст ли стек
  if Stack = nil then

    // стек пуст - возвращаем "-1"
    Result := -1

  else begin

    // стек не пуст
    // получаем указатель на верхний элемент стека
    TmpItem := Stack;

    // получаем результат - значение элемента (целое число)
    Result := Stack^.Value;

    // передвигаемся к предыдущему элементу в стеке
    Stack := Stack^.NextItem;

    // освобождаем память, занимаемую извлеченным элементом
    Dispose(TmpItem);

  end;
end;

end.

Работаем со стеком так:

Создаем переменную - указатель на элемент стека:

Код

var
  Stack: PStackItem;

Обнуляем на всякий случай:

Код

Stack := nil;

Добавляем, к примеру, 3 числа:

Код

PushItem(Stack, 100);
PushItem(Stack, 200);
PushItem(Stack, 300);

Извлекаем все элементы из стека и выводим на печать:

Код

repeat
  WriteLn(PopItem(Stack));
until Stack = nil;

Получим:
"300"
"200"
"100"

У меня все сразу заработало Набирал параллельно в Delphi

Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет.
Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз.

[Astynax84]

Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет.
Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз.

Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей Или я не так задачу понял?

[DunasTu]

Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей Или я не так задачу понял?

а смысл?