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

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

Доброго времени суток!

Изучаю язык программирования Ruby, Ruby on Rails.

Ситуация выглядит так:
1. 1.rb — подопытный кролик
2, ru.bat — «поднос» подопытного к ruby-интерпритатору

Данная схема хоть и работает, но крайне не удобна.

Знающие, подскажите вменяемый редактор/ide в котором есть кнопока run, для экзекуции написанного в интерпритаторе
(читать всё…)

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

хотел бы узнать, как я могу встроить свой пункт в контекстное меню любого файла, а также директории (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.