Задача заключается в следующем : надо данные из memo считать только, в Шестнадцатеричном формате и записать.
Если данные в hex формате, то проблем записи нет, а вот ,если данные в memo имеют русские буквы, или не содержат формата [‘0’..’9′, ‘A’..’F’, ‘a’..’f’]), то ошибка …

Как реализовать проверку перед записью из memo, чтоб , если данные не соответствуют Шестнадцатеричному формату, то выскакивает окно об ошибке showMessage(‘error’); и запись не производится.
p.s
Запрет на ввод кроме как латинице, не подходит. Так как в memo загружаются имена файлов, которые должны загружаться как в hex, так и русские буквы, а вот запись, только для имён в hex.

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

Написал программу передвижения человека по экрану, периодически меняя картинку, создавая эффект движения. Для всех трех картинок использовал компонент TImage. При однократном нажатии на клавишу d человек передвигается по экрану отлично т.е. все три картинки меняются в нужной последовательности! Но если её удерживать, появляются только две картинки из трех.

Man.zip (3.09 Мб)

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

Сейчас я пытаюсь на OpenGl нарисовать винтовую лестницу, но если честно я вообще ничего не могу придумать, может есть у кого образцы или гайды какие нибудь по созданию лестниц.

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

Как в Делфи сделать аналог дос команды
copy file1 + file2 + file3 (+ …) file_res
Другими словами, объединить несколько файлов в один копированием.

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

Есть N JPG картинок загруженных в Лист.
Запускаем режим слайдшоу. Выбираем по одной картинке.
Когда перебираем последовательно — все просто.
Как сделать рандомный выбор картинки без повторов.
Присваивать каждой картинке переменную? А если N=500…?
Может есть более хитрый способ исключить из результата «уже использованные»?
(Удалять «уже использованные» из листа не получится он чистится только весь)

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

Реально ли создать событие при входе мышки в НЕпрямоугольную область?

1) Для TImage
2) Для другого компонента

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

Поможете мне устранить такой баг?

У меня в папке «E:\tmp» имеется множество файлов и папок. Мне нужно удалить полностью всю папку.
Вот код:

type TArrayString = array of string;

procedure DirList(Dir: string; var DirArr: TArrayString; Over: byte = 0);
var F: TSearchRec;
begin
   ChDir(Dir);
   if Over=0 then
      SetLength(DirArr, 0);
   SetLength(DirArr, Length(DirArr)+1);
   DirArr[Length(DirArr)-1]:=Dir;
   if Dir[Length(Dir)]<>'\' then
      Dir:=Dir+'\';
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory <> faDirectory then
         DeleteFile(Dir+F.Name);
   until FindNext(F)<>0;
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory = faDirectory then
         if not (F.Name='.') and not (F.Name='..') then
         begin
            DirList(Dir+F.Name, DirArr, 1);
            ChDir(Dir);
         end;
   until FindNext(F)<>0;
   FindClose(F);
   if Over=0 then
      ChDir('C:\');
end;

procedure TForm1.Button1Click(Sender: TObject);
var DirArr: TArrayString;
    i: integer;
begin
   DirList('E:\tmp', DirArr);
   for i:=High(DirArr) downto Low(DirArr) do
      RemoveDir(DirArr);
end;

Проблема заключается в том, что программа удаляет папки с ошибками (см. скриншот).
Подробнее: при нажатии на кнопку папка физически не удаляется (она остается), но зайти в нее не получается. Однако, при закрытии программы она автоматически удаляется.

В связи с этим вопрос: как удалить папку с файлами полностью без закрытия приложения?

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

Как отправить на распечатку файл средствами delphi?

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

Есть массив данных.

 BufferREAD  : Array[0..3] Of Byte;

В нём лежат 4 байта.
Необходимо конвертировать содержимое в значение Double.
Чередование байтов в массиве верное.

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

Как в компоненте TChromium (CEF3) сохранять изображения, например из контекстного меню?

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