IPB

Здравствуйте, гость ( Вход | Регистрация )


Youtube Vkontakte Mail Google KubaLibre Shareman Down-House

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

Объявления

А у нас появился женский раздел^^ Приглашаем всех к себе в гостиsmile3.gif
С уважением, Ваши девушки flirt.gif

Основные Провайдеры и поставщики Телекоммуникационных услуг г. Казань
Обсуждаем, делимся опытом, решаем текущие вопросы с представителями операторов связи

4 страниц V < 1 2 3 4 >  
Ответить в эту темуОткрыть новую тему
> Delphi
DunasTu
сообщение 25.12.2006, 16:55
Сообщение #21


still standing...
*******

Группа: Домовые
Сообщений: 3 283
Регистрация: 23.12.2006
Живет: на пересечении улиц Дубравная иПр.Победы

Пол: Мужской


Репутация:   1  


Цитата(Astynax84 @ 25.12.2006, 6:39) *

Тут побольше теперь. И на месяц smile3.gif
То, что было выше, тут тоже есть ;)

Если что - обращайся.

Отдуши good.gif


--------------------
Все умирают, но не все живут по-настоящему...

Изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
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  


Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее.... unsure.gif


--------------------
Лучше короткое слово горькой правды, чем долгие дни бесплотной надежды...
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Bulvinkole
сообщение 15.4.2007, 22:07
Сообщение #24


Домовой
***

Группа: Домовые
Сообщений: 104
Регистрация: 10.3.2007

Пол: Домовой


Репутация:   0  


Цитата(Pushistik @ 15.4.2007, 21:05) *

Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее.... unsure.gif


Вот пример создания динамического списка... rolleyes.gif

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  


Цитата(Bulvinkole @ 15.4.2007, 23:07) *
Вот пример создания динамического списка... rolleyes.gif

Ой ужасть....
А "array [0..1] of array of string;" нельзя?!
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
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  


Что именно интересует? Ничего из материалов нет, но можно самим что-нить вспомнить wink.gif


--------------------
Цитата
Смайлики
...
Смайлик отбивается от слова пробелом. Если после смайлика идет знак препинания, он пробелом не отбивается. Точка после смайлика обычно не ставится. Смайлик может быть совмещен с обычной закрывающей скобкой (при условии, что она где-то открылась :-)
http://www.artlebedev.ru/kovodstvo/sections/143/#17
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Astynax84
сообщение 2.7.2007, 18:49
Сообщение #30


Опытный Домовой
****

Группа: Домовые
Сообщений: 270
Регистрация: 28.11.2006
Живет: РФ, РТ, Казань

Пол: Мужской


Репутация:   0  


Цитата(DunasTu (v.3) @ 1.7.2007, 19:34) *

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


