При помощи процедур написать программу. При вводе слова с клавиатуры считать количество гласных букв (английских) в нём.

(читать всё…)

Может кто сталкивался, при наведение курсора на legend текст закрашивается красным цветом, и кусок DonutSeries выделяется (this is a default). Как поменять на другой цвет или как обратиться к конкретному тексту в legend?

— TeeChart 2 0 1 6

(читать всё…)

Подскажите, как склеить текст в двух мемо по первым символам
в первом мемо есть LK-12430………(начало строки), во тором есть LK-12430, то есть надо склеить эту строку и вывести результат в мемо3

(читать всё…)

Может кто стыкался? Программа глючит, если в файле есть пустые строки между строк. Как удалить пустые строки из TStringList? Метод Delete у меня вызывает ошибку, выход за границы списка.

(читать всё…)

Я строю простую диаграмму (bar) беря данные из таблицы Access через ado.
ulik (стринговое поле) и medkg (integer поле). Как мы знаем, в редакторе dbchar брать можно только поля с типом integer. Как сделать, чтобы подписи столбцов брались поля ulik (стринговые записи). Ведь в редакторе DBChar поле ulik не отображается.

(читать всё…)

Хочу написать программу, что бы пинговать компьютер и в окне видеть надпись » компьютер в сети».

(читать всё…)

Даже в Delphi 10.1 стандартный плеер поддерживает видео только HD качества.
Мне же нужно воспроизводить FullHD видео.
В связи с этим стандартный компонент не подходит!
Можете посоветовать видеоплеер с api через который я смогу из Делфи запускать нужные мне видосы…

(читать всё…)

Необходимо прочитать файл в память, заменить один байт в нем и сохранить на диск.
Например, имея файл из 4-х байт

Нужно например заменить второй байт на FF
Чтоб получилось так:

(читать всё…)

Ставлю компонент Image, туда запихиваю файл gif, но когда запускаю проект, GIF отображается как картинка, а не анимация, почему так происходит, и встречался ли кто нибудь с подобным???

(читать всё…)

Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp. Скачал архив с GDI+, распаковал и положил 6 файлов (DirectDraw.dcu, GDIPAPI.dcu, GDIPUTIL.dcu, GDIPOBJ.dcu, DirectX, Jedi) в каталог Lib, где стоит делфи. Потом когда я получил ошибку — скопировал эти же файлы и в проект (на всякий случай), но не помогло. Пишу код:

uses
 Windows, ... jpeg, pngimage, GifImage,
  GDIPAPI, GDIPOBJ, GDIPUTIL;

procedure TForm1.Button3Click(Sender: TObject);
var
  encoderClsid: TGUID;
  Image: TGPImage;
begin
Edit1.Text:=StringReplace(Edit1.Text,ExtractFileExt(Edit1.Text),'',[]);
 if ExtractFileExt(Edit1.Text)='.jpg' then
  Image := TGPImage.Create(Edit1.Text+'.jpg');
  GetEncoderClsid('image/bmp', encoderClsid);
  image.Save(Edit1.Text+'.bmp', encoderClsid, nil);
  image.Free;

  Image2.Picture.LoadFromFile(Edit1.Text+'.bmp');
end;

При запуске сначала появляется такое предупреждение
[Предупреждение] Unit1.pas(98): Variable ‘Image’ might not have been initialized

А затем вылазеет ошибка вот в таком окне:

—————————
Debugger Exception Notification
—————————
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 7C80980F in module

‘kernel32.dll’. Write of address CED6E8D3′. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
—————————
OK Help
—————————

Жму ОК, выскакивает окно:

Исходник не найден GDIPOBJ.pas
Путь к файлу: GDIPOBJ.pas

Да, действительно файла GDIPOBJ.pas нет ни в папке с проектом, ни в папке Lib где стоит делфи. В то время как GDIPOBJ.dcu есть в обоих папках. Сам не знаю что думать: то ли делфи не создал GDIPOBJ.pas, то ли этот файл должен был войти в состав скачиваемого GDI+.

(читать всё…)