Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 91 из 116 • <  1 ... 88  89  90  91  92  93  94 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
bios_must_die писал(а):
d,мкм _!____<2_____!___ 2-5_____!___5-10____!__>10___
V,м/с__!_0.01...0.02_!_0.02...0.03_!_0.03...0.05_!_0.05...0.1


Цитата:
V = ((0.03 * D) + 0.1) / 8


при D=100, V=0,3875 - выходит за пределы. Сейчас пока не соображу, но iliapan на правильном пути

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

Реклама

Партнер
  Полиночка

проблема века!!!помогите!срочно нужен код программы "Редактор кривых Безье",а лучше она сама:oops:
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Полиночка
Цитата:
Здесь можно задавать различные (мелкие) вопросы, связанные с программированием на Delphi.

Тебе лучше либо обратиться сюда, либо создать тему.

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  Micher

Member
Статус: Не в сети
Регистрация: 09.12.2005
Откуда: Москва
помогите пожайлуйса, нужно выполнить следующее задание:
Составить прогу в borland delphi, по нажатию на кнопку, выводящую текст и последующие результаты:
-исходную символьную строку записать задом наперед, удалив из неё все пробелы.
-в новой строке гласные буквы заменить на соответвующие прописные, а каждые пять символов разделить пробелами.

_________________
CPU: Core i7 4770k (3.5Ghz@4.3Ghz, vCore 1.2)+Archon SB-E X2
Mobo: ASUS Z87 Pro (1205)
Mem: 2x Corsair 1866Mhz
Video: MSI N660Ti PE 2GD5@1070/7000

  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
что-то типа этого
1.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  if Memo1.Text='' then exit;
  Memo2.Clear;
  for i:=Length(Memo1.Text)-1 downto 0 do
    if Memo1.Text[i]<>' ' then Memo2.Text:=Memo2.Text+Memo1.Text[i];
end;

2.
Код:
procedure TForm1.Button2Click(Sender: TObject);
const gl='аеёиоуыьэюя';
var
  i,j: integer;
begin
  if Memo2.Text='' then exit;
  Memo3.Clear;
  j:=-1;
  for i:=0 to Length(Memo2.Text)-1 do
  begin
    if pos(lowercase(Memo2.Text[i]),gl)<>0
      then Memo3.Text:=Memo3.Text+Memo2.Text[i]
      else Memo3.Text:=Memo3.Text+uppercase(Memo2.Text[i]);
    inc(j);
    if j>=5 then
    begin
      Memo3.Text:=Memo3.Text+' ';
      j:=0;
    end;
  end;
