вообщем дело вот в чем не знаю как прописать код в программе чтобы он искал текст из edit1 и заменял на то что в edit2 (читать всё…)

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

есть библиотека, состоящая из нескольких модулей (*.pas), и есть процедура, которую я хочу использовать как и в самих модулях dll, так и в основном файле dll (*.dpr) в разделе инициализации (begin … end).
Может есть какой-нибудь способ, использовать один экземпляр (код) процедуры на всю dll? (чтоб она была доступна/видима как в *.dpr., так и в модулях *.pas) (читать всё…)

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

Необходимо из xls файла сделать xml.Сам xls представляет собой довольно большую таблицу,расписание занятий.Пробовал обращаться к таблице через Variant,но дело в том,что программа должна быть универсальной для любого количества столбцов и строк,а также любой разметки.Поэтому пришлось сохранять как Текстовый документ(с разделителем табуляцией).Подскажите как мне вытащить данные и записать их в группы,по столбцам. (читать всё…)

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

Теперь мне нужно вот что: присвоить созданным подузлам номер итема, что в дальнейшем, в самом дереве, я мог обращаться к ним для, например, удаления выбранного узла или дальнейших действий с этим индексом итема. (читать всё…)

хотел бы узнать, как я могу встроить свой пункт в контекстное меню любого файла, а также директории (Win, естественно). Находил, что эта проблема решается 2-мя способами через COM и через реестр. Допустим, я сделаю это. Как потом мне обработать нажатие этого пункта меню? Дальше. Если я просто сделаю вместо контекстного меню, вариант открытия файла(любого) с помощью моей программы (Открыть с помощью… -> моя программа) как мне передать в запускающуюся МОЮ программу имя этого файла? (читать всё…)

Привет, помогите разобраться, как мне можно создать простейшую программу в Делфи с использованием DLL, допустим подсчитать а+b.

library Project2;

uses

  SysUtils,

  Classes,

  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

//Сумма значений х и у

function Sum (X,Y: Integer): integer;

begin

Result:=X+Y

end;

exports Sum;

begin

end.

unit Unit1;

interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation

// тут объявляем нашу библиотеку и функцию которую она экспортирует

 function Sum (X,Y: Integer): integer;external 'Project2.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin

//пример использования

Button1.Caption := IntToStr(Sum(1,2));

end;

end.