Помогите сделать лабораторку

[HAMMAN]

Помогите составить программу построитель выражений, следующего вида, используя технологию Drag&Drop

[SuperVisor]

Где вопрос? На чем застрял?

[HAMMAN]

Сообщение от SuperVisor

Где вопрос? На чем застрял?

Вообще сделать не могу...

[mihali4]

Вообще сделать не могу...

Наверное - неохота?
Тогда - в раздел "Работа для программиста".
На будущее - когда просят ПОМОЧЬ сделать, это означает, что просят помощи в нахождении ошибки и пр. То есть человек начал делать сам и на каком-то этапе "застрял".
В вашем случае правдивее было бы написать не "Помогите сделать лабораторку", а "Сделайте мне лабораторку"...

[AVer]

mihali4 прав. Если автор не предоставит наработок и вопросов тема будет перенесена в соответствующий раздел.

HAMMAN За определенную плату готов помочь.

[execom]

Помогите составить программу построитель выражений, следующего вида, используя технологию Drag&Drop

Да уважаемый, с твоей стороны это выглядит несправедливо особенно к коллективу, который всегда готов помочь! Видишь сколько раз открывали люди, твой имейдж в поисках хотя бы там чего-то похожего на твою проблеммку! Поэтому либо съежай - т.е. говори, что тебе это не надо и модератор может смело удалять эту тему как спам, либо говори конкретно, что тебя тормозит на стадии разработки проги (если конечно разработка идёт), либо соглашайся на платные условия решения твоей проблемы, тогда тебя и выслушают и помогут независимо от твоего участия в этом! Не стоит ни когда забывать о культуре и человечности!

[Nemesisking]

Randomyze - хорошая функция, особенно при правильном использовании!

if (то что наделало Randomyze из Char, типа от A..Z{за рус. символы просит денег, может и есть др. вариант}):=слову из библиотеки, которую ты, тож незнаю как будешь подключать (отдельная тема) then Стоп цикл Randomyze

Ну вот первый попавшиеся алгоритм. А так я вообще поддерживаю коллег, это просто гимаройная работа, тебе для тех кто её захочет делать http://www.programmersforum.ru/forumdisplay.php?f=29


Я немного свое сообщение переправлю! Я не совсем понял Drag&Drop (то есть там где использ. события MousUp,Down и Move)

[Аlex]

execom, AVer, mihali4 что-то вы совсем пацана заюзали. Там же в разделе ясно написано "Помощь СТУДЕНТАМ", а студенты они все такме сами ничего и никогда делать не будут.
А вот задание по понятнее можно было написать

[mihali4]

А вот задание попонятнее можно было написать

Так в этом-то и дело...
Он, похоже, сам не понял задание. Нет того, чтобы у препода получить разъяснения, он решил нас "напрячь". А мы что - экстрасенсы?

[HAMMAN]

В общем мы делали лабораторку по буксировке!.
А задание состоит в следующем:там короче из разбросанных букв нужно при помощи метода буксировки перетаскивать буквы сверху вниз, т.е. составить некоторое слово!.При помощи Кнопки "Составить слово" нужно чтобы этоже слово отобразилось на компоненте Label ниже!.Ну а Сброс это понятно!.
Исходник буксировки которую мы делали на паре!.
procedure Label1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Label2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Label3DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Label4DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Label5DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is TLabel;
end;
procedure TForm1.Label2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is TLabel ;
end;
procedure TForm1.Label3DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is TLabel ;
end;
procedure TForm1.Label4DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is TLabel ;
end;
procedure TForm1.Label5DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Label5.Color := (Source as TLabel). Color;
end;
end.
Если что не судите строго!.