Delphi |
Здравствуйте, гость ( Вход | Регистрация )
Youtube | Vkontakte | KubaLibre | Shareman | Down-House |
Delphi |
DunasTu |
25.12.2006, 16:55
Сообщение
#21
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
Отдуши -------------------- |
Petunchik |
27.3.2007, 12:46
Сообщение
#22
|
Домовой Группа: Домовые Сообщений: 110 Регистрация: 24.10.2006 Пол: Мужской Репутация: 0 |
как заставить DElphi7 работать с jpg картинками? компонент Image выдает ошибку..
-------------------- Никогда не дерись с тем, кому нечего терять: это неравный поединок.
Мудрый ценит всех, ибо в каждом замечает хорошее.(Кальдерон де ла Барка Педро) ICQ: 271177688(High Eagle) Стучите, чем смогу, помогу.. )) Ветер в крылья!! |
Pushistik |
15.4.2007, 20:05
Сообщение
#23
|
Кто Я?! Группа: Домовые Сообщений: 23 Регистрация: 3.4.2007 Живет: 25 квартал Пол: Мужской Репутация: 0 |
Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее....
-------------------- Лучше короткое слово горькой правды, чем долгие дни бесплотной надежды...
|
Bulvinkole |
15.4.2007, 22:07
Сообщение
#24
|
Домовой Группа: Домовые Сообщений: 104 Регистрация: 10.3.2007 Пол: Домовой Репутация: 0 |
Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее.... Вот пример создания динамического списка... 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 |
9.5.2007, 19:35
Сообщение
#25
|
Мастер Домовой Группа: Домовые Сообщений: 521 Регистрация: 9.5.2007 Живет: ´´´´´´ Пол: Женский Репутация: 15 |
|
Saferot |
16.5.2007, 12:52
Сообщение
#26
|
Где Я?! Группа: Домовые Сообщений: 2 Регистрация: 16.5.2007 Пол: Мужской Репутация: 0 |
Народ ни у кого нет какойнить версии Delphi просто я уже замучился в нэте искать:( если есть скиньте на мыло
[email protected]. !! ПЛИЗ ОЧ НАДО!! |
Makvit |
16.5.2007, 15:46
Сообщение
#27
|
Где Я?! Группа: Домовые Сообщений: 4 851 Регистрация: 10.10.2006 Живет: в астрале Пол: Домовой Репутация: -121 |
o_0. Образ диска на мыло я тебе скидывать не буду )
а так зайди на ftp://flashback.kazandom.ru/incoming/Programming/Delphi там вроде и дистриб есть -------------------- Цитата Смайлики http://www.artlebedev.ru/kovodstvo/sections/143/#17... Смайлик отбивается от слова пробелом. Если после смайлика идет знак препинания, он пробелом не отбивается. Точка после смайлика обычно не ставится. Смайлик может быть совмещен с обычной закрывающей скобкой (при условии, что она где-то открылась :-) |
DunasTu |
1.7.2007, 18:34
Сообщение
#28
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
Люди нужно инфу про Стэки если есть у кого нить закиньте плизз
-------------------- |
Makvit |
2.7.2007, 12:59
Сообщение
#29
|
Где Я?! Группа: Домовые Сообщений: 4 851 Регистрация: 10.10.2006 Живет: в астрале Пол: Домовой Репутация: -121 |
Что именно интересует? Ничего из материалов нет, но можно самим что-нить вспомнить
-------------------- Цитата Смайлики http://www.artlebedev.ru/kovodstvo/sections/143/#17... Смайлик отбивается от слова пробелом. Если после смайлика идет знак препинания, он пробелом не отбивается. Точка после смайлика обычно не ставится. Смайлик может быть совмещен с обычной закрывающей скобкой (при условии, что она где-то открылась :-) |
Astynax84 |
2.7.2007, 18:49
Сообщение
#30
|
Опытный Домовой Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: 0 |
Люди нужно инфу про Стэки если есть у кого нить закиньте плизз Ты, и в самом деле, приведи конкретный пример. А то "инфу про стеки". И именно про стеки (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 -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
8.7.2007, 15:49
Сообщение
#31
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
Ты, и в самом деле, приведи конкретный пример. А то "инфу про стеки". И именно про стеки (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 |
9.7.2007, 12:37
Сообщение
#32
|
Опытный Домовой Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: 0 |
Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет. Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз. Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей Или я не так задачу понял? -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
9.7.2007, 15:47
Сообщение
#33
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей Или я не так задачу понял? а смысл? -------------------- |
Astynax84 |
9.7.2007, 16:04
Сообщение
#34
|
Опытный Домовой Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: 0 |
а смысл? Ну тебе же нужен стек комплексных чисел? А их лучше всё-таки раскладывать на реальную и мнимую составляющие - операции с КЧ в таком виде давно подробно описаны в учебниках А можно хранить в экспоненциальной форме З.Ы. Ты приведи таки конкретный пример - всем проще будет -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
10.7.2007, 13:09
Сообщение
#35
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
ну допустим про стэк я вразумел ,ну насчет Complex Object и вабше объект с этим напряги блин, добавления св-ва там и все такое, ну добавления св-ва впринципе понятно,а вот чисто шаблон алгоритма, где процедуры, где ф-ии и вабще чем легче управлять про-й или ф-ей, или взависимости от условия?
-------------------- |
Astynax84 |
10.7.2007, 18:40
Сообщение
#36
|
Опытный Домовой Группа: Домовые Сообщений: 270 Регистрация: 28.11.2006 Живет: РФ, РТ, Казань Пол: Мужской Репутация: 0 |
ну допустим про стэк я вразумел ,ну насчет Complex Object и вабше объект с этим напряги блин, добавления св-ва там и все такое, ну добавления св-ва впринципе понятно,а вот чисто шаблон алгоритма, где процедуры, где ф-ии и вабще чем легче управлять про-й или ф-ей, или взависимости от условия? Стек комплексных чисел в виде объектов - изврат полный ИМХО Не наследоваться же от TObject Но кто мешает назвать структуру {StackItem = record...end} объектом? А вот объект-стек это уже что-то. Но зачем нужен объект с 1 свойством (кол-во элементов) и 2 методами (добавление/изъятие). Не нужно всё это Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова! А далее - в зависимости от условий Нужен калькулятор комплексных чисел - реализуешь математику КЧ. Нужны вычисления с использованием матриц КЧ - делаешь их. Без конкретного описания задания - больше ничего не выжать. -------------------- aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев) |
DunasTu |
11.7.2007, 0:07
Сообщение
#37
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова! А вот за это спс. З.Ы. Потом еще обращусь если че -------------------- |
Petunchik |
23.7.2007, 18:29
Сообщение
#38
|
Домовой Группа: Домовые Сообщений: 110 Регистрация: 24.10.2006 Пол: Мужской Репутация: 0 |
Действия. Компонент TActionList
Это про что? Для чего необходимо? -------------------- Никогда не дерись с тем, кому нечего терять: это неравный поединок.
Мудрый ценит всех, ибо в каждом замечает хорошее.(Кальдерон де ла Барка Педро) ICQ: 271177688(High Eagle) Стучите, чем смогу, помогу.. )) Ветер в крылья!! |
Inhuman |
23.7.2007, 19:36
Сообщение
#39
|
Опытный Домовой Группа: Домовые Сообщений: 349 Регистрация: 20.10.2006 Пол: Домовой Репутация: 0 |
Действия. Компонент TActionList Это про что? Для чего необходимо? Для того, чтобы навешивать одинаковую функциональность на несколько мест сразу - меню, кнопка, горячая клавиша. -------------------- «Вчера это была драма... Сегодня достаточно щепотки диастазического средства фирмы «Джонсон», и ковер как новенький»
|
DunasTu |
25.7.2007, 0:00
Сообщение
#40
|
still standing... Группа: Домовые Сообщений: 3 283 Регистрация: 23.12.2006 Живет: на пересечении улиц Дубравная иПр.Победы Пол: Мужской Репутация: 1 |
Действия. Компонент TActionList Это про что? Для чего необходимо? типа шаблона -------------------- |
Текстовая версия | Сейчас: 25.9.2024, 10:52 |