Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.27;
Скачать: CL | DM;

Вниз

ООП и arrays   Найти похожие ветки 

 
Anatoly Podgoretsky ©   (2004-06-09 16:22) [40]

И в трехзвенной архитектуре


 
GuAV ©   (2004-06-09 16:26) [41]


> И в трехзвенной архитектуре

а это как?


 
Anatoly Podgoretsky ©   (2004-06-09 16:33) [42]

Клиент - сервер приложений - база данных


 
GuAV ©   (2004-06-09 16:39) [43]


> Клиент - сервер приложений - база данных

Спасибо. Я просто с БД вообще не знаком.


 
Algol   (2004-06-09 16:44) [44]


> type TCalcProc=procedure(var A: array of  Integer);


Сие плохо ....


 
Григорьев Антон ©   (2004-06-09 16:45) [45]


> PVOzerski ©   (09.06.04 15:43) [33]
> Предлагаю переделать под ООП сложение двух integer"ов и
> напридумывать как можно больше проблем! :^))


Можете смеяться, но ООП c этого и началось. Был такой язык - SmallTalk. Первый ОО-язык. В нём все типы, в т.ч. и целые, были объектами. И даже операторов цикла не было, потому что последовательность операторов рассматривалась как объект, и у этого объекта были методы повторения. Кстати, все методы были виртуальными. Это уже позже люди додумались, что методы могут быть статическими, а ООП совместимо с императивным программированием.


 
GuAV ©   (2004-06-09 16:52) [46]


> Сие плохо ....

Виноват, исправлюсь :(

> Можете смеяться

Хочу посмеятся. Где cкачать SmallTalk?


 
Григорьев Антон ©   (2004-06-09 17:02) [47]


> Хочу посмеятся. Где cкачать SmallTalk?


Никогда не слышал о SmallTalk"е для виндов. Он работал только под специальной ОС, которая тоже называлась SmallTalk. Все мои сведения об этом взяты из книги http://www.delphikingdom.com/asp/book.asp?BookID=63


 
Anatoly Podgoretsky ©   (2004-06-09 17:17) [48]

GuAV ©   (09.06.04 16:39) [43]
Третье звено не обязательно база, пуская будет ООП движок


 
Sandman25 ©   (2004-06-09 17:45) [49]

[45] Григорьев Антон ©   (09.06.04 16:45)

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


 
AAAlexeyAAA   (2004-06-09 18:02) [50]

да уж...обговорили мой вопрос...
(09.06.04 16:02)....вообще проигнорировали...:(
На входе в форум есть хороший hint у ссылки: "здесь вы можете задать свой вопрос и НАВЕРНЯКА получить ответ"...
разве что "наверняка"....
благодарю за советы: Романов Р.В., Anatoly Podgoretsky, PVOzerski, DieHard.


 
GuAV ©   (2004-06-09 18:50) [51]

AAAlexeyAAA   (09.06.04 18:02) [50]
оставь как есть через процедуры - уже был этот ответ.
это будет имхо по всем пунктам

******
GuAV ©   (09.06.04 16:03) [37]
type
 TBoolean=class;
 TInteger=class;

 TCustomInteger=class(TComponent)
 private
   FValue: array[1..4] of char;
   function GetBits(Index: TInteger): TBoolean;
   procedure SetBits(Intex: TInteger; const Value: TBoolean);
 protected
   property Bits[Index: TInteger]: TBoolean read GetBits write SetBits;
 end;

 TCustomBoolean=class(TCustomInteger)
 private
   function GetValue: Boolean;
   procedure SetValue(const Value: Boolean);
 protected
   property Value: Boolean read GetValue write  SetValue;
 end;

 TBoolean=class(TCustomBoolean)
 published
   property Value;
 end;

 TInteger=class(TCustomInteger)
 public
   property Bits;
 end;

и так далее.
AAAlexeyAAA, Вам действительно это надо?


 
AAAlexeyAAA   (2004-06-09 21:06) [52]

GuAV, спасибо!
<<AAAlexeyAAA, Вам действительно это надо?>>
да, мне это нужно. иначе я б не обращался на форум.я же не ради забавы это делаю...


 
Fay ©   (2004-06-09 21:24) [53]

Извращение какое-то... 8)
type
 TIntegerType = class(TObject)
 private
   FValue : Integer;
   FOnChange : TNotifyEvent;
   procedure SetValue(v : Integer);
 protected
 public
   function GetDiv(n : Integer) : Integer;
   function GetMod(n : Integer) : Integer;
   constructor Create;
   destructor Destroy; override;
 published
   property Value : Integer read FValue write SetValue default 0;
   property OnChange : TNotifyEvent read FOnChange write FOnChange;
 end;

implementation

constructor TIntegerType.Create;
begin
 FValue := 0;
 FOnChange := nil;
end;

destructor TIntegerType.Destroy;
begin
 inherited;
end;

procedure TIntegerType.SetValue(v : Integer);
begin
 FValue := v;
 if Assigned(FOnChange) then FOnChange(Self);
end;

function TIntegerType.GetDiv(n : Integer) : Integer;
begin
 Result := FValue div n;
end;

function TIntegerType.GetMod(n : Integer) : Integer;
begin
 Result := FValue mod n;
end;


 
GuAV ©   (2004-06-09 23:24) [54]

Fay ©   (09.06.04 21:24) [53]

> constructor TIntegerType.Create;
> begin
>  FValue := 0;
>  FOnChange := nil;
> end;

незаче это, поля нулятся автоматически.

> destructor TIntegerType.Destroy;
> begin
>  inherited;
> end;

тогда смысл объявлять - ?

и ваще просили сложить или знак поменять - а это тогда что? оффтопик :)


 
PVOzerski ©   (2004-06-10 11:43) [55]

А как такое: ;^)

asm.operand1.value:=asm.registers.EAX;
asm.operand2.value:=1;
asm.MOV;


 
GuAV ©   (2004-06-10 12:01) [56]


> asm.MOV;

нееет.
методов у этого варианта/интерфэйса/класса многовато получится.
надо так
asm.instruction(AI_MOV);


 
Anatoly Podgoretsky ©   (2004-06-10 12:23) [57]

GuAV ©   (10.06.04 12:01) [56]
Можно уменьщить
asm.Instruction.AsString := "MOV";
asm.Operand[1].AsReg := EAX;
asm.Operand[2].AsInteger := 1;
asm.Do;



Страницы: 1 2 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх




Память: 0.57 MB
Время: 0.047 c
4-1084819729
Knoxville
2004-05-17 22:48
2004.06.27
Как сделать прогу в стиле WinXP?


3-1086068311
Лена
2004-06-01 09:38
2004.06.27
перенос данных из Paradox в Interbase


3-1086020321
Cyber
2004-05-31 20:18
2004.06.27
Построение запроса


3-1085986270
s300
2004-05-31 10:51
2004.06.27
Вычисление текущей даты


1-1087280416
an-na2002
2004-06-15 10:20
2004.06.27
Работа с формами.