end;

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  Just`Ice

Member
Статус: Не в сети
Регистрация: 22.01.2007
Откуда: Самара
Функция Uppercase не работает с символами национальных алфавитов. Вместо этого нужно использовать AnsiUpperCase

_________________
No pain - no gain

  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Ага, все правильно. Я просто попамяти писал - удивлюсь, если вообще скомпильнется

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  Micher

Member
Статус: Не в сети
Регистрация: 09.12.2005
Откуда: Москва
Mike3000 , жалуется на memo. Или это не мне?

_________________
CPU: Core i7 4770k (3.5Ghz@4.3Ghz, vCore 1.2)+Archon SB-E X2
Mobo: ASUS Z87 Pro (1205)
Mem: 2x Corsair 1866Mhz
Video: MSI N660Ti PE 2GD5@1070/7000

  Rev@n

Member
Статус: Не в сети
Регистрация: 08.12.2005
Откуда: Smolensk
Micher писал(а):
жалуется на memo

Ты хоть memo - создал ? :)

Mike3000
Код:
for i:=Length(Memo1.Text)-1 downto 0 do

Зачем тут (-1) - он же не нужен ... :spy:

_________________
Вам может показаться, что я повторяюсь, но я буду распоряжаться вашими жизнями, как мне вздумается. Постарайтесь этого не забывать...
|Клан Дедов|

  Micher

Member
Статус: Не в сети
Регистрация: 09.12.2005
Откуда: Москва
Rev@n , упс, я его переименовал :bandhead:
Добавлено спустя 14 минут, 56 секунд
Mike3000 , что то тут не так, вотнапример слово Приветсвие и вот в нём надо произвести :
-исходную символьную строку записать задом наперед, удалив из неё все пробелы.
-в новой строке гласные буквы заменить на соответвующие прописные, а каждые пять символов разделить пробелами.

тоесть 2 кнопки, два окошка...

_________________
CPU: Core i7 4770k (3.5Ghz@4.3Ghz, vCore 1.2)+Archon SB-E X2
Mobo: ASUS Z87 Pro (1205)
Mem: 2x Corsair 1866Mhz
Video: MSI N660Ti PE 2GD5@1070/7000

  Shader 3.0

Member
Статус: Не в сети
Регистрация: 16.04.2006
Откуда: d3d9.dll
Фото: 7
Не подскажите как сделать, чтобы форма была полностью прозрачна, а Image, расположенный на ней, не был бы прозрачным? Ставлю свойство AlphaBlend формы в True, а коэффициент AlphaBlendValue в ноль, но вместе с формой становится невидим и Image.
  vladest

Никто не знает, работает ли Делфи с регулярными выражениями и как?
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Micher писал(а):
Mike3000 , жалуется на memo. Или это не мне?

Memo - это компонент типа TMemo, вместо него можешь использовать Edit. Если не хочешь визуальую обработку тогда, вместо MemoX.Text делай переменную типа String. В MemoX.Text ... Text - это свойство объекта Memo, значение его = значению, введенному в этот объект.
Rev@n писал(а):
Зачем тут (-1) - он же не нужен ...

Length - это длина строки, а индекс начинается с 0 и заканчивается Length(...)-1. Напр строка str:='Кака'; Length(str)=4; str[0]='K'; str[1]='а'; str[2]='к'; str[3]='а';
Micher писал(а):
тоесть 2 кнопки, два окошка...

У меня реализовано как 2 кнопки, на событие OnClick присвоена обработка каждого из этих процедур, соответственно
И 3 объекта типа TMemo: Memo1, Memo2, Memo3. Это многострочные редакторы...
По нажатии 1 кн. - обработка из Memo1 в Memo2; 2 кн. - из Memo2 в Memo3;

Shader 3.0 Могу только на словах рассказать:
Пробегаешься по всей видимой поверхности формы, и если текущий пиксел не пренадлежит Image, то устанавливаешь его цветом раб. стола. Код, к сожалению, привести не могу, т.к. писал очень давно и сорцы куда-то делись.
Добавлено спустя 1 минуту, 47 секунд
vladest писал(а):
Никто не знает, работает ли Делфи с регулярными выражениями и как?

Что такое "регулярное выражение"? первый раз такой термин слышу
Добавлено спустя 8 минут, 7 секунд
Shader 3.0 Если ты пишешь заставку, кот. показывается при запуске, тогда так и скажи. И тогда я смогу помочь!. А если, что-то более экзотическое, тогда скорее всего нет.

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  vladest

Цитата:
Что такое "регулярное выражение"? первый раз такой термин слышу


Мде-е-е... явно Делфист ))

Регулярные выражения используются для сложного манипулирования строками в PHP/FI, Perl....
  Xupyp1

Member
Статус: Не в сети
Регистрация: 02.12.2004
Shader 3.0
Работай со свойством Transparent ;)
Если: (работаю в Delphi 2007 под Vist'ой)
1) у формы стиль границы установить в bsNone
2) свойство TransparentColorValue установить (например) clFuchsia
3) свойство TransparentColor установить True
4) свойство Color установить аналогично TransparentColorValue

то ты получиш желаемое :)

Пример:

Скрин проекта во время разработки:
#77

Скрин проекта во время выполнения:
#77


Последний раз редактировалось Xupyp1 20.06.2007 16:11, всего редактировалось 1 раз.

  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
vladest писал(а):
Мде-е-е... явно Делфист ))

Регулярные выражения используются для сложного манипулирования строками в PHP/FI, Perl....

Каюсь есть такое дело, java и иже с ним буду тока через месяц осваивать

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  Rev@n

Member
Статус: Не в сети
Регистрация: 08.12.2005
Откуда: Smolensk
vladest писал(а):
Регулярные выражения используются для сложного манипулирования строками в PHP/FI, Perl....

Вроде можно, но не знаю как ... :)

Mike3000 писал(а):
Length - это длина строки

Серьезно :) ...
Mike3000 писал(а):
заканчивается Length(...)-1


Зачем заканчивать (-1) - ему же не надо удалять последний элемент ...

_________________
Вам может показаться, что я повторяюсь, но я буду распоряжаться вашими жизнями, как мне вздумается. Постарайтесь этого не забывать...
|Клан Дедов|

  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Rev@n писал(а):
Серьезно...

Крут! :)

Rev@n писал(а):
Зачем заканчивать (-1) - ему же не надо удалять последний элемент ...

Если разговор идет об этом участке кода
Код:
for i:=Length(Memo1.Text)-1 downto 0 do
if Memo1.Text[i]<>' ' then Memo2.Text:=Memo2.Text+Memo1.Text[i];
, то
1. Никакого удаления здесь нет
2. если убрать (-1), то получится
Код:
for i:=Length(Memo1.Text) downto 0 do
if Memo1.Text[i]<>' ' then Memo2.Text:=Memo2.Text+Memo1.Text[i];

значит при входе в цикл, первое обращение произойдет к элементу Memo1.Text[Length(Memo1.Text)] , а это выход за границы!
Если бы речь шла о классических переменных типа String, то i варьировалось бы от Length(tmpstr) до 1

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  vladest

Цитата:
Вроде можно, но не знаю как ... Smile

Все так говорять..... Ладно google мне в помощь....

Ещё вопрос как передать файл через TClientSocket & TServerSocket in Delphi 6?
или ещё через что-то...
  Rev@n

Member
Статус: Не в сети
Регистрация: 08.12.2005
Откуда: Smolensk
Mike3000
Лааадно, забей свой код в Delphi - и проверь правильность решения задачи ... :)

_________________
Вам может показаться, что я повторяюсь, но я буду распоряжаться вашими жизнями, как мне вздумается. Постарайтесь этого не забывать...
|Клан Дедов|

Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 91 из 116 • <  1 ... 88  89  90  91  92  93  94 ... 116  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan