![]() |
![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Youtube | Vkontakte | KubaLibre | Shareman | Down-House |
![]() ![]() |
![]() |
DunasTu |
![]()
Сообщение
#21
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
Отдуши ![]() -------------------- |
Petunchik |
![]()
Сообщение
#22
|
![]() Домовой ![]() ![]() ![]() Группа: Домовые Сообщений: 110 Регистрация: 24.10.2006 Пол: Мужской Репутация: ![]() ![]() ![]() |
как заставить DElphi7 работать с jpg картинками? компонент Image выдает ошибку..
-------------------- Никогда не дерись с тем, кому нечего терять: это неравный поединок.
Мудрый ценит всех, ибо в каждом замечает хорошее.(Кальдерон де ла Барка Педро) ICQ: 271177688(High Eagle) Стучите, чем смогу, помогу.. )) Ветер в крылья!! |
Pushistik |
![]()
Сообщение
#23
|
Кто Я?! ![]() Группа: Домовые Сообщений: 23 Регистрация: 3.4.2007 Живет: 25 квартал Пол: Мужской Репутация: ![]() ![]() ![]() |
Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее....
![]() -------------------- Лучше короткое слово горькой правды, чем долгие дни бесплотной надежды...
|
Bulvinkole |
![]()
Сообщение
#24
|
Домовой ![]() ![]() ![]() Группа: Домовые Сообщений: 104 Регистрация: 10.3.2007 Пол: Домовой Репутация: ![]() ![]() ![]() |
Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее.... ![]() Вот пример создания динамического списка... ![]() unit bul_och; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; // строчка, для завполнения (может быть что угодно - например Ф.И.О)*1 Edit2: TEdit; // строчка, для завполнения (может быть что угодно - например год рождения)*2 Button1: TButton; // кнопка добавления в список Button2: TButton; // кнопка для показа списка procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} type TPStudent = ^TStudent; //тип TStudent для указателя TStudent = record f_name: string[20]; // *1 l_name: string[20]; // *2 next: TPStudent; // следующий элемент списка end; var head: TPStudent; // начало списка (шапка) // добавление нового элемента в начало списка procedure TForm1.Button1Click(Sender: TObject); var curr: TPStudent; // создание нового элемента для списка begin new(curr); // выделение памяти для нового элемента curr^.f_name := Edit1.Text; curr^.l_name := Edit2.Text; // добавление нового элемента в начало списка curr^.next := head; head := curr; // очищает поля ввода Edit1.text := ′′; Edit2.text := ′′; end; // показывает весь список procedure TForm1.Button2Click(Sender: TObject); var curr: TPStudent; // элемент списка n: integer; // колличество элементов списка st: string; // строковый вывод списка begin n := 0; st := ′′; curr := head; while curr <> nil do begin n := n + 1; st := st + curr^.f_name + ′ ′ + curr^.l_name + #13; curr := curr^.next; end; if n <> 0 then ShowMessage(′Список:′ + #13 + st) else ShowMessage(′Список пуст.′); end; end. |
Deja Vu |
![]()
Сообщение
#25
|
![]() Мастер Домовой ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 521 Регистрация: 9.5.2007 Живет: ´´´´´´ Пол: Женский Репутация: ![]() ![]() ![]() |
|
Saferot |
![]()
Сообщение
#26
|
![]() Где Я?! Группа: Домовые Сообщений: 2 Регистрация: 16.5.2007 Пол: Мужской Репутация: ![]() ![]() ![]() |
Народ ни у кого нет какойнить версии Delphi просто я уже замучился в нэте искать:( если есть скиньте на мыло
[email protected]. !! ПЛИЗ ОЧ НАДО!! |
Makvit |
![]()
Сообщение
#27
|
![]() Где Я?! ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 4 851 Регистрация: 10.10.2006 Живет: в астрале Пол: Домовой Репутация: ![]() ![]() ![]() |
o_0. Образ диска на мыло я тебе скидывать не буду )
а так зайди на ftp://flashback.kazandom.ru/incoming/Programming/Delphi там вроде и дистриб есть -------------------- Цитата Смайлики http://www.artlebedev.ru/kovodstvo/sections/143/#17... Смайлик отбивается от слова пробелом. Если после смайлика идет знак препинания, он пробелом не отбивается. Точка после смайлика обычно не ставится. Смайлик может быть совмещен с обычной закрывающей скобкой (при условии, что она где-то открылась :-) |
DunasTu |
![]()
Сообщение
#28
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
Люди нужно инфу про Стэки если есть у кого нить закиньте плизз
-------------------- |
Makvit |
![]()
Сообщение
#29
|
![]() Где Я?! ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 4 851 Регистрация: 10.10.2006 Живет: в астрале Пол: Домовой Репутация: ![]() ![]() ![]() |
Что именно интересует? Ничего из материалов нет, но можно самим что-нить вспомнить
![]() -------------------- Цитата Смайлики http://www.artlebedev.ru/kovodstvo/sections/143/#17... Смайлик отбивается от слова пробелом. Если после смайлика идет знак препинания, он пробелом не отбивается. Точка после смайлика обычно не ставится. Смайлик может быть совмещен с обычной закрывающей скобкой (при условии, что она где-то открылась :-) |
Astynax84 |
![]()
Сообщение
#30
|
![]() Опытный Домовой ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: ![]() ![]() ![]() |
Люди нужно инфу про Стэки если есть у кого нить закиньте плизз Ты, и в самом деле, приведи конкретный пример. А то "инфу про стеки". И именно про стеки (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" У меня все сразу заработало ![]() ![]() -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
![]()
Сообщение
#31
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
Ты, и в самом деле, приведи конкретный пример. А то "инфу про стеки". И именно про стеки (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" У меня все сразу заработало ![]() ![]() Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет. Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз. -------------------- |
Astynax84 |
![]()
Сообщение
#32
|
![]() Опытный Домовой ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: ![]() ![]() ![]() |
Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет. Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз. Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей ![]() -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
![]()
Сообщение
#33
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей ![]() а смысл? ![]() -------------------- |
Astynax84 |
![]()
Сообщение
#34
|
![]() Опытный Домовой ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: ![]() ![]() ![]() |
а смысл? ![]() Ну тебе же нужен стек комплексных чисел? А их лучше всё-таки раскладывать на реальную и мнимую составляющие - операции с КЧ в таком виде давно подробно описаны в учебниках ![]() ![]() З.Ы. Ты приведи таки конкретный пример - всем проще будет ![]() -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
![]()
Сообщение
#35
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
ну допустим про стэк я вразумел
![]() -------------------- |
Astynax84 |
![]()
Сообщение
#36
|
![]() Опытный Домовой ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: ![]() ![]() ![]() |
ну допустим про стэк я вразумел ![]() Стек комплексных чисел в виде объектов - изврат полный ИМХО ![]() ![]() Но кто мешает назвать структуру {StackItem = record...end} объектом? А вот объект-стек это уже что-то. Но зачем нужен объект с 1 свойством (кол-во элементов) и 2 методами (добавление/изъятие). Не нужно всё это ![]() Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова! А далее - в зависимости от условий ![]() Без конкретного описания задания - больше ничего не выжать. -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
![]()
Сообщение
#37
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова! А вот за это спс. З.Ы. Потом еще обращусь если че ![]() -------------------- |
Petunchik |
![]()
Сообщение
#38
|
![]() Домовой ![]() ![]() ![]() Группа: Домовые Сообщений: 110 Регистрация: 24.10.2006 Пол: Мужской Репутация: ![]() ![]() ![]() |
Действия. Компонент TActionList
Это про что? Для чего необходимо? -------------------- Никогда не дерись с тем, кому нечего терять: это неравный поединок.
Мудрый ценит всех, ибо в каждом замечает хорошее.(Кальдерон де ла Барка Педро) ICQ: 271177688(High Eagle) Стучите, чем смогу, помогу.. )) Ветер в крылья!! |
Inhuman |
![]()
Сообщение
#39
|
![]() Опытный Домовой ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 349 Регистрация: 20.10.2006 Пол: Домовой Репутация: ![]() ![]() ![]() |
Действия. Компонент TActionList Это про что? Для чего необходимо? Для того, чтобы навешивать одинаковую функциональность на несколько мест сразу - меню, кнопка, горячая клавиша. -------------------- «Вчера это была драма... Сегодня достаточно щепотки диастазического средства фирмы «Джонсон», и ковер как новенький»
|
DunasTu |
![]()
Сообщение
#40
|
still standing... ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: ![]() ![]() ![]() |
Действия. Компонент TActionList Это про что? Для чего необходимо? типа шаблона -------------------- |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 14.6.2024, 7:04 |