23.09.2017, 07:02 [+3 UTC]
в нашей команде: 2 126 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
21.09.2017, 12:28

Последний вопрос:
22.09.2017, 19:10

Последний ответ:
22.09.2017, 18:06

Последняя рассылка:
22.09.2017, 21:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
26.03.2010, 21:18 »
Судейкин Андрей Владимирович
Всё так, как мне и надо было, огромное вам спасибо! [вопрос № 177465, ответ № 260390]
05.10.2009, 17:00 »
Teratoma
Это тоже хороший способ, спасибо. Но там надо вручную вводить еще и расширение файла, а для этого раскладку переключать... [вопрос № 172930, ответ № 255032]
10.05.2011, 14:30 »
lamed
Качественная и солидная работа. Большое спасибо. С уважением. [вопрос № 182890, ответ № 267064]
 
   
Просмотр сообщений мини-форумов - Владимир
• Pascal / Delphi / Lazarus
Вопрос № 188119 ушел в рассылку

Здравствуйте! Прошу помощи в следующем вопросе: Отправка почты. Есть рабочий код, использую уже как бы давно. Тут потребовалосо сделать отправку на yandex, тут и возникли вопросы в связи с использованием SSL. Работаю в Delphi 7. При отправке пишет что не может соединиться с сервером. Просто смена порта с 25 на 465 не пойдет. Подскажите как правильно реализовать отправку.
Код который использую.[code]
procedure TForm3.Mail;
begin
IdSMTP1.Host:=Edit1.Text;
IdSMTP1.Port:=StrToInt(Edit2.Text);

IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentType:='...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 21.10.2015, 13:31
• Pascal / Delphi / Lazarus
Вопрос № 187951 ушел в рассылку

Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Подключение к базе данных Microsoft Access с паролем.
В процессе разработки приложения пароль на базу данных не ставил, все работает отлично. Сейчас потребовалось установить пароль на базу, и возникли проблемы с подключением. При запуске приложения выдает "Не возможно найти устанавливаемый ISAM".
Без пароля подключение к базе делаю так:
[code] begin
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source='+Edit1.Text+';' +
'Persist Security Info=F...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 08.12.2014, 10:57
• Pascal / Delphi / Lazarus
Вопрос № 187795 ушел в рассылку

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Есть приложение, база данных. При добавлении данных проблем не замечено, а вот при удалении данных, после 3-4 удалений появляется ошибка "Не достаточно памяти". В диспетчере задач видно что при каждом удалении растет объем занятой памяти приложением. В чем может быть проблема? После закрытия приложения память освобождается. Использую БД Microsoft Access, подключение через ADOConnection, ADOTable, ну и для навигации использую DBNavigator1.


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 20.03.2014, 18:00
• Pascal / Delphi / Lazarus
Вопрос № 187705 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом: В процессе создания программы использую DBGrid. Для удобства пользования решил сделать сортировку в отображаемой таблице. Отыскал интересный вариант сортировки. Ссылка на описание сортировки.
[code]procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const PreviousColumnIndex : integer = -1;
{$J-}
begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
try
...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 05.01.2014, 18:06
• Pascal / Delphi / Lazarus
Вопрос № 187700 ушел в рассылку

Здравствуйте! Прошу помощи в следующем вопросе: Работа с базой данных Microsoft Access. Вопрос получается в нескольких частях.
1. Подключение ADOQuery1 к базе данных. Так как путь к базе может менятся, то сохранение в программе не допускается. Пробую подключать как подключаю ADOConnection1 (тут все работает), выдает ошибку "Не выполнена проверка подлинности". Подключение осуществляю так [code]procedure TForm1.ConnectBase;
begin
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + Edit1.Text + ';' +
...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 03.01.2014, 13:29
• Pascal / Delphi / Lazarus
Вопрос № 187672 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом: Требуется сохранить в ini файле настройки шрифта.
Я использую для чтения и хранения такую конструкцию
[code]
Чтение
TabSheet1.Font.Color:=IniFile.ReadInteger('-----TabSheet1_Font_Color-----','8',TabSheet1.Font.Color);
TabSheet1.Font.Size:=IniFile.ReadInteger('-----TabSheet1_Font_Size-----','9',TabSheet1.Font.Size);
TabSheet1.Font.Style:=IniFile.ReadInteger('-----TabSheet1_Font_Style-----','10',TabSheet1.Font.Style); - ругается
TabSheet1.Fo...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 12.12.2013, 16:12
• Pascal / Delphi / Lazarus
Вопрос № 187575 ушел в рассылку

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Мне требуется найти в документе Excel текст (метку) #p# и заменить своими данными. Я сделал так
[code]
var
Ex, Workbook, FitToPagesTall,FitToPagesWide,
CenterHorizontally, CenterVertically, Orientation, PaperSize:Variant;
p_, p1_,replace, range : OleVariant;
begin
Ex := CreateOleObject('Excel.Application');
Ex.Application.EnableEvents := false;
Ex.DisplayAlerts := False;
Workbook := Ex.WorkBooks.Open('C:\Temp\Ob.xlsx');
Ex.Visible := false;

