/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 597
от 19.09.2006, 21:35

Вопрос № 55.352

Здраствуйте Уважаемые эксперты, У меня простой вопрос, как текст из Edit1.text можно загрузить в массив of Byte? Заранее Спасибо.

Отправлен: 13.09.2006, 21:36 Вопрос задал: Станислав (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Станислав! Наверняка, существуют более простые способы, но я могу предложить лишь эти два варианта (см. приложение) Второй проще, но он небезопасен. Боюсь, что компилятор не будет проверять выход за границы массива. Ну и еще есть PChar / PAnsiChar, но он приводит к типу char, который в Delphi не является byte-ом и вообще это немного из другой оперы. Приложение: var i, l: integer; b: array of byte; // ... begin l := length(Edit1.Text); SetLength(b, l); for i := 1 to l do begin b[i-1] := Ord(Edit1.Text[i]); end; end; либо var s: string; p: pByteArray; // ... begin s := Edit1.Text; p := @s; // обращаться к элементам так: p^[i] end; --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 13.09.2006, 22:00

Вопрос № 55.356

Здравствуйте Уважаемы эксперты!!! Мне очень нужна ваша помощь, я в програмировании дуб-дубом, а нам задали написать програмку. Я хочу попросить вас, если вам не трудно, помогите мне с ней. Вот задание: "Задан одновимірний масив целых чисел(инициализовать как константу), определить количество разных элементов в нем"

Отправлен: 13.09.2006, 22:15 Вопрос задал: Kostenko Artem (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Coupler Здравствуйте, Kostenko Artem! В приложении готовый исходник. Я его как следует оттестировать не успел, но вроде работает как надо. Проверьте с другими массивами - если че-то будет не так, пишите во внутреннюю почту. Суть алгоритма: берем элемент a[i] и смотрим, сколько раз он повторяется в массиве, и увеличиваем счетчик на 1/число раз. Например, он повторяется 2 раза. Тогда мы переберем 2 одинаковых числа, каждый раз увеличивая счетчик на 1/2. Получается: 1/2+1/2=1 - одно неповторяющееся число. Приложение: program Project1; {$APPTYPE CONSOLE} const a: array[1..5] of integer = (3, 1, 7, 1, 5); var i, j, k, m, w: integer; r: real; begin r := 0; for i := 1 to 5 do begin for m := 1 to 5 do begin if a[i] = a[m] then w := w + 1; end; r := r + 1 / w; w := 0; end; writeln(r); readln; end.

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 15.09.2006, 14:26

Вопрос № 55.405

Добрый день, уважаемые! Вопрос у меня такой: Есть ComboBox со списком дисков (A:, C: и т.д.). Список дисков формирую с помощью компонента TDiskInfo. DiskInfo.GetDriveList(DriveBox.Items);. Подскажите, пожалуйста, Как при подключении и отключении флэшки обновлять список дисков?

Отправлен: 14.09.2006, 10:54 Вопрос задал: Савенко Вадим Иванович (статус: 10-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: n0name Здравствуйте, Савенко Вадим Иванович! Отлавливайте сообщение WM_DEVICECHANGE. Приложение: type TForm1 = class(TForm) Button1: TButton; label1: TLabel; private procedure WMDeviceChange(var Msg: TMessage); message WM_DeviceChange; { Private declarations } public { Public declarations } end; ... const DBT_DeviceArrival = $8000; DBT_DeviceRemoveComplete = $8004; DBTF_Media = $0001; DBT_DevTyp_Volume = $0002; type PDevBroadcastHdr = ^TDevBroadcastHdr; TDevBroadcastHdr = packed record dbcd_size: DWORD; dbcd_devicetype: DWORD; dbcd_reserved: DWORD; end; type PDevBroadcastVolume = ^TDevBroadcastVolume; TDevBroadcastVolume = packed record dbcv_size: DWORD; dbcv_devicetype: DWORD; dbcv_reserved: DWORD; dbcv_unitmask: DWORD; dbcv_flags: Word; end; function GetDrive(pDBVol: PDevBroadcastVolume): string; var i: Byte; Maske: DWORD; begin if (pDBVol^.dbcv_flags and DBTF_Media) = DBTF_Media then begin Maske := pDBVol^.dbcv_unitmask; for i := 0 to 25 do begin if (Maske and 1) = 1 then Result := Char(i + Ord('A')) + ':'; Maske := Maske shr 1; end; end; end; procedure TForm1.WMDeviceChange(var Msg: TMessage); var Drive: string; begin case Msg.wParam of DBT_DeviceArrival: if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then begin Drive := GetDrive(PDevBroadcastVolume(Msg.lParam)); label1.Caption := 'Inserted in Drive ' + Drive; end; DBT_DeviceRemoveComplete: if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then begin Drive := GetDrive(PDevBroadcastVolume(Msg.lParam)); label1.Caption := 'Removed from Drive ' + Drive; end; end; end;

Ответ отправил: n0name (статус: 4-ый класс) Ответ отправлен: 14.09.2006, 12:02 Оценка за ответ: 5

Вопрос № 55.426

Доброго времени суток.Необходимо чтобы при запуске приложения его окно было свернуто в трей. Для этого в FormActivate выполняю функции (см.приложение) (WindowState=wsNormal - чтобы небыло кнопки в панели задач). Но при запуске видно как окно прорисовывается (очень короткое время, но...). Подскажите пожалуста как избежать данного прорисовывания. Приложение: ShowWindow(Application.Handle,SW_HIDE); ShowWindow(FR.Handle,SW_HIDE);

Отправлен: 14.09.2006, 13:23 Вопрос задал: VNos (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, VNos! Попробуйте создавать его минимизированным или посылать сообщение раньше. Впрочем, обрабатвыает его окно все равно только после создания... Попробуйте в OnShow отменить рисование формы. Кстати, можно создавать форму невидимой (Visible = False), свертывать и только потом делать видимой. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 14.09.2006, 13:47 Оценка за ответ: 3

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, VNos! В файле проекта допишите: Application.Initialize; Application.ShowMainForm := False; ...

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 5-ый класс) Ответ отправлен: 14.09.2006, 13:48 Оценка за ответ: 5

Отвечает: n0name Здравствуйте, VNos! Project -> View Source Перед Application.CreateForm() всавь Application.ShowMainForm := false;

Ответ отправил: n0name (статус: 4-ый класс) Ответ отправлен: 14.09.2006, 13:53 Оценка за ответ: 5

Вопрос № 55.438

Здраствуйте!!! Поскажите о прорисовке элементов в ComboBox Нужно написать текст элементов разными цветами!!!

Отправлен: 14.09.2006, 14:24 Вопрос задал: chikanok (статус: 2-ой класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: n0name Здравствуйте, chikanok! Обрабатываешь события OnMeasureItem и OnDrawItem. В OnMeasureItem изменяешь переменную Height на высоту 1 элемента. В OnDrawItem делаешь непосредственно прорисовку. Index - номер элемента, Rect - прямоугольник в котором отрисовывается текущий элемент. State - его состояние. Отрисовывать можно DrawItem.

Ответ отправил: n0name (статус: 4-ый класс) Ответ отправлен: 14.09.2006, 14:33

Отвечает: Gh0stik Здравствуйте, chikanok! Воспользуйтесь помощью старого доброго Delphi World. В этой статье Вы найдете интересующий Вас ответ. Удачи!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Студент) Ответ отправлен: 14.09.2006, 14:36

Отвечает: Melamed Здравствуйте, chikanok! Ставишь свойство Style компонента ComboBox в значение csOwnerDrawVariable или csOwnerDrawVariable и пишешь обрабодчик события OnDrawItem, в котором рисуешь каждый элемент списка, а если свойство Style Вы установили в значенl 0;е csOwnerDrawVariable, то Вам придется еще писать обрабодчик события OnMeasureItem, в котором вы должны определить размеры для каждого элемента списка

Ответ отправил: Melamed (статус: 4-ый класс) Ответ отправлен: 14.09.2006, 16:05

Вопрос № 55.469

функции - информацию о процессоре и загрузки Может кто делал и использывал такие функции а то коечто нашел но не то Как получить полную информацию о процессоре и как получить загрузку процесса и желательно вывести в виде графика или еще как-то что бы было наглядно и красива

Отправлен: 14.09.2006, 18:02 Вопрос задал: Сергей Викторович (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Савенко Вадим Иванович Здравствуйте, Сергей Викторович! Если Вы работаете в WinXP, то инфу о процессоре нужно считать из реестра. Приложение: {---------------------------------------------------------------} { имя процессора } {---------------------------------------------------------------} function GetProcessorName: string; var Reg : TRegistry; RegPath : string; begin RegPath := 'HARDWAREDESCRIPTIONSystemCentralProcessor Reg:= TRegistry.Create; Reg.Rootkey:= HKEY_LOCAL_MACHINE; try Reg.Openkey(RegPath,false); Result:= Reg.ReadString('ProcessorNameString'); except end; Reg.Free; end; {---------------------------------------------------------------} { идентификатор процессора } {---------------------------------------------------------------} function GetProcessorID: string; var Reg: TRegistry; RegPath: string; begin RegPath:= 'HARDWAREDESCRIPTIONSystemCentralProcessor Reg:= TRegistry.Create; Reg.Rootkey:= HKEY_LOCAL_MACHINE; try Reg.Openkey(RegPath,false); Result:= Reg.ReadString('Identifier'); except end; Reg.Free; end; {---------------------------------------------------------------} { количество процессоров } {---------------------------------------------------------------} function GetProcessors: byte; var Reg: TRegistry; RegPath: string; N: byte; begin Result:= 0; Reg:= TRegistry.Create; for N:= 0 to High(byte) do begin Reg.rootkey:= HKEY_LOCAL_MACHINE; RegPath:= 'HARDWAREDESCRIPTIONSystemCentralProcessor' + IntToStr(N); if (Reg.Openkey(RegPath,false) = true) then Result:= Result + 1; end; Reg.Free; end; {---------------------------------------------------------------} { частота процессора } {---------------------------------------------------------------} function GetProcessorFrequency: string; var Reg : TRegistry; RegPath : string; begin RegPath := 'HARDWAREDESCRIPTIONSystemCentralProcessor Reg:= TRegistry.Create; Reg.Rootkey:= HKEY_LOCAL_MACHINE; try Reg.Openkey(RegPath,false); Result:= IntToStr(Reg.ReadInteger('~MHz')); except end; Reg.Free; end;

Ответ отправил: Савенко Вадим Иванович (статус: 10-ый класс) Ответ отправлен: 14.09.2006, 20:48 Оценка за ответ: 4

Вопрос № 55.476

Здравствуйте уважаемые эксперты!!!! Скажите пожалуйста, как программно изменить ширину 1-го столбца компонента TStringGrid?Спасибо.

Отправлен: 14.09.2006, 20:04 Вопрос задал: Piit (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: mvp Здравствуйте, Piit! StringGRid1.ColWidth[0] := ... --------- Моя совесть чиста - не бывшая в употреблении

Ответ отправил: mvp (статус: Студент) Ответ отправлен: 14.09.2006, 20:57 Оценка за ответ: 5

Отвечает: CjJoker Здравствуйте, Piit! !!! TStringGrid.ColWidth[n] n - номер столбца У TStringGrid нет свойства ColWidth! Обращаться к свойству ColWidth нужно по имени компонента. Верный ответ дан предыдущим экспертом. Alexey G. Gladenyuk

Ответ отправил: CjJoker (статус: 1-ый класс) Ответ отправлен: 15.09.2006, 10:20 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.36 от 06.09.2006