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

Выпуск № 893
от 12.08.2007, 21:35

Вопрос № 97.548

Уважаемые эксперты помогите разобраться с такими проблемами: 1) Нашёл у себя на диске код, полученыйна вашем портале. Написал процедуру AddSimbol(a:integer); не могу понять как её правильно вызвать из procedure NullClick(Sender: TObject); Сейчас ругается недекларированый идентификатор. 2) Посоветуйте литературу по созданию собственных классов буду дальше изменятьTNumEdit. Использую дельфи 7. Спасибо. Михаил. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls, StdCtrls, ExtCtrls; type TNumEdit = class(TRichEdit) procedure CreateParams(var Params:tcreateparams); override; procedure KeyPress(var key:char); override; function EqNum(str:string):integer; end; type TMainForm = class(TForm) GroupBox1: TGroupBox; Null: TButton; procedure FormCreate(Sender: TObject); procedure NullClick(Sender: TObject); procedure AddSimbol(a:integer); private { Private declarations } public { Public declarations } end; var MainForm: TMainForm; numedit: TRichEdit; Ziffer: integer; implementation {$R *.dfm} procedure TMainForm.AddSimbol(a:integer); begin a := Length(numedit.Text); if a = 10 then Application.MessageBox('Не более 10 цифр','Внимание'); end; procedure TNumEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_RIGHT; end; function tnumedit.EqNum(str:string):integer; var j:integer; begin result:=0; j:=0; j:=pos('-',str); if j>0 then delete(str,j,1); j:=pos(decimalseparator,str); if j>0 then delete(str,j,1); result:=length(str); end; procedure TNumEdit.KeyPress(var Key: Char); begin if Key = ',' then Key := DecimalSeparator; // запятую заменяем нах на разделитель для числа установленный в винде по умолчанию if Key = '.' then Key := DecimalSeparator; // точку заменяем на разделитель для числа if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13]) then Key := #0; // запрещенный символ?? ужасно! запрещаем. end; procedure TMainForm.FormCreate(Sender: TObject); begin numedit:= Tnumedit.Create(self); numedit.Parent := self; //родитель - текущая форма numedit.Text:= '0'; numedit.Left:= 16; numedit.Top:= 16; numedit.Width := 177; numedit.Height := 30; numedit.Font.Size:=14; numedit.Font.Style := [fsBold]; numedit.Font.Name := ' Times New Roman '; numedit.TabOrder := 0; numedit.MaxLength := 10; end; procedure TMainForm.NullClick(Sender: TObject); begin AddSimbol(a:integer); Ziffer := 0; end; end.

