ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Продолжение темы Вопросы по Delphi (до версии 2009) - часть 4 Познаем сами, помогаем другим... Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже). Правила топика: Прежде чем спрашивать: Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там). Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите. Желательно указывать версии используемого компилятора и операционной системы. Прежде чем отвечать: Если не можете помочь, не мешайте. Если уж вы отвечаете на вопрос, давайте ответ по сути. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа. Задавайте дополнительные вопросы, чтобы получить больше информации. Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.   Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе]. Некоторые "родственные" топики: Вопросы по Delphi (версии 2009-2010 Weaver) Вопросы по компонентам для Delphi, C++ Builder Использование DevExpress Вопросы по Ehlib Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source Коммерческие компоненты и утилиты для Delphi/BCB Прикладное программирование и не только... См. также: Некоторые полезные ресурсы о Delphi Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010

gelios Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mdid я бы сделал вьюшку на стороне сервера и работал с ней без проблем... Всего записей: 52 | Зарегистр. 05-01-2003 | Отправлено: 15:10 18-09-2009

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору gelios Цитата: я бы сделал вьюшку на стороне сервера и работал с ней без проблем А разве Views меняют реальные данные в таблице? По моему (могу ошибаться ОФК) они предназначены только для выборки данных. Цитата: в общем  всему виной запрос из 2 таблиц..так нельзя...с одной таблицы все поехало Как таблицы соединял (join или select from table1, table2)? На работе буду - попробую. Хотя я немного по другому при работе снесколькими табшицами действовал. ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 15:42 18-09-2009

Delta RuBoard Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору вопрос... в чем ошибка   Код: function TForm1.Code():string; var   ABC: array[0..51] of string;   i,k,q:integer; begin   i := 7;   ABC[0] := 'a';   ABC[1] := 'b';   ABC[2] := 'c';   ABC[3] := 'd';   ABC[4] := 'e';   ABC[5] := 'f';   ABC[6] := 'g';   ABC[7] := 'h';   ABC[8] := 'i';   ABC[9] := 'j';   ABC[10] := 'k';   ABC[11] := 'l';   ABC[12] := 'm';   ABC[13] := 'n';   ABC[14] := 'o';   ABC[15] := 'p';   ABC[16] := 'q';   ABC[17] := 'r';   ABC[18] := 's';   ABC[19] := 't';   ABC[20] := 'u';   ABC[21] := 'v';   ABC[22] := 'w';   ABC[23] := 'x';   ABC[24] := 'y';   ABC[25] := 'z';   ABC[26] := 'A';   ABC[27] := 'B';   ABC[28] := 'C';   ABC[29] := 'D';   ABC[30] := 'E';   ABC[31] := 'F';   ABC[32] := 'G';   ABC[33] := 'H';   ABC[34] := 'I';   ABC[35] := 'J';   ABC[36] := 'K';   ABC[37] := 'L';   ABC[38] := 'M';   ABC[39] := 'N';   ABC[40] := 'O';   ABC[41] := 'P';   ABC[42] := 'Q';   ABC[43] := 'R';   ABC[44] := 'S';   ABC[45] := 'T';   ABC[46] := 'U';   ABC[47] := 'V';   ABC[48] := 'W';   ABC[49] := 'X';   ABC[50] := 'Y';   ABC[51] := 'Z';   Edit2.Text := Edit1.Text;   for k := 0 to 51 do begin     q:=7+k;     if q>=51 then q:=q-51;     Edit2.Text := StringReplace(Edit2.Text,ABC[k],ABC[q],[rfReplaceAll]);   end; end; нужно что бы буква заменялась на следующюю + i по счету. но чего то не получается.. например asd должно перейти в hzk, а переходит в fcb >.< ---------- мой маленький блог Создание on-line игр Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 03:45 20-09-2009 | Исправлено: Delta RuBoard, 03:49 20-09-2009

Hiken Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору dmmarch Ну раз уже такое очень нужно, можно и самому сделать. Как видно по карте, там простой закон изменения цвета - КОЖЗГСФ.   Берите красный цвет в формате HSV и изменяйте в нём параметр H с нужным шагом. После переводите HSV в RGB и отмечаете на битмапе. Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 12:12 20-09-2009

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Delta RuBoard Алгоритм Цезаря? Объясняю в краце что у тебя происходит. Ты переводишь а в б,но после этого у тебя на след этапе цикла б переходит в в и так далее. Тебе надо не StringReplace использовать, кстати гораздо проще можно так сделать Код:   tStr:Edit2.Text; AStart:=$41; /// начало англ алфавита в кодах for i:=1 to Length(tStr) do   tStr[i]:=Chr(AStart + (Ord(tStr[i]) - AStart + 7) mod 52);   ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 12:30 20-09-2009

Delta RuBoard Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: Delta RuBoard   Ну допустим на нулевой итерации вы преобразите "a" в "h". А что произойдет на седьмой итерации?   Для наглядности предлагаю после строки со StringReplace вставить:     бр, теперь оно мне во втором едите показывает циклы замен, но в итоге меняет на тоже самое что и изначально.. я не понимаю как это сделать на делфи на пхп все гараздо проще и компактнее   Добавлено: ShIvADeSt да, он. только я не много не понял что делает данный кусок кода =\   Добавлено: Код: AStart:=$41;   его в вар загонять нужно? и с каким типом ? ---------- мой маленький блог Создание on-line игр Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 12:35 20-09-2009

Hiken Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору dmmarch Какая подсветка? В этом этом спектре уже заложены различные градации. Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 12:42 20-09-2009 | Исправлено: Hiken, 12:43 20-09-2009

Delta RuBoard Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код: function TForm1.Cesar_Crypt():string; const   SizeA = 26;   RusA = 'abcdefghijklmnopqrstuvwxyz';   var i, P :integer;     temp,s:string; begin   s:=AnsiLowerCase(Edit1.Text);   temp:='';   for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];   s:=temp;   for i:=1 to length(s) do     begin     P:=pos(s[i],RusA)+1;     if P>SizeA then P:=P-SizeA;     Result:=Result+RusA[P];   end;   Edit2.Text := Result; end; во, нашел всем спасиб за помощь))   Добавлено: вопрос теперь новый. как мне сделать 2 ряда радиобутонов? ну тоесть что бы я мог выбирать из 3х один и потом еще из 2х других один? ---------- мой маленький блог Создание on-line игр Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 12:51 20-09-2009

Hiken Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору dmmarch Какое еще псевдо-3D? То, что картинка немного сужена кверху? Ну так, если нужны подобные трансформации, смотрите в сторону афинных преобразований или уже готовых библиотек на эту тему.   Так понимаю, у вас это температурная карта, или карта высот, что в массиве храниться? Поделите весь диапазон возможных значений на некоторое количество. В соответствии с ним же получится и шаг для параметра H. Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 13:35 20-09-2009 | Исправлено: Hiken, 13:36 20-09-2009

Hiken Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Frodo_Torbins А, ну дык всегда можно покрутить параметры S и L, в зависимости от чего-нибудь - уже самому посмотреть-подумать. Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 13:49 20-09-2009 | Исправлено: Hiken, 13:50 20-09-2009

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование