Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Правильнее так, одно непонятно - почему "div 4", по идее размер первого массива в 2 раза больше второго и тогда если bytes - размер первого, то должно быть "div 2"
Подробнее...

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 18:51 07-09-2006 | Исправлено: RomanTim, 18:56 07-09-2006
KRS545

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А по моему не обязательно указатель делать-
PByteArray = ^ByteArray - лишний гемморой
ByteArray в данном случае и так указатель...
 
 
Добавлено:
А ссори не заметил [0..0].  
А зачем так?

Всего записей: 91 | Зарегистр. 12-06-2005 | Отправлено: 19:04 07-09-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
KRS545

Цитата:
А зачем так?

Можно и MaxInt-1 написать, но так короче
В принципе можно и через динамический массив сделать, но мне не нравится их передавать в параметрах... да и такая конструкция по идее больше соответствует C-шному массиву-указателю

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 20:26 07-09-2006 | Исправлено: RomanTim, 20:29 07-09-2006
FireZone

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Erazer

Цитата:
_declspec(dllexport) _stdcall void Stereo2Mono(short *instereo, short *outmono, int bytes)  
{  
int a;  
for (a=0; a<bytes/4; a++)  
outmono[a]=(instereo[a*2]+instereo[a*2+1])/2; // mono=(left+right)/2  
}
вот аналог в делфях (только нужно добавить эту функцию в Exports):Подробнее...

Всего записей: 293 | Зарегистр. 28-01-2004 | Отправлено: 05:58 08-09-2006 | Исправлено: FireZone, 06:04 08-09-2006
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здарова.  
 
Вопрос: Как определить количество найденных записей после фильтрации таблицы (ADOTable) в делфи 6. При использовании свойства RecordCount выводит количество всех записей в таблице.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 11:18 08-09-2006
abv



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Вопрос: Как определить количество найденных записей после фильтрации таблицы (ADOTable) в делфи 6. При использовании свойства RecordCount выводит количество всех записей в таблице.

 Никак. Если сильно надо, пробежись по всем записям и подсчитай, второй вариант - используй Adoquery и запрос типа  
select count(*) from MyTable where ... (фильтр на таблицу)

Всего записей: 267 | Зарегистр. 23-08-2001 | Отправлено: 11:48 08-09-2006
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
abv
 
Спасибо. В принципе после того как я послал сообщение мне самому это пришло в голову.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 12:15 08-09-2006
Erazer



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо всем кто принял участие в моей проблеме, буду пытаться реализовать Ваши советы на практике. Единственное что могу добавить - код 100% работающий и опубликован автором, поэтому если что-то не понятно все равно оно функциклирует при чем правильно как это ни странно.