Отправлен: 06.08.2007, 21:42 Вопрос задал: MIXAIL (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Виктор Пырлик Здравствуйте, MIXAIL! Тот код, что вы дали нерабочий. Замена на правильный вызов функции AddSimbol(a:integer) на AddSimbol(5); Практически бессмысленна, хоть и ошибка в этом случае исчезнет. Сама функция бессмысленна в данном контексте. В общем, в приложении дан полностью рабочий код. Вы можете, если есть необходимость, модифицировать его, и после отладки – создать компонент TNumEdit – как это сделать, можно прочесть в любой книге по Delphi, очень не плохая: Delphi 7. Для профессионалов, М. Кэнту (электронный вариант) но, я предпочитаю такие книги иметь не в электроном виде. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls, StdCtrls, ExtCtrls; type TNumEdit = class(TEdit) private public procedure CreateParams(var Params:tcreateparams); override; procedure KeyPress(var key:char); override; function EqNum(str:string):integer; constructor Create(AOwner: TComponent);override; end; TMainForm = class(TForm) GroupBox1: TGroupBox; Null: TButton; procedure FormCreate(Sender: TObject); private numedit: TNumEdit; public { Public declarations } end; var MainForm: TMainForm; Ziffer: integer; implementation {$R *.dfm} {------------------ TNumEdit ---------------------------------------} constructor TNumEdit.Create(AOwner: TComponent); begin inherited Create(AOwner); Width := 121; Text:= '0'; Visible := true; end; procedure TNumEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_RIGHT; end; function tnumedit.EqNum(str:string):integer; var j:integer; begin result:=0; j:=0; j:=pos('-',str); if j>0 then delete(str,j,1); j:=pos(decimalseparator,str); if j>0 then delete(str,j,1); result:=length(str); end; procedure TNumEdit.KeyPress(var Key: Char); var s:String; begin s:= Text; if Key = '-' then begin if Pos(Key,s)>0 then Key := #0 else begin Text := ' '+s; SelStart := 1; end; end else if Key in ['.',','] then begin Key := DecimalSeparator; if Length(s) = 0 then Key := #0 else if Pos(Key,s)>0 then Key := #0; end else if not (Key in ['0'..'9',#8,#13,#27]) then Key := #0 else Key := Key; end; {------------------ TMainForm -----------------------------------------------} procedure TMainForm.FormCreate(Sender: TObject); begin numedit:= Tnumedit.Create(self); numedit.Parent := self; //родитель - текущая форма numedit.Left:= 68; numedit.Top:= 144; numedit.Show; end; end. --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 07.08.2007, 03:19 Оценка за ответ: 5 Комментарий оценки: Спасибо. Мне было важно вызвать процедуру код её я ещё не дописал.Сам вызывал как AddSimbol() Хотелось вызвать с параметрами.

Отвечает: Mishell Здравствуйте, MIXAIL! честно говоря непонятно что ваша процедура AddSimbol должна делать - что куда добавлять... но по вызову этой функции - при вызове не надо задавать тип переменной: procedure TMainForm.NullClick(Sender: TObject); begin AddSimbol(123); Ziffer:= 0; end; Вообще по дельфи и по классам в частности можно посоветовать книгу: Архангельский А.Я. Программирование в Delphi 7. п.с.: Вам неплохо бы подучить основы программирования (типы данных, процедуры, функции ...)

Ответ отправил: Mishell (статус: 4-ый класс) Ответ отправлен: 07.08.2007, 10:16 Оценка за ответ: 5 Комментарий оценки: Спасибо. Процедура ещё не дописана.Хотелось понять как она вызывается с параметрами.

Вопрос № 97.612

Уважаемые эксперты, возник вопрос. Пишу dll на Delphi, создал специальную тестовую exe шку которая загружает и работает с dll кой, так вот при отладке dll ки в Delphi все нормально почти всегда, но иногда при завершении работы программы выкидывает на Debug, а вот при запуске exe файла все отрабатывает нормально, но при закрытии exe файла выскакивает сообщение о том, что обнаружена ошибка и приложение будет закрыто, спрашивает отправлять ли отчет. при этом при нажатии "Не отправлять" это окно появляется еще 19 раз, т.е. всего 20, не знаю значит ли это что то, но вот прошу помочь разобраться. Вероятнее всего это проблема в некорректной выгрузке dll из памяти, если кто знает как корректно выгружать dll плиз помогите.

Отправлен: 07.08.2007, 12:23 Вопрос задал: Кэр Лаэда (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Shveps Здравствуйте, Кэр Лаэда! Скорее всего, у вас ошибка в самой dll. Может быть при выгрузке dll происходит обращение к участку памяти, который уже освобожден. Или вы создаете динамически какой-то объект внутри dll и забываете его освобождать после использование. Вообще вариантов ошибок может быть много :) так, что смотрите внимательнее код. --------- Пиво ф топку !!! Водку Тоже !!!

Ответ отправил: Shveps (статус: 7-ой класс) Ответ отправлен: 07.08.2007, 12:36 Оценка за ответ: 5 Комментарий оценки: спасибо, точно создавал в dll класс в котором переменные создавались динамически, поставил onDestroy их удаление и все стало нормально .... спасибо.

Отвечает: Примак Руслан Николаевич Здравствуйте, Кэр Лаэда! Можно привести кучу примеров, но, конкретно без вашего кода, это смысла не имеет. Предоставьте код - будем разбираться

Ответ отправил: Примак Руслан Николаевич (статус: 3-ий класс) Ответ отправлен: 07.08.2007, 12:46 Оценка за ответ: 1 Комментарий оценки: мой код вам ничего не даст так как вы его не сможете даже запустить (он использует базу которую я переслать не могу из за ее размеров) а по поводу кучи примеров, то если хотите чтобы ваш ответ претендовал действительно на ответ, то привели бы хотя бы парочку.

Вопрос № 97.622

Здравствуйте, помогите пожалуйста... что-то "запарился" в одном вопросе. Для начала мне надо чтобы в программе, например в мемо-поле, вывелись все присутствующие Dial Up Интернет-соединения... пока более ничего не надо, сначала хочу разобраться с этим вопросом. Нашел статейку "Подключиться к Интернету, определить активные соединения, определить и сохранить параметры соединения" в сборнике Delphi World 6 Pro (начало статьи в приложении), скачал файл res.pas (отсюда http://delphi-jedi.org) но мне что то непонятно как его "воткнуть" в мою программу и применить? === если можно помогите пожалуйста. Неплохо бы было если бы еще исходничек помогли составить. Приложение: как из Вашей программы подключиться к Интернету, определить активные соединения, определить и сохранить параметры соединения. Все эти функции находятся в rasapi32.dll. Описания этих функций для Delphi есть в модуле res.pas. Его можно скачать на сайте program.dax.ru (14 Кбайт). Эта программа заполняет ListBox1 всеми соединениями, ListView1 - всеми активными соединениями. При двойном щелчке по соединению в Edit1 и Edi2 кладутся имя пользователя и пароль (если он сохранен). Кнопка "Dial Up" устанавливает соединение, "Save" сохраняет имя пользователя и пароль. "Hang Up" разрывает соединение. "Update Entries" и "Udate Conns" обновляют информацию о соединениях. В том случае, если связь разорвалась сама, для установления соединения необходимо сначала нажать "Hang Up". Скачать необходимые для компиляции файлы проекта можно на program.dax.ru. Дустапны проекты для Delphi3 и для Delphi5.

Отправлен: 07.08.2007, 14:57 Вопрос задал: Пепеляев Александр Павлович (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Примак Руслан Николаевич Здравствуйте, Пепеляев Александр Павлович! Наверное имеется ввиду файл "Ras.pas", для использования его нужно скопировать в папку с проектом и прописать в Uses секции interface или implementation. Далее можно использовать процедуры, функции из этого модуля. Из ресурса http://www.denissoft.com/print.php?pr=article&fileid=56245db14a7eea60&line=27 можно взять процедуру FillConnections, на вход которой передать в качестве параметра Memo.Lines Приложение: procedure FillConnections(items: TListItems) var conns: LPRasConn ConnCount, bufsize: longint li: TListItem i: integer status: TRASCONNSTATUS begin items.BeginUpdate items.Clear bufsize := 0 // Определение количества активных соединений: RasEnumConnections(nil, bufsize, ConnCount) if ConnCount &gt 0 then begin // Выделение памяти: GetMem(conns, bufsize) conns^.dwSize := sizeof(TRasConn) // Заполнение conns информацией об активных соединениях: RasEnumConnections(conns, bufsize, ConnCount) status.dwSize := sizeof(TRasConnStatus) // Заполнение items названиями соединений: for i := 0 to ConnCount - 1 do begin li := items.Add li.Data := pointer(conns^.hrasconn) li.Caption := conns^.szEntryName li.SubItems.Add(conns^.szDeviceType) li.SubItems.Add(conns^.szDeviceName) RasGetConnectStatus(conns^.hrasconn, status) li.SubItems.Add(StateStr(status.rasconnstate, status.dwError)) inc(conns) end // Освобождение памяти: dec(conns, ConnCount) FreeMem(conns) end items.EndUpdate end

Ответ отправил: Примак Руслан Николаевич (статус: 3-ий класс) Ответ отправлен: 07.08.2007, 15:48 Оценка за ответ: 5

Вопрос № 97.628

Ув. эксперты. Скинте пожалуста ссылки, где можно скачать руссификатор для Borland Turbo Delphi 2006, и где можно скачать руссификатор Helpa тоже Borland Turbo Delphi 2006 Заранее огромное спасибо Всем 5 обеспечены

Отправлен: 07.08.2007, 16:02 Вопрос задал: Патрикеев Сергей (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Delph Здравствуйте, Патрикеев Сергей! Вот здесь русские справки по Delphi: http://lab18.ipu.rssi.ru/help2/ http://www.delcb.com/DCont.htm Ресурс платный, но недорогой. По поводу русификатора всей Delphi - у меня есть только для седьмой версии.

Ответ отправил: Delph (статус: 5-ый класс) Ответ отправлен: 07.08.2007, 16:34 Оценка за ответ: 5

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