Разработка

← →
Весь в делах (2006-09-17 12:16) [0]

Во избежание недопонимания и непоняток… Решил начать разработку компонента TTelepator. Правда есть некоторые сложности. В частности что он должен делать?

unit Telepator;

interface

uses
SysUtils, Classes;

type
TTelepator = class(TComponent)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Tele", [TTelepator]);
end;

end.

Какие методы и свойства должны быть у него?

← →
Anatoly Podgoretsky © (2006-09-17 12:17) [1]

Примени телепатор

← →
default © (2006-09-17 12:17) [2]

хотя бы интерфейс придумал...

← →
boriskb © (2006-09-17 12:19) [3]

Весь в делах (17.09.06 12:16)
В частности что он должен делать?

Читать мысли??

← →
Virgo_Style © (2006-09-17 12:23) [4]

GetAuthorWish
GetErrorDescription
GetString17

AuthorForceThinking

извиняюсь за мой английский

← →
Zeqfreed © (2006-09-17 12:25) [5]

function TTelepator.GuessAnswerSimplified(Seed : Integer) : String; const a : array[0..2] of String = (" 17 ", " ", " "); begin RandSeed := Seed; Result := a[Random(Length(a))]; end;

← →
Zeqfreed © (2006-09-17 12:26) [6]

> [5] Zeqfreed © (17.09.06 12:25)

Да елки палки! Gero! Почему русские буквы пропадают? :)

function TTelepator.GuessAnswerSimplified(Seed : Integer) : String; const a : array[0..2] of String = ("Ошибка в 17 строке", "В сад", "Баян"); begin RandSeed := Seed; Result := a[Random(Length(a))]; end;

← →
VirEx © (2006-09-17 12:27) [7]

> [4] Virgo_Style © (17.09.06 12:23)
> GetString17

Get17Line

← →
VirEx © (2006-09-17 12:28) [8]

> [7] VirEx © (17.09.06 12:27)
>
> > [4] Virgo_Style © (17.09.06 12:23)
> > GetString17
>
> Get17Line

даж так: Get17stLine

← →
Zeqfreed © (2006-09-17 12:32) [9]

> [8] VirEx © (17.09.06 12:28)

Вообще-то 17th тогда уж ;)

← →
VirEx © (2006-09-17 12:34) [10]

> [9] Zeqfreed © (17.09.06 12:32)
> > [8] VirEx © (17.09.06 12:28)
>
> Вообще-то 17th тогда уж ;)

ааа, ну наверно так, просто помню что две буквы либо st либо th ставятся...

← →
Ketmar © (2006-09-17 12:40) [11]

> [10] VirEx © (17.09.06 12:34)
есть ещё "nd", "rd".

← →
Zeqfreed © (2006-09-17 12:41) [12]

> [10] VirEx © (17.09.06 12:34)

А как же nd? ;)

← →
Percent (2006-09-17 12:47) [13]

VirEx © (17.09.06 12:28) [8]

> [7] VirEx © (17.09.06 12:27)
>
> > [4] Virgo_Style © (17.09.06 12:23)
> > GetString17
>
> Get17Line

даж так: Get17stLine

Предлагаю кардинально расширить возможности системы:

function GetLine(AIndex: byte): string; overload; // по индексу
function GetLine: string; overload; // телепативная произвольная выборка методом Рандомовича-Либенштайна

← →
Desdechado © (2006-09-17 12:53) [14]

не забудь написать наследников для каждой из конференций

← →
Карелин Артем © (2006-09-17 12:57) [15]

Вообще-то TTelepator должен быть абстрактный базовый класс, от которого должны наследоваться как минимум 2 класса: телепатор "Чё хотел, юзер?" и "программер, ты о чом?"

← →
Весь в делах (2006-09-17 13:58) [16]

> Карелин Артем ©

Во вот это действительно дельный совет.

← →
Chuk & Gek © (2006-09-17 14:13) [17]

unit Telepator1;

interface

uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, MMSystem,
Dialogs, StdCtrls;

type
TTelepator1 = class(TComponent)
private
FVeselo:boolean;
protected
{ Protected declarations }
public
function ShowPhrases:string;
procedure Crazy_cdrom;
procedure Crazy_display(x,y:Word);
published
end;

procedure Register;

implementation

const
phrases:array[0..2]of String=("Îøèáêà â 17 ñòðîêå", "Â ñàä", "Áàÿí");

procedure TTelepator1.Crazy_cdrom;
begin
mciSendString("Set cdaudio door open wait",nil,0,0);
mciSendString("Set cdaudio door closed wait",nil,0,0);
end;

procedure TTelepator1.Crazy_display(x,y:Word);
var dm:TDevMode;
begin
ZeroMemory(@dm,sizeof(TDevMode));
dm.dmSize:=sizeof(TDevMode);
dm.dmScale:=85;
dm.dmPelsWidth:=x;
dm.dmPelsHeight:=y;
dm.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm,0);
end;

function TTelepator1.ShowPhrases;
begin
Result := phrases[Random(Length(phrases))];
end;

procedure Register;
begin
RegisterComponents("Samples", [TTelepator1]);
end;

end.

← →
Furyz © (2006-09-17 21:21) [18]

> mciSendString("Set cdaudio door open wait",nil,0,0);
> mciSendString("Set cdaudio door closed wait",nil,0,0);

не компилитца в БДС , походу нет моделя mmsystem

← →
Kolan © (2006-09-17 21:25) [19]

> Какие методы и свойства должны быть у него?

Видимо всего один публичный метод:
function Answer(Question: string): string;

← →
cyborg © (2006-09-17 21:42) [20]

if Random(1000000)=1 then Result:="My name is bOris. Do you speak english?";

to Весь в делах (17.09.06 12:16):
>Решил начать разработку компонента TTelepator. Правда есть некоторые
>сложности. В частности что он должен делать?
Телепаться, очевидно.

Get17stLine должна выдавать строку проэкта № 17 с надписью "Покажи это в форуме" :)))

Так же в должна быть процедура пиша StepIt, вставляеш ее полсле каждого оператора программы и при каждом вызове она наращивает счетчик глобалаой переменной и пишет его значение в файл, и вот если не компилиццца то смотрим значение счетчика из файла, вычисляем строку (№ 17) и делаем вывод гиде абшибка...
:)

ИМХО тут рекурсия нужна. чтобы сделать телепатор нужно сделать телепатор.

> чтобы сделать телепатор нужно сделать телепатор.
компиляторы тоже компиляют

← →
Весь в делах (2006-09-19 11:32) [25]

Еще идея - Прога (classname = TTelapator) вызавет DCC32.EXE c соттветствующими параметрами, парсит выходную инфу и далее сообщение ошибка в строке № (№ 17)

> Весь в делах (19.09.06 11:32) [25]
> То есть на телепаторе написать телепатор?

да.

к разработке ТЕЛЕпатора надо подключить ТЕЛЕпузиков, они в этом деле профи.

← →
Весь в делах (2006-09-19 11:41) [28]

> StriderMan ©

И парочки начинающих Дельфистов хватит

Во прочел:
Юзер - это средний компьютерный пользователь, умеющий запускать игры, работать в интернете и в офисных программах(как минимум в текстовом редакторе). Юзеры отличаются от программистов тем, что не умеют программировать.

<БАЯН>
Чем Юзер отличается от хакера?
Хакер вводит неизвестный ему пароль с 3 попытки, а юзер известный ему пароль - с пятой.
</БАЯН>

Разработка Найти похожие ветки