Всего записей: 1729 | Зарегистр. 02-08-2003 | Отправлено: 15:28 08-09-2006
xitsmex



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
hi2all!
Нет ли у кого готового wrapper`a для четния и _записи_ VERSIONIFO в файл? Именно записи. GetVersionInfo здесь не пройдет. Задача - менять версию нескольких файлов после компиляции.

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 11:21 09-09-2006
Arvur



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
По поводу интеграции Delphi и Subversions
Кроме Delphi TortoiseSVN AddOn нашлось еще кое-что здесь.
Оттуда же ссылка на Subversion plugin for BDS 2006
 
Добавлено:
xitsmex
Есть пример эксперта - после компиляции пишет в PE Header время компиляции.
С VerInfo в закромах ничего не нашлось..

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 13:49 09-09-2006
Bonivur



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
У меня 2 вопроса :
1)
  Прикрутил к Memo свой PopUp и все бы хорошо пока не дошло дело до комманды "Удалить". Комманду то сделал, Memo1.ClearSelection, а вот как в PopUp shortcut показать (справа от имени комманды)? В Свойстве ShortCut этой комманды меню можно выставить Del и тогда надпись появляется, но работать кнопка Delete начинает только с выделенным текстом, а символы справа от курсора не удаляет. Что делать?
 
2)
  На форме стоит ComboBox (с английскими словами) и Image с картинкой Я использую комбинацию клавиш Ctrl+C для копирования Image в буфер. Но при этом срабатывает AutoComplete комбобокса и в нем вылезает слово начинающееся на букву 'c'. Естественно я поставил AutoComplete:=false - не помогает. Как быть не отключая полностью функцию автозавершения (для остальных случаев надо чтобы в комбобоксе выбиралось слово по первой введенной букве).  


----------
Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой)

Всего записей: 655 | Зарегистр. 22-06-2003 | Отправлено: 09:50 10-09-2006
xitsmex



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Bonivur
1. if Memo1.SelLength = 0 then { удаляй символ, которые тебе хочется (с позиции selstart, соответственно) }
2. А не поможет в OnKeyDown написать:
if ssCtrl in Shift then key := #0; ?
Arvur
Если не сложно - можно пример на почту? ник_гмаил_цом.

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 11:07 10-09-2006
MFPSoftware



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Делаю программку и мне нужно узнать имя файла выбранного файла через OpenDialog (OpenINI).
Вот код:

Код:
 OpenINI.Execute();
 FileName := OpenINI.FileName;
 FilePatch.Text := FileName;
 for i:=length(FileName) downto 1 do
  begin
   if FileName[i]='\' then CopyFileName := copy(FileName,(i+1),Length(FileName));
  end;

 
OpenINI - это OpenDialog.
В FileName находится полное имя (вместе с путем) файла, полученное из диалога открытия. CopyFileName - сюда нужно записать только названия файла (например, name.txt). В общем, этот кусок кода не работает =( Убирает только первый слеш =( В чем моя ошибка?

Всего записей: 576 | Зарегистр. 01-04-2005 | Отправлено: 11:45 10-09-2006
xitsmex



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MFPSoftware
Проще использовать готовые велосипеды . Например, так: ExtractFileName('D:\myfile\mydir\fil.txt'); получим 'fil.txt'.

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 12:50 10-09-2006
MFPSoftware



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xitsmex
 спасибо =) Я просто искал что-то подобное, но так и не смог найти =(
 
Добавлено:
А как получить путь к папке, в которой находится программа?

Всего записей: 576 | Зарегистр. 01-04-2005 | Отправлено: 13:10 10-09-2006 | Исправлено: MFPSoftware, 17:03 10-09-2006
Arvur



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
xitsmex

Цитата:
Если не сложно - можно пример на почту?

_http://cc.borland.com/Item.aspx?id=19823

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 16:32 10-09-2006
Bonivur



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
xitsmex

Цитата:
2. А не поможет в OnKeyDown написать:  
if ssCtrl in Shift then key := #0; ?

Не помогает... Все равно ComboBox перехватывает эту 'C'.  

Цитата:
1. if Memo1.SelLength = 0 then { удаляй символ, которые тебе хочется (с позиции selstart, соответственно) }

а как удалить символ справа от курсора в TMemo?


----------
Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой)

Всего записей: 655 | Зарегистр. 22-06-2003 | Отправлено: 17:43 10-09-2006
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MFPSoftware
ExtractFilePath(Application.ExeName);
 
Добавлено:
Bonivur

Цитата:
а как удалить символ справа от курсора в TMemo?

SelLength:=1;
ClearSelection();

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 17:54 10-09-2006
ArtemiyUO

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xitsmex
вот юнит для чиения версионинфо
Подробнее...

Всего записей: 539 | Зарегистр. 12-12-2005 | Отправлено: 07:39 11-09-2006
dmit000



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Составил структуру в редакторе TreeView. Она логически закончена и корректировки не подлежит (в том числе пользователями)
Структура имеет набор Item и Subitem
 
приведите пожалуйсто код для обработки события  
OnClick на пунктах (Item) и подпунктах (Subitem)
 

Всего записей: 483 | Зарегистр. 07-06-2004 | Отправлено: 13:29 11-09-2006
   

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru