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

Выпуск № 877
от 24.07.2007, 12:05

Вопрос № 95.542

Доброго времени суток. Помогите с проблемой (см.приложение): в мемо нужно вывести текущее время и строку, сформированную в процедуре, а выводится 2 раза время. Скорее всего я не корректно использую PChar и String, но что именно не так понять не могу. Приложение: Procedure vv(var mes:pchar); var s:string; begin s:='мыла'; mes:=PChar('Мама '+s+' раму'); end; procedure TForm1.Memo1Click(Sender: TObject); var emes:PChar; begin vv(emes); form1.Memo1.Lines.Add('['+DateTimeToStr(Now)+'] '+string(emes)); end;

Отправлен: 18.07.2007, 12:29 Вопрос задал: Игорь (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 12)

Отвечает: Stari Здравствуйте, Игорь! после запуска процы "vv" результат находиться в "mes" а она объявлена локально в процедуре. нужно результат присваивать глобальной переменной или использовать функцию. а время вывести можно и по другому timetostr(time) Пример: Приложение: function vv(mes:pchar) : pchar; begin result := PChar('Мама '+mes+' раму'); end; procedure TForm1.Memo1Click(Sender: TObject); begin // так будет правильней, если я правильно понял проблему form1.Memo1.Lines.Add('['+TimeToStr(time)+'] ' + vv('мыла')); end;

Ответ отправил: Stari (статус: 1-ый класс) Ответ отправлен: 18.07.2007, 12:53