Ты, и в самом деле, приведи конкретный пример.
А то "инфу про стеки". И именно про стеки (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"

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


--------------------
aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
DunasTu
сообщение 8.7.2007, 15:49
Сообщение #31


still standing...
*******

Группа: Домовые
Сообщений: 3 283
Регистрация: 23.12.2006
Живет: на пересечении улиц Дубравная иПр.Победы

Пол: Мужской


Репутация:   1  


Цитата(Astynax84 @ 2.7.2007, 19:49) *

Ты, и в самом деле, приведи конкретный пример.
А то "инфу про стеки". И именно про стеки (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"

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



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


--------------------
Все умирают, но не все живут по-настоящему...

Изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Astynax84
сообщение 9.7.2007, 12:37
Сообщение #32


Опытный Домовой
****

Группа: Домовые
Сообщений: 270
Регистрация: 28.11.2006
Живет: РФ, РТ, Казань

Пол: Мужской


Репутация:   0  


Цитата(DunasTu (v.3) @ 8.7.2007, 16:49) *

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


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


--------------------
aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
DunasTu
сообщение 9.7.2007, 15:47
Сообщение #33


still standing...
*******

Группа: Домовые
Сообщений: 3 283
Регистрация: 23.12.2006
Живет: на пересечении улиц Дубравная иПр.Победы

Пол: Мужской


Репутация:   1  


Цитата(Astynax84 @ 9.7.2007, 13:37) *

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

а смысл? huh.gif


--------------------
Все умирают, но не все живут по-настоящему...

Изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Astynax84
сообщение 9.7.2007, 16:04
Сообщение #34


Опытный Домовой
****

Группа: Домовые
Сообщений: 270
Регистрация: 28.11.2006
Живет: РФ, РТ, Казань

Пол: Мужской


Репутация:   0  


Цитата(DunasTu (v.3) @ 9.7.2007, 16:47) *

а смысл? huh.gif


Ну тебе же нужен стек комплексных чисел? А их лучше всё-таки раскладывать на реальную и мнимую составляющие - операции с КЧ в таком виде давно подробно описаны в учебниках wink.gif А можно хранить в экспоненциальной форме smile.gif

З.Ы. Ты приведи таки конкретный пример - всем проще будет smile.gif


--------------------
aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
DunasTu
сообщение 10.7.2007, 13:09
Сообщение #35


still standing...
*******

Группа: Домовые
Сообщений: 3 283
Регистрация: 23.12.2006
Живет: на пересечении улиц Дубравная иПр.Победы

Пол: Мужской


Репутация:   1  


ну допустим про стэк я вразумел biggrin.gif ,ну насчет Complex Object и вабше объект с этим напряги блин, добавления св-ва там и все такое, ну добавления св-ва впринципе понятно,а вот чисто шаблон алгоритма, где процедуры, где ф-ии и вабще чем легче управлять про-й или ф-ей, или взависимости от условия?


--------------------
Все умирают, но не все живут по-настоящему...

Изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Astynax84
сообщение 10.7.2007, 18:40
Сообщение #36


Опытный Домовой
****

Группа: Домовые
Сообщений: 270
Регистрация: 28.11.2006
Живет: РФ, РТ, Казань

Пол: Мужской


Репутация:   0  


Цитата(DunasTu (v.3) @ 10.7.2007, 14:09) *

ну допустим про стэк я вразумел biggrin.gif ,ну насчет Complex Object и вабше объект с этим напряги блин, добавления св-ва там и все такое, ну добавления св-ва впринципе понятно,а вот чисто шаблон алгоритма, где процедуры, где ф-ии и вабще чем легче управлять про-й или ф-ей, или взависимости от условия?


Стек комплексных чисел в виде объектов - изврат полный ИМХО smile.gif Не наследоваться же от TObject wink.gif
Но кто мешает назвать структуру {StackItem = record...end} объектом?

А вот объект-стек это уже что-то. Но зачем нужен объект с 1 свойством (кол-во элементов) и 2 методами (добавление/изъятие).
Не нужно всё это smile.gif

Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова!

А далее - в зависимости от условий smile.gif Нужен калькулятор комплексных чисел - реализуешь математику КЧ. Нужны вычисления с использованием матриц КЧ - делаешь их.

Без конкретного описания задания - больше ничего не выжать.


--------------------
aka HS
Я не червонец, чтобы нравиться всем... (Костя Кинчев)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
DunasTu
сообщение 11.7.2007, 0:07
Сообщение #37


still standing...
*******

Группа: Домовые
Сообщений: 3 283
Регистрация: 23.12.2006
Живет: на пересечении улиц Дубравная иПр.Победы

Пол: Мужской


Репутация:   1  


Цитата(Astynax84 @ 10.7.2007, 19:40) *

Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова!



А вот за это спс.

З.Ы. Потом еще обращусь если че biggrin.gif


--------------------
Все умирают, но не все живут по-настоящему...

Изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
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  


Цитата(Petunchik @ 23.7.2007, 19:29) *

Действия. Компонент TActionList

Это про что? Для чего необходимо?

Для того, чтобы навешивать одинаковую функциональность на несколько мест сразу - меню, кнопка, горячая клавиша.


--------------------
«Вчера это была драма... Сегодня достаточно щепотки диастазического средства фирмы «Джонсон», и ковер как новенький»
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
DunasTu
сообщение 25.7.2007, 0:00
Сообщение #40


still standing...
*******

Группа: Домовые
Сообщений: 3 283
Регистрация: 23.12.2006
Живет: на пересечении улиц Дубравная иПр.Победы

Пол: Мужской


Репутация:   1  


Цитата(Petunchik @ 23.7.2007, 19:29) *

Действия. Компонент TActionList

Это про что? Для чего необходимо?

типа шаблона


--------------------
Все умирают, но не все живут по-настоящему...

Изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

4 страниц V < 1 2 3 4 >
Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 28.3.2024, 19:13