Как выгрузить все записи из DBGrid в текстовый файл (на Lazarus, Free Pascal)?

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

Если у вас установлено несколько версий Delphi, вы можете использовать мой батник (вернее, cmd-шник) для компиляции любой версией. Ну и ещё несколько вспомогательных…

Файлы:

• dcc.cmd — основной файл для компиляции, имеет много опций, запускайте без параметров и смотрите возможные варианты опций.
• cleanupdpr.cmd — очистка от лишних файлов (как работает см. ниже).
• d64.cmd — запуск dcc.cmd с опцией /64
• d7.cmd — запуск Delphi 7 IDE
• d07.cmd — запуск Delphi 2007 IDE
• d102.cmd — запуск Delphi 2007 IDE
• dccAll.cmd — компиляция всеми компиляторами (после каждого пауза с вопросом: продолжить или нет)
• dccAllE.cmd — компиляция всеми компиляторами (пауза с вопросом только в случае ошибки)
• dccAllS.cmd — компиляция всеми компиляторами (пауза с вопросом только в случае успешной компиляции)
• dccAllF.cmd — компиляция всеми компиляторами (аналогично dccAllE.cmd) с созданием папки под каждый компилятор, т.е. на выходе получаем файл, скомпилированный каждым компиляторов в отдельную папку
• bds2007.bat — запуск Delphi 2007 IDE (учитывая, что там есть косяки с файлом EditorLineEnds.ttr в %TEMP%)

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

Пишу программу на delphi ping ip адресов. Хочется реализовать чтобы если есть пинг то в компонент TListView заносились адрес и в сети он или нет. Программу дописал, но не могу это реализовать. Что если есть пинг, то заносился в строку и был зеленым , если нет пинга то красным.

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

Мне понадобилось хешировать некоторый текст методом SHA1 (не будем вдаваться в подробности). Для этого я стал искать примеры реализации на Delphi. И нашел… Код я, как смог, доработал (заработал в Delphi 2010, правильный хеш пустой строки).

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

Проблема в том, что при открытии второго файла InFileR возникает исключение (не могу получить доступ к файлу, так как он занят другим процессом), которое я вижу в except, и после этого не выполняется FreeAndNil(InFileR);, т.е. на нем тоже возникает исключение.
Что я делаю не так? Во всех примерах в интернете с TFileStream в try выполняется create, а в finally выполняется Free. Собственно Free я тоже пробовал, результат тот же.

var
  InFileL,InFileR: TFileStream;
begin
  try
    try
      InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
      InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
  
  //действия с файлами (в частности сравнение контрольных сумм)

    except
      on E: Exception do ShowMessage(E.Message);
    end;
  finally
      FreeAndNil(InFileL);
      FreeAndNil(InFileR);
  end;

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

Как записать информацию о файле в Memo, используя отдельно подключаемый юнит, который я нашел на просторах интернета:

unit FileInfo;

Я изучаю Delphi и мне бы хотелось вывести всю информацию о выбранном файле в memo.
Конечно, если есть варианты легче, не подключая отдельный юнит, я тоже был бы рад посмотреть.

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

Необходимо написать программу, которая при нажатии на кнопку удалила бы файл с рабочего стола или скопировала файл с рабочего стола и вставила его в папку, в которой лежит сама программ.Как получить путь к рабочему столу?

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

Есть таблица связанная с базой и графически представлена в DBGrid`е, и мне нужно сделать кнопку nодчеркивания строки и при этом чтоб было условие проверки с предыдущей строкой, по определенному полю.
В данном случае у меня поле по которому надо сделать проверку ‘VREMJA’ — дата представленая в виде AsDateTime.

Не знаю как написать условие проверки текущей выбраной строки с предыдущей и значение nоля VREMJA выбраной строки должно быть больше чем предыдущей.

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

ЗАДАНИЕ: Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле:

Pi/2 = (2*4)/(3*3) * (4*6)/(5*5) * (6*8)/(7*7) и т.д.

с произвольной точностью eps. Значение точности передать в функцию как аргумент. Обратиться с точностью 0,01; 0,001; 0,0001.

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

На форме есть объект (пускай Image1). В данный момент на канвасе рисуется картинка. Нужно, чтобы при наведении мыши изображение плавно появлялось, а при отведении — плавно исчезало.

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