Ex.Act...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 16.10.2013, 19:26
• Pascal / Delphi / Lazarus
Вопрос № 187565 ушел в рассылку

Уважаемые эксперты! Пожалуйста, ответьте на вопрос: В ComboBox грузится список людей, мне требуется из полной ФИО (Иванов Иван Иваныч) получить в Edit Иванов И.И.. Подскажите как лучше организовать такое.

var s : String;
    i : integer;
begin
  s := ComboBox2.Text;

  Edit1.Text := '???';
end;


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 09.10.2013, 07:44
• Pascal / Delphi / Lazarus
Вопрос № 187558 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом: Загрузка данных из Excel в форму. С Excel нужно взять данные к примеру с дипазона А1:А30 и загрузить в ComboBox1, с ячеек В1:В30 и загрузить в ComboBox2. Файл с данными открываю так: [code]procedure TForm1.Open;
var
Ex, WorkBook, Sheet: Variant;
s: String;
i, l: Integer;
begin
Ex := CreateOleObject('Excel.Application');
WorkBook := Ex.WorkBooks.Open('c:\Proect\Data.xls'); // открытие файла

{Тут должна идти загрузка в комбобоксы}

WorkBook.Close;
Ex.Quit;

[/cod...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 07.10.2013, 18:30
• Pascal / Delphi / Lazarus
Вопрос № 187499 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом: На форме 2 Мемо. В первое Мемо я загружаю эталонный файл, во второй файл для сравнения, мне нужно что бы одинаоквые данные (фамилии) во втором Мемо удалялись. Использую такой код [code]procedure TForm1.BitBtn1Click(Sender: TObject);
var
Find:string; //Искомая строка
i,n,:integer; //Счетчик для цикла
begin
for n:=0 to Memo1.Lines.Count-1 do begin
find:=Memo1.Lines[n]; // Запись в find текст из Memo1
For i:=0 to Memo2.Lines.Count-1 do //Запуск цикла
If Pos(FIND, Memo2.Lines.Text)<>0
Then
Begin...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 30.06.2013, 20:36
• Pascal / Delphi / Lazarus
Вопрос № 187484 ушел в рассылку

Здравствуйте! Прошу помощи в следующем вопросе: В процессе выполнения процедуры у меня с Мемо содержимое копируется в ComboBox

ComboBox2.Items.Text:=Memo3.Lines.Text;
Комбобокс работает как поисковик, мне требуется сделать что бы копировалась выделенная (текущая) строка в комбобоксе, и в Мемо3 выделялась найденная в комбобоксе фамилия.

Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 25.06.2013, 07:58
• Pascal / Delphi / Lazarus
Вопрос № 187080 ушел в рассылку

Здравствуйте! Прошу помощи в следующем вопросе:
Делаю приложение с использованием ClientSocket, два ClientSocket. Использую их для связи с устройством Jerome. Я уже задавал вопрос по работе с этим устройством, все получилось, работает как мне и нужно. Сейчас у меня в "конструкторе" установленны два устройства Jerome, соединены через хаб с компом. При подключении все нормально, но через какое то время то один Jerom, то другой отваливаются.
В логе
[code]
31.12.2012 10:24:48 Команда на подключение к хосту
31.12.2012 10...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 05.01.2013, 11:31
• Pascal / Delphi / Lazarus
Вопрос № 186786 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом: Приобрел такой http://www.masterkit.ru/main/set.php?code_id=573112 девайс. На сайте магазина есть ехе-шник с программой. С магазинной программой работает. Хочу сделать программу в Delphi так как мне нужно. Тут сразу возникло несколько вопросов, так как с портами не работал.
1. Определение что оборудование подключено.
2. Передача данных и получение состояния каналов.
3. Сохранение и запись файла конфигурации.

При подключении к компьютеру сообщение что драйвер...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 07.11.2012, 10:22
• Pascal / Delphi / Lazarus
Вопрос № 186468 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом: Получить версию файла.
Я использую такой метод (найден на просторах интернета).
[code]procedure TForm1.BitBtn1Click(Sender: TObject);///Получить полную информацию о файле
const
Tabulator: array[0..0] of Integer = (70);
BoolValues: array[Boolean] of string = ('No', 'Yes');
var
FvI: TFileVersionInfo;
begin
FvI := FileVersionInfo('D:\Прога\.Test.exe');
ListBox1.TabWidth := 1;
SendMessage(ListBox1.Handle, LB_SETTABSTOPS, 1, Longint(@Tabulator));
with FvI, ListBox1.I...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 25.07.2012, 15:02
• Pascal / Delphi / Lazarus
Вопрос № 186451 ушел в рассылку

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Склонение фамилий с использованием Padeg.dll. В комбобокс грузится список фамилий с инициалами, скажем Иванов П.П. Сидоров А.С. и т.д.. Подскажите как сделать так, если я выбрал в комбобоксе Иванов П.П. то в едит1 будет Иванову П.П., соответсвенно если выбран Сидоров А.С. то Сидорову А.С..В приведенном ниже коде работает склонение если нет инициалов. Если выбираю в комбобоксе "Иванов" в едите выдает "Иванову". Проблема в том что не хочет склонять если с фамилией идут инициалы (Иванов И.И.).
У мен...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 18.07.2012, 12:29
• Pascal / Delphi / Lazarus
Вопрос № 186441 ушел в рассылку

Здравствуйте! Прошу помощи в следующем вопросе: Склонение фамилий. В комбобокс грузится список фамилий с инициалами, скажем Иванов П.П. Сидоров А.С. и т.д.. Подскажите как сделать так, если я выбрал в комбобоксе Иванов П.П. то в едит1 будет Иванову П.П., соответсвенно если выбран Сидоров А.С. то Сидорову А.С.. Тут еще может возникнуть ситуация когда фамилия заканчивается на "О", в этом случае ни чего делать не нужно. Заранее благодарю за совет.


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 13.07.2012, 10:43
• Pascal / Delphi / Lazarus
Вопрос № 186432 ушел в рассылку

Уважаемые эксперты! Добрый день. Пожалуйста, ответьте на вопрос: В моем приложении не выполняется условие. Написанное приложение используетсся для заполнения разнообразных бланков. Есть главная форма из которой открываются дочерние формы и происходит заполнение. В процессе использую шаблон Excel.В зависимости от типа бланка в шаблоне удаляются либо остаются листы для заполнения.
Ниже часть кода с ошибкой.
[code]procedure TForm2.DPrint;
var
Ex, Workbook, L1, L2, L3, L4, L5, FitToPagesTall,FitToPagesWide,
CenterHorizontally, CenterVertically, Orientation, PaperSize:Variant;


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 04.07.2012, 10:12
• Pascal / Delphi / Lazarus
Вопрос № 185699 ушел в рассылку

Уважаемые эксперты! Пожалуйста, ответьте на вопрос: При пуске программы настройки берутся из реестра, в частности пути к файла, выводятся в Едиты.
1 вопрос: В Edt1 выводится путь к первому файлу, допустим "C:\Prog\март.xls" как мне из этого файла в Items Combobox вывести названия листов. И после выбора в комбобоксе скажем третьего листа, данные с третьего листа грузились в StrinGrid1?

2 вопрос: В Edit2 выводится путь ко второму файлу "C:\Prog\2011.xls". Из этого файла у меня должно выборочно по листам (приблизительно -лист1 "А4" , лист2 D6) братся данны...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 29.03.2012, 12:54
• Pascal / Delphi / Lazarus
Вопрос № 185241 ушел в рассылку

Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Как в StringGrid корректно реализовать функции "Вырезать", "Копировать", "Вставить" из выбранной ячейки?


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 21.01.2012, 15:26
• Pascal / Delphi / Lazarus
Вопрос № 185089 ушел в рассылку

Здравствуйте! Прошу помощи в следующем вопросе: Программа написана на Delphi 7, использую ClientSocket. Программа подключается, через какое то время выходит сообщение "Asynchronous socket error 10060". Подскажите как правильно обработать данную ошибку. Заранеее благодарю за внимание.


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 06.01.2012, 17:25
• Pascal / Delphi / Lazarus
Вопрос № 184862 ушел в рассылку

Здравствуйте, уважаемые эксперты! Прошу у Вас консультации не много не по теме возможно, но тем не менее надеюсь на помощь.
На просторах интернета отыскал такой девайс Jerom Заказал, получил. Хочу его использовать для своих нужд (подкупило что можно использовать WI-FI), вроде и описание есть и примеры на С+. Но как с Delphi подружить?! Как говорится новичек в програмировании. Я так понимаю нужно и сервер и клиента делать в моем приложении. На этой странице есть пример на С+ Пример на С+ Под...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 19.12.2011, 21:32
• Pascal / Delphi / Lazarus
Вопрос № 184092 ушел в рассылку

Уважаемые эксперты! Пожалуйста, ответьте на вопрос: У меня в программе происходит выгрузка из формы в шаблон Excel, на некоторых компьютерах выдает ошибку "Нельзя установить свойство Size класса Font". В чем может быть ошибка? Причем не зависит от установленного офиса (2003 или 2007). Выгрузка в шаблон происходит так
[code]

sh := Form2.ComboBox14.Text;///--Размер шрифта

Ex.ActiveWorkBook.WorkSheets[L1].Range['B26:B43'].Select;
Ex.Selection.Font.Size:=sh;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
Ex.ActiveWorkBook.WorkSheets[L1]...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 26.09.2011, 08:08
• Pascal / Delphi / Lazarus
Вопрос № 183815 ушел в рассылку

Уважаемые эксперты! Подскажите как правильно орагнизовать загрузку данных из Excel. Есть готовый документ, в нем может быть от 2 до 5 листов.
1-Мне необходимо узнать количество листов
2- С помощью OpenDialog загрузить данные из имеющихся листов. Данные будут грузится в комбобоксы, и едиты для редактирования.
Заранее благодарю за помощь.


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 25.07.2011, 14:50
• Pascal / Delphi / Lazarus
Вопрос № 183004 ушел в рассылку

Добрый день. Прошу помощи в следующем вопросе: У меня в программе формируется бланк, выходной формат по условиям должен быть в Excel.
В документ кроме цифр переносится текст. Вот с переносом текста у меня возникли проблемы.
Переношу текст из программы в Excel таким образом

 for i:=1 to length(mem3) do begin
       j:=(i div 105) + 7;
     Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value+mem3[i];

Текст берется из Мемо (mem3) и пишется в открытую книгу Ex.ActiveWorkBook
Проблема с том что при переносе текста...
Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 30.04.2011, 13:30
• Pascal / Delphi / Lazarus
Вопрос № 182940 ушел в рассылку

Уважаемые эксперты! Искал в интернете не нашел ответа на вопрос, обращаюсь к вам, может Вы поможете.
Есть у меня на форме три CheckBox. CheckBox13, CheckBox14, CheckBox15. Если CheckBox13=cdChecked то пишется в файл и идет выполнение дальше. Если CheckBox13=cdUnchecked то дальше код не хочет выполнятся, не хочет переходить к условиям выполнения CheckBox14. Как правильно написать что если CheckBox13=cdUnchecked то перейти к выполнению условия CheckBox14 и соответвенно еслиCheckBox14=cdUnchecked то перейти к условию CheckBox15.

[code]

///---Действия при CheckBox13

If ...


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 25.04.2011, 20:43
• Pascal / Delphi / Lazarus
Вопрос № 181287 ушел в рассылку

Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: Разрабатываю приложение с расчетом цены. Результат расчета выводится в TEdit с последуещей выгрузкой в Excel. Как мне получить в TEdit результат расчета стоимости в формате к примеру 245руб 55коп., и соответсвенно такое же отображение в Excel. Может быть использовать компонент MaskEdit? Подскажите правильный подход.


Автор вопроса: Владимир (Посетитель)
Дата отправки вопроса: 13.12.2010, 08:52
Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.18005 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн