» Вопросы по Delphi 2

Не удержусь от флуда. С Новым Годом всех!! Счастья и успехов!!

Пытаюсь отослать из приложения в приложение (при помощи сообщения wm_copydata) следущую структуру:


Код: type
Rec = record
s1,s2: string;
i: integer;
end;

S0ldier
А нормально описать что нужно не бывает - телепаты довольно большая редкость

megadave
В варезнике есть тема по платным компонентам

Добавлено:
Jokerjar
string - это примерно то же, что и динамический массив, в переменной лежит указатель на память строки и размер. Когда ты передаешь этот указатель в другое приложение он становится бессмысленным.
Попробуй в рекорде описать строки в виде статических массивов из чаров

RomanTim

Цитата:

А нормально описать что нужно не бывает - телепаты довольно большая редкость

Да вроде вполне доступно описано.
В Edit вводим $00006F, при нажатии на Button вызываем Seek($00006F, soFromBeginning). Как преобразовать?

Цитата:

Button вызываем Seek($00006F, soFromBeginning).

и что - приведённый вами код работает?!?! Точнее хотя компилируется?..
вроде в seek первым параметром же идёт файловая переменная?
(procedure Seek(var F; N: Longint);)
у меня попытка скомпилировать ваш пример даёт "Incompatible types"

Добавлено чуть позже...

дело в том, что ваш seek - это метод у TFileStream:
function Seek(Offset: Longint; Origin: Word): Longint;
тогда так, как вам уже сказали раньше:

Код:
var
// fs : TFileStream;
MyOffset : Integer;
begin
MyOffset := StrToInt( Edit1.Text);
fs.Seek( MyOffset, soFromBeginning);

SERGE_BLIZNUK
Всё верно, я сказал просто для примера. У меня и создаётся FileStream...

Добавлено:
Кажется нашёл ошибку.

Как посчитать колличество открытых(а не созданных) страниц.
пробую делать так:
W:=GetActivOleObject('Word.Application );
for i=0 to w.documents.count -1

Данная хрень возвращает только единицу. Как сделать правильнее?

кто-нибудь пробовал доделывать Audio Tools Library 2.3 под теги версии 2.4?

оки, посоветуйте тогда компаненты для чтения тегов ID3v2.4 под BDS2006

Всех с Новым Годом!
В проекте множество форм. Формы загружаются и выгружаются из памяти по необходимости. Не пойму как сделать переменную на главной форме, чтобы видна была из других форм. Делаю так :


uses
Windows, Messages, SysUtils...
type
TForm1 = class(TForm)
....
var
Form1: TForm1;
patch, nomer:string;//- вот мои переменные.
Что-то из других форм не видны.
Как правильнее?

Добавлено:
Всех с Новым Годом!

Хочу поставить прогресбар на время копирования файлов. Вот код :

word.ActiveDocument.SaveAs('\\Super\D\Base_UFSKN\Documents\'+patch+'\'+files);

Копирование идет по сети с клиента, т.ч. при большом документе процесс довольно долгий. Чтобы на клиентской части в это время не было паники - нужен индикатор процесса.

JonyBes
Цитата:

как сделать переменную на главной форме, чтобы видна была из других форм

просто в тех формах, где нужно иметь доступ к вашей переменной нужно добавить в uzes имя главной формы (лучше в секции implementation)

Код: implementation
uses unit1;

JonyBes
в других формах в uses напиши модуль формы, где описаны переменные

Имеется файл 2.txt в котором находится обычная html страничка. В ней возможно имеется текст 10woodЛЮБЫЕЧИСЛА. Нужно вырезать именно эти любые числа, идущие за 10wood. После любых чисел идет символ &, до 10wood символ =. Как это сделать?

Zver1992
sl := TStringList.Create;
sl.LoadFromFile('2.txt');
s := sl.Text;
sl.Free;
Delete(s, 1, Pos('=10wood', s)+6);
Result := Copy(s, 1, Pos('&', s)-1);

Zver1992
Цитата:

10woodЛЮБЫЕЧИСЛА

вариантов много. Основные - либо использовать регулярные выражения (библиотек много, смотри, например, бесплатную библиотеку http://regexpstudio.com/Downloads/regexpr_RU.rar), либо тупо читать файл в TFileStream, перебирать там по символу и искать там 10wood, потом выбирать пока только цифры...
(пример можно и накидать).
Если у Вас в файле только одно выражение, тем более так чётко заданное, я бы выбрал второй вариант.

Добавлено:
блин, пока писал, RomanTim уже рабочий вариант кинул ;-)))

Zver1992
RegExp рулит. Универсально и модно.

xokc
Для вышеприведенного случая использование универсального и модного RegExp -- стрельба из пушки по воробьям

Zver1992, RostY
Регулярные выражения для данного случая - это не подходящий инструмент.
Нужно использовать синтаксический анализатор HTML.
Воробьев стрелять не хорошо, тем более своими ручками

oan42
Чем же поможет
Цитата:

синтаксический анализатор HTML

в выборке подстроки, не являющейся ни тэгом, ни даже полным содержимым (а только частичным) блока?

+1 за вариант RomanTim

RegExp будет излишеством при заданных условиях.

afiget
Вы когда-нибудь пользовались HTML-парсером?
Если да, то каким?

Спрашиваю не просто так, - ищу навороченный HTML-парсер.

К сожалению DIHTMLParser с полными исходниками пока не попадался,
из Open Source что-то не встретил ничего стоящего.

Хотелось бы на уровне Turbopower XMLPartner Professional.

Kustarnik когда-то поднимал тему лучшего HTML-парсера, но она не нашла отклика.

oan42
пользую SimDesign NativeXml
пока доволен

greenpc
С XML мне все понятно, хотелось бы про хороший HTML-парсер на Delphi
что-нибудь разузнать.

oan42
Когда-то сам искал. Не нашел. Очевидно, по причине слишком мягкотелости стандартов HTML, в отличие от XML, очень трудно сделать мощный и правильно работающий парсер.
А потом получил распространение XML и вопрос почти отпал :)

Как сделать значок в трее неактивным (чтоб скрывался). Ничего похожего в NotifyIconData не нашел. Компоненты не предлагать.

Подскажите, пожалуйста, как получить выделенный элемент списка ListBox?

Wiki
Цитата:

получить выделенный элемент списка ListBox

перебором.
из справки по Delphi:

Код:
for i := 0 to (FileListBox1.Items.Count - 1) do begin
try
if FileListBox1.Selected[i] then
....
finally
{ do something here }
end;
end;

Цитата:

перебором.

А так нельзя?

Код: if ListBox1.ItemIndex > -1 then
Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];

Jokerjar
Цитата:

перебором.
А так нельзя?

можно, если только не используется MultiSelect = true

Спасибо большое. Очень выручили

А как можно получить текст какой-нибудь ячейки выделенной строки DBGridа?