Знатоки, подскажите, по какой причине при передаче из Dephi в Excel некоторые символы (табуляция, переносы строк и др.) превращаются в квадратики? Причём это наблюдается исключительно на Windows XP, на семёрке и десятке всё ОК. Печать делаю так: var Res:TStringList; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.DisplayAlerts := false; ExcelApp.Application.EnableEvents := false; Workbook := ExcelApp.WorkBooks.Add(extractfiledir(application.ExeName) + 'ResultPr ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83729

из БД MySQL из поля float(4,1) в MaskEdit заношу число 63,6. в MaskEdit-е вижу 63,5. маска MaskEdit-а "00,0;1;_". одни числа отображаются корректно, другие изменяются на одну десятую то вверх, то вниз. как эту беду победить? заношу в MaskEdit:

code:
   MaskEdit5.Text := ADOQuery1.Fields[6].AsString;
  MaskEdit6.Text := KomaBeschriebRevers(ADOQuery1.Fields[7].AsString);

(процедура подменяет точку на запятую) p.s. если число оканчивается на 0 (21,0), то 0 не отображается, ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83728

Доброго дня! Пишу программу на Delphi 10.2. В моей программе необходимо реализовать ввод Пароля и Логина на Form1 при нажатии по кнопке Button. Исходный код имеет вид. var Form1: TForm1; k:integer=3; implementation {$R *.dfm} uses unit2; procedure TForm1.Button1Click(Sender: TObject); var a,b:string ; begin a:='admin'; b:='123'; if (edit1.Text<> a) or (edit2.Text<> b) then begin k:=k-1; showmessage ('Неверно введен логин или пароль'+#13# ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83727

Здравствуйте, вчера при помощи SQL запроса Вы мне помогли собрать статистику из пяти колонок таблицы MyTable Вопрос № 83724:

code:
SELECT Digit,COUNT(Digit)
FROM (
  SELECT num_1 AS Digit FROM MyTable
  UNION ALL
...
  SELECT num_5 AS Digit FROM MyTable
)
GROUP BY Digit

Можно ли создать запрос сразу к двум таблицам? К MyTable и TableStrings в которой всего две колонки: 1. ID которая ровна Digit из первого запроса 2. CombStr строка которую можно назвать "Сумма прописью" объедин ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83725

Написал редактор функциональных блоков. Блоки только И, ИЛИ, НЕ, исключающее ИЛИ. Эту часть доделал, мне нравится, теперь нужно запустить эмуляцию. С чего начать, где и что почитать? Может кто объяснит в двух словах? Мысли такие - по умолчанию на входах всех блоков "0", сами блоки выставляют выхода в зависимости от своего назначения. следуя с верху вниз и слева на право, исходя из выставленных пользователем связей меняем входа и соответственно выхода блоков пока не добираемся до выхода со схемы ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83718

Всем привет. В какой-то момент перестали работать букмарки (ctrl+Shift+0..9). Вместо закладки появляется курсор в виде креста с некими координатами (типа пиксели). Подскажите какая программа так нагадила? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83717

Добрый день. Есть таблица, которая отображается компонентом TDBGridEh. При перемещении по записям при помощи ползунка вертикального скролл-бара, на каждой записи отрабатывается определенный запрос. Задача - сделать так, чтобы запросы отрабатывались не на каждой записи при перемещении, а только тогда когда отпущена правая кнопка мыши на ползунке, т.е. движение прекратилось. События onMouseDown/onMouseUp на ползунке скролл-бара не отрабатываются. Перехват этих событий формы тоже результатов не да ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83715

QuiсkReport. Печать одного блока в разных отчетах. Для печати используется QuiсkReport. У меня есть куча отчетов, но в них есть один блок, типа шапки, который используется везде, изначально я его задизайнил в одном отчете, а потом просто скопировал и вставил в другие, но при малейших доработках приходится править все отчеты, жутко муторно. Может кто-нибудь знает, как можно сделать один блок и использовать его везде? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83714

Доброго времени суток! Может кто подсказать как для поля редактирования TEdit сделать что-то на подобии подсказки ввода, т.е. если поле не активно и пустое, вывести в него светло серую надпись с указанием того, что нужно вводить или отображением значения по умолчанию. Но при появления фокуса ввода, поле ведет себя обычным образом, т.е. серая надпись исчезает и мигает курсор ожидая ввода текста. Что то подобное есть в полях ввода 1С: http://joxi.ru/a2XaQgwFwKW9YA.jpg Есть догадки что это как то ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83713

Доброго времени суток! Разрабатываю приложение, использующее формат XML для хранения данных, XSD схемы для проверки формата загружаемого XML и трансформации XSLT для совместимости с предыдущими форматами сохраненных программой данных. В силу ряда причин, пришлось отказаться от IXMLDocument (из состава классов самого Delphi) в пользу IXMLDOMDocument (импорт библиотеки Microsoft XML version 3). Теперь для отступов в тексте XML стали использоваться символы табуляции, а не пробелы. Как заставить IX ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83703

Доброго времени суток, коллеги. Озадачился следующим вопросом, но красивое решение найти не могу. Есть CheckListBox1, ComboBox1. У них есть свойство Items.

code:
procedure TForm1.Load_in_CB(CB: TObject);
begin
  if CB is TComboBox then ...
  
  if CB is TCheckListBox1 then ...

  with CB do
    begin
      Items.AddObject(...)
      ...                   // - другие манипуляции с CB
    end
end;

Вопрос: Есть ли красивая возможность использовать with CB do, чтобы не ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83702

Здравствуйте. ADO+MSSQL. Записываю в поле таблицы число 291491,29 - но он сохраняет как 291491,28. Тип поля "real". Попробовал ввести через InputBox, а потом преобразовать в числовой тип (может не хорошая идея) - то же самое, он показывает число 291491,28125, меняю на 291491,29 - все равно сохраняет как 291491,28. Что можно сделать? Спасибо. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83695

Добрый день. При попытке обмена по эмулированому COM порту получаю ошибку "WriteFile function failed (Error: 433)". Не могу найти, что это за ошибка. Подскажите, пожалуйста, кто в курсе. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83691

Всего доброго. Вот хотел проконсультироваться насчет следующей задачи. Имеется некая процедура, в теле которой вызывается другая процедура, которая работает в отдельном потоке. Для того чтобы не зависал гуй. Т.е. мне надо дождаться окончания работы потока и продолжить код главного потока. Начал делать на TEvent, но не понравилось мне это и реализовал так: ... Thread.Start; while not Thread.IsOk do begin Application.ProcessMessages; end; IsOk - это свойство потока, которое устанав ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83687

Доброго времени. Среда XE2. Имеется встроенная библиотека TZipFile. Решил воспользоваться этой фичей. Но столкнулся с тем, что при распаковке больших архивов вылетает с ошибкой (что-то о неправильной сигнатуре центрального хидера). В моём случае, большой архив - это 6 Гб. Исследуя исходники, понял (или мне так показалось), что библиотека читает в качестве размеров упакованных и первоначальных данных значения cardinal, и поэтому не поддерживает большие архивы. Вопрос: есть ли у кого-то у ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83686

Всем всяческих благ! Просветите, пожалуйста, почему не работает код:

code:
function GetInetFileSize(h:HInternet):Int64;
...
begin
dwBufferLen:=64;
...
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER64, @result, dwBufferLen, dwIndex) then

но отрабатывает [Code]function GetInetFileSize(h:HInternet):Int64; ... var dwBuff: array [1..32] of Char; begin dwBufferLen:=32; ... if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH, @dwBuff, dwBufferLen, dwIndex) t ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83685

Всем здоровья! У меня возник вопрос, который явно тянет на клюкву. Получил от заказчика задание сделать утилитку для закачки файлов с сервера с последующей их проверкой по контрольной сумме. Используется MD5, но это не важно. Суммы для проверки хранятся в файле встроковом виде рядом с основными данными. Так вот, в этом файле указан и сам контрольный файл, и его MD5. Сейчас начал делать по этой схеме данные для теста, но упомянутая задача привела меня в замешательство. Имеет ли она решение? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83684

Добрый день, есть нетривиальная задача. Есть программа, написана давным-давно на Delphi. На одной из форм расположен TPaintBox – не подскажете, какими средствами можно вытащить содержимое объекта (получить картинку)? Скриншот экрана не получится, TPaintBox не помещается на экран. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83683

Добрый день. Ещё одна непонятка возникла. DLL обращается к службе через IPC на маилслотах. В DLL имеется объект IPC-сервер, которому назначается обработчик ответов службы. Для отладки просто вызывал Showmessage. Так вот, Showmessage в процедуре запроса к серверу отрабатывает. Отрабатывают Showmessage и в обработчике. Но стоит убрать вызов Showmessage после посылки запроса - перестают отображаться окна в обработчике. Добавлял слипы и реализацию processmessages для DLL. Никак не повлияло. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83682

Добрый день. Есть в проекте компонент TWebBrowser. Как мне программно прочитать текст, который в нем появится после выполнения метода Navigate? Спасибо ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83681