Как вставить символы до и перед выделенным текстом в memo?
Как вставить символы до и перед выделенным текстом в memo?
Как вставить символы до и перед выделенным текстом в memo?
При компиляции выдает ошибку: [Fatal Error] Unit4.pas(10): Internal error: SY576 и выделяет строку TForm4=class(TForm) ... Делфи переустановила, все равно тоже самое. Помогите исп…
Всем тепла и бобра. Накодил программку, меняет MAC на локальном ПК. Но MAC применяется или после ребута или после вкл\откл сетевого подключения. Вопрос, по которому не смог найти …
Здравствуйте, друзья. Требуется помощь в вопросе, указанном в заголовке, если конкретно, то ситуация следующая: Лет так 5 назад была написана программа, которая осуществляет форми…
Рассмотрим, как это делается. Создаем простое приложение на Delphi. У появившейся главной формы приложения установите значение свойства FormStyle равным fsMDIForm. - ДА, СДЕЛАЛ. Д…
Подскажите, как соединить две процедуры или переделать одну процедуру в функцию так, чтобы из первой процедуры (функции) передать значение во вторую. Function TForm1.Button1Click(…
function Slovo1 (a , b : string): string; begin a := 'qwer'; b := 'rtyu'; result := a + b; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Slovo1 (result));…
Добрый день. Версия FastReport 4.14. Создаю кросс-отчет с заранее неизвестным количеством колонок. Все было бы хорошо, если бы колонки всегда помещались на странице, но нет... Вст…
Доброе время суток всем. Помогите начинающему "вирусописателю". :-) Интересен такой вопросик: Можно ли с помощью обычного текстового редактора испортить обычный видеофайл (допусти…
При запросе idhttp1.get('http://mysite.com/test.php?log=1111&pass=2222'); Delphi не видит символ &, вместо него подчеркивает букву p. А в другой новой программе видит этот…
Как реализовать поочередный вывод строк из ListBox в Label в обработчике таймера? И когда доходит до последней строки, начиналось по новой с первой строки.
Есть простая форма, мне нужно её украсить так, как я нарисовал макет в Adboe Photoshop. Как лучше будет реализовать картинку (макет) в живой интерфейс программы? Какие способы сей…
Здравствуйте! Помогите, пожалуйста, найти оптимальное решение. У меня есть рабочая программа (Сервер - Intebase 2009, Среда-Delphi XE6), которая работает уже несколько лет. Сначал…
Скажите, в чем может быть проблема? Где моя ошибка? Руководствуясь, http://code-code.narod.ru/art/ini.html , я сделал все, как указано там. А именно: Создал проект. В uses добавил…
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); if (image1.Left < 1000) then begin if key = vk_right then image1.Left := image1.Left + 5; end;…
Как можно просто и без проблем запретить изменение размера форм, при этом установить стандартное (постоянное) значение? Нашел, что можно так писать: Constraints.MinHeight := 296; …
Даны две строки: S1 и S2. Определить количество вхождений строки S2 в строку S1. procedure TForm1.Button3Click(Sender: TObject); var s, s1, SResalt: shortString; n, i, caunter :in…
delphi: function Test(): PChar; stdcall; var LocalStr: String; begin LocalStr:= 'Test string with'+ #0 + 'null-terminated in body'; Result:= CoTaskMemAlloc(SizeOf(Char) * Length(L…
Задача состоит в том, чтобы записать число в обратном порядке (например, 69 => 96). procedure TForm1.Button1Click(Sender: TObject); var Perevorot: array [1..100] of integer; MyInd…
Все делает правильно, но подводит процедура p3: не меняет строку с максимальным элементом главной диагонали массива А со строкой с минимальным элементом той же главной диагонали. …
ADOTableТовар используется в ADOTableНакладная в качестве подстановочной таблицы. Как в накладной получить не только выбираемое поле названия товара, но и цену товара? Пытаюсь исп…
Добрый день! Подскажите, плиз. Кто писал проекты на делфи по работе с кардридером, чтобы считывать и записывать чипованые пластиковые карточки? Это нужно не для взлома и уж тем бо…
В одной строке экрана вводится последовательность символов (тип char). Ввод завершается нажатием клавиши Enter. Распечатать, сохраняя последовательность, цифры, следом символ "=" …
Имеется таблица: CREATE TABLE HOOKNAMES ( HN_ID SMALLINT NOT NULL PRIMARY KEY, HN_NAME VARCHAR(20) NOT NULL, HN_LEVEL SMALLINT NOT NULL, HN_IMAGE BLOB); Первые 3 поля заполняю так…
Подскажите, почему пишет, что необъявленный идентификатор, ведь я всё объявил? var n,m:integer; massivCHisel : array [ n,m ] of integer; Ошибку выдаёт в массиве "array [ n,m ]".
Здравствуйте. Подскажите, пожалуйста, как исправить данный код. Ошибка в том, что каждый раз обрезается по 2 последних значения при записи в исходный файл (как я понял). Дело в то…
Статический и динамический массивы сохраняются в поток следующим образом: var A: array[0..999] of Integer; B: array of Integer; Stream.WriteBuffer(A, Length(A) * SizeOf(Integer));…
Веб-приложение на делфи, в качестве браузера использую компонент Tchromium. В него загружаю сайт, в котором имеется игра на flash, с помощью кода: var CI: TCursorInfo; begin CI.cb…
Помогите с кодом. Необходимо программно изменить свойство DBGridEh : dgIndicator, которое находится в разделе Options. Данная реализация этого куска кода: DBGridEh1.Options['dgInd…
Нужно что-то такое: public procedure input(s:string); procedure TForm1.input(s: string); begin Timer5.Enabled:=True; //bot.parce(s); end; procedure TForm1.Timer5Timer(Sender: TObj…