Отвечает: Виктор Пырлик Здравствуйте, Игорь! Pchar – это указатель на символьный тип, предназначен для адаптации с типом *char (LPSTR и т.д.) языка С/С++. В частности, такое приведение (PChar(<строка>) необходимо для передачи строковых параметров в функции API Windows и другие функции, вызываемые из библиотек написанных на С/С++. Сам по себе указатель предполагает наличие инициализированной символьной переменной. Вы же пытаетесь очень «грубо» заставить на что-то его указывать – у меня работает ваша процедура с переменным успехом, либо «съедаются» последние символы, либо действительно повторяется дата – это результат того мусора, что лежит в стеке в контексте вызова метода OnClick. Мы работаем с памятью. Более корректно отработает ваша функция так: s:='мама мыла раму'; mes:= PChar(s); Но, для Pascal (Delphi) родной тип – String, символьный тип переменной длины. Работайте с ним, или более подробно изучите работу с памятью (указатели, ссылки). --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 18.07.2007, 13:43

Вопрос № 95.576

Здравствуйте уважаемые эксперты. Нашел на сайте Delphi World алгоритм градиентной заливки (смотрите код в приложении) Но не знаю по чему (возможно из-за моей глупости или не внимательности) но если значение переменной h велико, то цвет всей канвы становится одним. Проверьте пожалуйста, алгоритм на широких канвах. Возможно, у кого ни будь, есть другой алгоритм (только не намного сложнее этого)? Приложение: {Считается, что координаты первого цвета равны (A1, A2, A3), а второго (B1, B2, B3) Кроме того, линия начинается в координатах (X1,Y1), а заканчивается в (X2,Y1)} var h, i: integer; begin h:=X2-X1-1; for i:=0 to h do with PaintBox1.Canvas do begin Pen.Color:=RGB(A1-(A1-B1)/h*i, A2-(A2-B2)/h*i, A3-(A3-B3)/h*i); Rectangle(I,Y1,I+1,Y1); end; end.

Отправлен: 18.07.2007, 16:49 Вопрос задал: Левадный Тимур Русланович (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Denisss Здравствуйте, Левадный Тимур Русланович! В целом, приведенный Вами код вообще не рабочий: 1. Функции RGB нужно передавать три параметра типа Byte, а передаются три параметра типа Extended (т.е. тут еще и функция округления требуется). 2. Процедура Rectangle(I,Y1,I+1,Y1) должна рисовать прямоугольник, высота которого = 0. В лучшем случае, это нарисует только линию, а не целый градиент (или же вовсе ничего не нарисует). В общем, я несколько изменил данную функцию. Пример смотрите в приложении. Разложение цветов на три составляющих и вычисление нового цвета я отдал функции RGBDiff, которая делает тоже, что и RGB(A1-(A1-B1)/h*i, A2-(A2-B2)/h*i, A3-(A3-B3)/h*i) из приведенного Вами примера. Только вместо A1-A3, B1-B3 ей требуется передавать два параметра TColor. Удачи! Приложение: procedure TForm1.PaintBox1Paint(Sender: TObject); function RGBDiff(const aColor1, aColor2: TColor; const diff: Extended): TColor; var c1, c2: Byte; i: Integer; begin Result:= 0; for i:= 0 to 3 do begin c1:= (aColor1 shr (8 * i)) and $FF; c2:= (aColor2 shr (8 * i)) and $FF; Result:= Result + Round(c1 - (c1 - c2)*diff) shl (8 * i) end; end; var h, i, X1, Y1, X2, Y2: Integer; begin X1:= 0; Y1:= 0; X2:= PaintBox1.Width; Y2:= PaintBox1.Height; // Указанный Вами алгоритм h:= X2 - X1; for i:= 0 to h do with PaintBox1.Canvas do begin Pen.Color:= RGBDiff(clBlue, clRed, i/h); // Переходим к позиции i, Y1 MoveTo(i, Y1); // Рисуем вертиакльную линию высотой Y2 LineTo(i, Y2); end; end;

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 18.07.2007, 18:34 Оценка за ответ: 5 Комментарий оценки: Первый цвет работает не корректно (в отличии от второго) пример: заменяю clBlue на clRed получаю clBlack. В остальном все отлично, большое спасибо не могли бы вы прокомментировать функцию RGBDiff

Отвечает: Маренич Владимир Здравствуйте, Левадный Тимур Русланович! Попробуйте поменять формулу: RGB(A1-(A1-B1)*i div h, A2-(A2-B2)*i div h, A3-(A3-B3)*i div h)

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 19.07.2007, 11:38

Вопрос № 95.628

У меня тут такой вопрос, у меня вот тут прога и с помощью компонентов RobioButton, в ней меняется интерфейс проги,как можно зделать чтобы при закрытии проги сохранялись параметры нажатых кнопок RadioButton и CheckBox?

Отправлен: 19.07.2007, 04:21 Вопрос задал: Хакеров Алексей Андреевич (статус: Посетитель) Всего ответов: 7 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: UnRe@l Здравствуйте, Хакеров Алексей Андреевич! Самое простое – использовать INI-файл: Unit IniFiles; ... var IniFile: TIniFile; ... IniFile:=TIniFile.Create('myinifile.ini'); ... IniFile.WriteBool('CheckBox','1',True); Считываем ReadBool. --------- Cogito, ergo sum (c) R. Descartes (1596-1650)

Ответ отправил: UnRe@l (статус: 3-ий класс) Ответ отправлен: 19.07.2007, 06:28

Отвечает: Omickron Здравствуйте, Хакеров Алексей Андреевич! Для того, чтобы запомнить параметры, нужно сохранить их в файл. Лучше всего для настроек использовать Ini файлы. (класс TIniFile) Подключаем модуль TIniFiles, создаём объект класса и методами ReadBool, WriteBool считываем и записываем логические переменные (отмечены ли CheckBox и RadioButton) Примеры работы с классом TIniFiles можно посмотреть в Help к Delphi.

Ответ отправил: Omickron (статус: 3-ий класс) Ответ отправлен: 19.07.2007, 07:00

Отвечает: Yumark Здравствуйте, Хакеров Алексей Андреевич! Как вариант, можно сохранять в реестре: http://delphiworld.narod.ru/base/reg_use.html или http://delphiworld.narod.ru/base/access_to_registry_with_api.html

Ответ отправил: Yumark (статус: 1-ый класс) Ответ отправлен: 19.07.2007, 08:57

Отвечает: Stari Здравствуйте, Хакеров Алексей Андреевич! один из вариантов сохранять в ini файлы все параметры которые могут быть изменены.

Ответ отправил: Stari (статус: 1-ый класс) Ответ отправлен: 19.07.2007, 11:49

Отвечает: Виктор Пырлик Здравствуйте, Хакеров Алексей Андреевич! Рабочий код в приложении. Приложение: {Загрузка параметров из реестра} procedure TForm1.LoadParams; var reg:TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('SoftwareMySoftMyPRG1', false) then begin RadioGroup1.ItemIndex := reg.ReadInteger('RadioGroup1'); CheckBox1.Checked := reg.ReadBool('CheckBox1'); Reg.CloseKey; end; finally Reg.Free; inherited; end; end; {Сохранение параметров в реестр} procedure TForm1.SaveParams; var reg:TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('SoftwareMySoftMyPRG1', true) then begin Reg.WriteInteger('RadioGroup1',RadioGroup1.ItemIndex); Reg.WriteBool('CheckBox1',CheckBox1.Checked); Reg.CloseKey; end; finally Reg.Free; inherited; end; end; {при открытии формы - грузим параметры} procedure TForm1.FormCreate(Sender: TObject); begin LoadParams; end; {при закрытии формы сохраняеи параметры} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SaveParams; end; --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 19.07.2007, 12:08

Отвечает: Denisss Здравствуйте, Хакеров Алексей Андреевич! См. пример в приложении. Небольшие разъяснения к примеру: Поскольку я не любитель сохранения настроек в реестре (считаю это дурным тоном), то в примере все сохраняется в Ini файл. FormCreate и FormClose вызывают две объявленные в классе функции: LoadSettings и SaveSettings, соответственно. Как можно догадаться, одна функция сохраняет настройки, другая загружает. Данные функции сохраняют установки всех TRadioButton и TCheckBox, расположенных на форме Form1 в файл. При этом, форму можно переименовывать, можно добавлять и удалять элементы и т.д. Код будет работать в любом случае. Но если Вы удалите какой-либо элемент с формы, то желательно удалить его и из файла настроек. Удачи! Приложение: unit ...; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ...; type TForm1 = class(TForm) ... private { Private declarations } ... procedure LoadSettings; procedure SaveSettings; public { Public declarations } end; var Form1: TForm1; const SettingsFile: String = 'settings.cfg'; strRadioBtns: String = 'RadioButtons'; strCheckBx: String = 'CheckBoxes'; strRadioGroup: String = 'RadioGroups'; implementation {$R *.dfm} uses IniFiles; ... procedure TForm1.FormCreate(Sender: TObject); begin LoadSettings; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SaveSettings; end; procedure TForm1.LoadSettings; // Загрузка настроек var StrL: TStringList; Ini: TIniFile; i: Integer; fControl: TComponent; begin // Открываем файл настроек Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + SettingsFile); StrL:= TStringList.Create; with Ini do try // Читаем содержимое секции RadioButtons ReadSection(strRadioBtns, StrL); for i:= 0 to Pred(StrL.Count) do begin // Ищем компоненты с именем, указанном в файле // настроек fControl:= Self.FindComponent(StrL[i]); // Если компонент не найден, продолжаем работу if (fControl = nil) then Continue; // Загружаем сохраненное свойство TRadioButton(fControl).Checked:= ReadBool(strRadioBtns, fControl.Name, False); end; StrL.Clear; // Читаем настройки CheckButtons ReadSection(strCheckBx, StrL); for i:= 0 to Pred(StrL.Count) do begin fControl:= Self.FindComponent(StrL[i]); if (fControl = nil) then Continue; TCheckBox(fControl).Checked:= ReadBool(strCheckBx, fControl.Name, False); end; // Читаем настройки RadioGroups StrL.Clear; ReadSection(strRadioGroup, StrL); for i:= 0 to Pred(StrL.Count) do begin fControl:= Self.FindComponent(StrL[i]); if (fControl = nil) then Continue; TRadioGroup(fControl).ItemIndex:= ReadInteger(strRadioGroup, fControl.Name, 0); end; finally // Очищаем память StrL.Free; Free; end; end; procedure TForm1.SaveSettings; // Сохранение настроек var Ini: TIniFile; procedure WriteProps(aComp: TWinControl); // Запись настроек отдельного компонента, // имеющего на себе еще несколько компонентов var i: Integer; begin with aComp do begin // Проверяем количество компонентов внутри нашего if (ControlCount < 1) then Exit; // Перебор всех компонентов внутри for i:= 0 to Pred(ControlCount) do begin // Если нашли TRadioGroup, сохраняем if (Controls[i] is TRadioGroup) then Ini.WriteInteger(strRadioGroup, Controls[i].Name, TRadioGroup(Controls[i]).ItemIndex) // Если нашли компонент, который // может содержать в себе другие компоненты, // то проверяем и его else if (Controls[i] is TWinControl) then WriteProps(Controls[i] as TWinControl); // Если нашли TRadioButton, то сохраняем его if (Controls[i] is TRadioButton) then Ini.WriteBool(strRadioBtns, Controls[i].Name, TRadioButton(Controls[i]).Checked) // Если нашли TCheckBox, то сохраняем его else if (Controls[i] is TCheckBox) then Ini.WriteBool(strCheckBx, Controls[i].Name, TCheckBox(Controls[i]).Checked); end; end; end; begin // Открываем файл настроек Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + SettingsFile); try // Если на форме есть хоть один компонент if (Self.ControlCount > 0) then // То записываем настройки WriteProps(Self); finally // Освобождаем память Ini.Free; end; end; ...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 19.07.2007, 12:46

Отвечает: Дмитрий С. Здравствуйте, Хакеров Алексей Андреевич! Для экзаменаторов!!!! Дублирующий ответ, да плюс еще незнание русского языка. [= Gh0stik =] Предлагаю записывать всё енто дело в .ini файл или в реестр --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 3-ий класс) Ответ отправлен: 19.07.2007, 13:37

Вопрос № 95.640

Доброе время суток! Подскажите пожалуйста как решить такую проблему: необходимо чтобы программа считывала курсы валют. Заранее спасибо.

Отправлен: 19.07.2007, 08:34 Вопрос задал: Vlad Cepesh (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Coupler Здравствуйте, Домикальчиков Владимир Юрьевич! Для этого можно, например, загрузить страницу какого-нибудь сайта, в которой показываются курсы валют, и получить их со страницы. В примере информация берется с http://www.rbc.ru/ (документ http://www.rbc.ru/out/802.csv) - в нем отображаются курсы валют и множество другой информации. Пример взят с http://www.delphisources.ru/ скачать пример (13кб). Также пример лежит в приложении. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, idHTTP, Menus, ExtCtrls,Clipbrd, ComCtrls,INIFiles; type TVal=record Typ:String; Edizm:String; Date:TDateTime; Value:Real; Incr:Real; end; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; HTTP: TIdHTTP; implementation uses DateUtils; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var S: TStringList; P,I: integer; USD,EUR,AFS,pM,pP: string; begin HTTP:=TIdHTTP.Create(nil); HTTP.HandleRedirects:=True; HTTP.ProtocolVersion:=pv1_0; HTTP.ProtocolVersion:=pv1_0; // S:=TStringList.Create; S.Text:=HTTP.Get('http://www.rbc.ru/out/802.csv'); // Курс валют P:=S.IndexOf('#---- Курсы ЦБ РФ ----'); // if not (P=-1) then begin for i:=0 to 5 do begin inc(P); if Pos('USD ЦБ РФ',S.Strings[p])>0 then USD:=S.Strings[p]; if Pos('EUR ЦБ РФ',S.Strings[p])>0 then EUR:=S.Strings[p]; if Pos('GBP ЦБ РФ',S.Strings[p])>0 then AFS:=S.Strings[p]; end; // USD ЦБ РФ,1 Доллар США,27/02,31.6065,0.019 // EUR ЦБ РФ,1 ЕВРО,27/02,34.0118,-0.1311 end; Delete(USD,1,pos('/',USD)); Delete(USD,1,pos(',',USD)); Delete(USD,pos(',',USD),20); Delete(EUR,1,pos('/',EUR)); Delete(EUR,1,pos(',',EUR)); Delete(EUR,pos(',',EUR),20); Delete(AFS,1,pos('/',AFS)); Delete(AFS,1,pos(',',AFS)); Delete(AFS,pos(',',AFS),20); Label1.Caption:='Курс валют на '+DateToStr(Now)+': '+#10#13+#10#13+' Доллар США: '+USD+#10#13+' Евро: '+EUR+#10#13+' Английский фунт стерлингов: '+AFS; // Погода P:=S.IndexOf('#---- Погода в городах России и СНГ ----'); // if not (P=-1) then begin for i:=0 to 5 do begin inc(P); if Pos('Погода,Москва',S.Strings[p])>0 then pM:=S.Strings[p]; if Pos('Погода,С-Петербург',S.Strings[p])>0 then pP:=S.Strings[p]; end; // Погода,Москва,17/11,-4...-2,Москва // Погода,С-Петербург,17/11,-4...-2,С-Петербург end; HTTP.Free; Delete(pM,1,pos('/',pM)); Delete(pM,1,pos(',',pM)); Delete(pM,pos(',',pM),20); Delete(pP,1,pos('/',pP)); Delete(pP,1,pos(',',pP)); Delete(pP,pos(',',pP),20); Label1.Caption:=Label1.Caption+#10#13+#10#13+'Погода на: '+DateToStr(Now)+': '+#10#13+#10#13+' Москва: '+pM+#10#13+' Санкт-Петербург: '+pP; end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:='Курс валют/погода на '+DateToStr(Date)+':'; end; end.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 19.07.2007, 08:52 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Попробовал - работает!

Вопрос № 95.654

Здравстуйте, Эксперты! Пишу базу данных. С помощью закладки ВDE, пытаюсь отобразить на компоненте DBGrid данные из таблицы Акцесса, посредством TTable (закладка BDE). Для базы данных я задал алиас в в BDE Administrator - MyBase. Так вот: Связь задана с помощью TDATASourse, а при задании имени таблицы в TTable у меня программа требует имя пользователя и пароль. PS База данных локальная, и никаким паролем не запаролена!!! Вопрос: В чем тут дело и можно ли снять эти ограничения?

Отправлен: 19.07.2007, 10:59 Вопрос задал: Герасименко Алексей Анатольевич (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Виктор Пырлик Здравствуйте, Герасименко Алексей Анатольевич! Пользователь (логин) для Access: Admin Пароль : пустой Для корректной работы с MS Access рекомендуется использовать компоненты со страницы ADO. 1. BDE использует доступ ODBC 2. Работа через BDE ограничивает распространение приложения дополнительной привязкой к собственным драйверам (надо будет инсталлировать и BDE) 3. Нет ни какой уверенности, что «завтра» ваше приложение посредством BDE сможет работать с базой новой Access (новыми драйверами). Borland уже давно не сопровождает BDE. 4. При использовании ADO появляются дополнительные возможности при работе с данными, и облегчается программирование. --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 19.07.2007, 12:42

Отвечает: Delph Здравствуйте, Герасименко Алексей Анатольевич! В компоненте Database (аналог в ADO: ADOConnection) есть свойство LoginPrompt. Его нужно выставить в False. Это подавит форму, запрашивающую логин и пароль. Свойство LoginPrompt я привык сбрасывать в испекторе объектов - так проще всего.

Ответ отправил: Delph (статус: 4-ый класс) Ответ отправлен: 19.07.2007, 13:01

Отвечает: Djec Здравствуйте, Герасименко Алексей Анатольевич! Для работы с Аксесс необходимо работать с компонентами из закладки ADO. Сначала ставим TADOConection. Теперь настройте соединение с сервером, которое должно быть прописано в свойстве ConnectionString. Для этого надо дважды щёлкнуть по строке ConnectionString. В открывшемся окне выберите Use Connection String и нажмите кнопку Build. На закладке Provider выберите Microsoft Jet 4.0 OLE DB Provider. После этого нажмите кнопку Next. В появившемся окне надо ввести имя (если надо то и путь) базы данных в строку «Select or enter a database name». Если база данных будет располагаться в той же директории, что и запускной файл, то путь указывать не надо. Поле User name можно оставить по умолчанию, если не заданно иное при создании базы; Поле Password – если база имеет пароль, то его необходимо указать; Поле Blank password – если пароль не нужен, то здесь желательно поставить галочку; Поле Allow saving password. Если здесь поставить галочку, то пароль может быть сохранён. Для проверки соединения нажмите кнопку Test Connection. Если удачно, появится сообщение Test connection succeeded. Теперь закрывайте. В свойствах компонента ADOConnection отключите свойство LoginPrompt, выставив его в False. Это нужно для того, чтобы при каждом обращении к базе не выскакивало окно ввода пароля. А теперь выставте свойство Connected в True, чтобы произошло соединение с базой. Далее выбирайте из закладки ADO компоненту TADOTABLE. В свойстве ConnectionString указываем наше ADOConnection1. Active выставите в True. А с компонентой TDATASourse стандартные операции. --------- Никогда не сдавайся, даже если боишься проиграть

Ответ отправил: Djec (статус: 2-ой класс) Ответ отправлен: 19.07.2007, 13:21

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.53 beta от 09.07.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru