» Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

abelino
год назад переносил для XE2 из версии для 2010, уже потерял правда, а какие именно проблемы?

snike555

Подозреваю, что проблема в xlcdefs.inc
Но мозга что вписать не хватает.

Сам компонент установился. Но нет взаимодействи с Excel, не появляется дополнительное меню Edit Template ...
Я делал через "создать компонент". Сначала создал новый пакет XlReport, а потом последовательно добавлял модули из \Program Files\AfalinaSoft\XL Report 4\Source

abelino
Держи. Абсолютно рабочие XLReport for Delphi XE3 with source (включая ProOptionPack, документацию, справку и демо-примеры).

Medium, спасибо.

подскажите пожалуйста как прочитать данные из файла xlsx ноходящегося в ресурсах, не сохраняя на диск?
пока получилось только открыть его в TResourceStream
Res : TResourceStream;
.....
res:=TResourceStream.create(HInstance,'exel','xlsx');

как теперь получить данные Excel из TResourceStream, не сохраняя на диск?
заранее спасибо

zds
Судя по всему никак. Нет у Excel возможности читать из stream.
А что плохого в том, если сохранить файл на диск?

Можно конечно попробовать какие-нить компоненты поюзать: XLReader, SpreadSheet. Они возможно умеют без файла работать

zds
Теперь надо его распаковать какими-нибудь компонентами с поддержкой формата zip. Далее достать из него нужный файл и распарсить. Незнаю, может есть уже готовые компоненты с поддержкой xlsx, для старого xls точно есть.
А вообще выбран весьма неудобный формат. Ексель умеет сохранять данные и в более удобные форматы.

zds
а чем ограничение такое вызвано(не сохранять на диск)?
можно ведь через официальный виндовый tempdir\tempfile поработать и при соотв. выставленных флагах система его даже сама удалит после закрытия

З.Ы.
можно попробовать и через memory-mapped поработать, но не факт что excel потянет

всем спасибо, понял свою ошибку. переделал на использование INI

A_V

Цитата:

тупо батник..

сделал батники и забыл, до сегодня. пока терминал не перезагрузишь они тянут старые/переименованные exe. батник такой:
Код: @echo off
start \\192.168.1.1\prog.exe

Цитата:

Держи. Абсолютно рабочие XLReport for Delphi XE3 with source (включая ProOptionPack, документацию, справку и демо-примеры).

а можно еще раз выложить? а то там пишет, что файл не найден...

У TActionMainMenuBar есть баг с отрисовкой корневых элементов не имеющих детей.
ide xe2 система w7 32bit


постройте меню на основе TActionMainMenuBar примерно такого вида

file | options | help
-New
-open
-save
-exit

на все действия в onExecute назначьте пустую процедуру
procedure TfrmActions.Action3Execute(Sender: TObject);
begin
//
end;

запустите приложение и нажмите на options или help
элемент меню "залипнет" ! можете перевести фокус на форму, пощёлкать по форме, ничего не изменится пока вы не кликните на меню file.
с меню file так-же происходит подобная штука - попробуйте кликнуть на нём сразу двумя кнопками мыши он тоже останется залипшим.

прошу подтвердить и если кто-то сталкивался, то дайте рецепт лечения.

рецепт от бага с TActionMainMenuBar написал тут:
http://stackoverflow.com/questions/14912858/work-around-for-tactionmainmenubar-painting-bug-where-item-is-not-unselecting
решение может и не лучшее, но рабочее.

Здравствуйте!
Такой вопрос: Есть форма на делфи, с одной кнопкой и одним полем для вывода текста. Есть текстовый файл с несколькими строками. Как сделать вывод рандомной строки из текстового файла в поле по нажатию кнопки?
Думаю это совсем простой вопрос, если можно, пожалуйста, сам код.
Спасибо.

ответил здесь
http://forum.ru-board.com/topic.cgi?forum=33&topic=0812&start=8000#lt

У меня проект в Delphi 2010. Используются VCL компоненты, для которых есть поддержка Delphi XE-XE3. Возможно ли портирование моей программы на MacOS?

cyrilo
Нет, потому что для макос программы создаются с использованием FireMonkey а не VCL. Вот когда у используемых вами VCL-компонент появятся FireMonkey-аналоги, тогда можно будет.

вот гляжу у MyDAC есть поддержка MacOS (судя по Changelog'у). Чисто теоретически, если и уостальных она появится, преград для портирования не будет?

cyrilo
Не будет. Но есть одно "но": архитектура FireMonkey сильно отличается от VCL, что сказывается и на компонентах. Так что не стоит расчитывать, что переход с VCL на FireMonkey ограничится запуском одной автоматической тулзы.

Народ ! скиньте сурсы C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\source

delphi 2010

зависает пытаясь их искать, не могу найти где скачать.

ОК, нашел версию с исходниками.

nevertime
Лучше просто переустановить делфи. Тем более что настройки сохранить не проблема.

Возможно кому понадобиться (сам искал не нашел решения):

При запуске DelphiDistiller 1.85 возникла ошибка:

HKEY_CURRENT_USER\\" is of wrong kind or size


как оказалось в реестре в ветке HKEY_CURRENT_USER кто-то нагадил и изменил значение по-умолчанию, а точнее его тип. И из-за этого программа выдавала ошибку.

Решение: восстановил значение.

Обнаружил случайно для себя свой баг который не замечал никогда. Это общяя шляпа для всех версий Delphi.
Оказывается AnsiCompareStr не подходит для сортировки. Дело в том что
AnsiCompareStr('''v', 'v') выдает разный результат с
AnsiCompareStr('''v', 'vv')
Одинарная кавычка воспринимается по разному.

Лечится с флагом SORT_STRINGSORT. Обнаружил когда не смог найти Москву ))).

cyrilo
С невизуальными вещами проблем при переходе на FireMonkey явно будет меньше. Но визуалку переделывать придется полностью, хотя надо сказать по отзывам FireMonkey еще достаточно сырая штука.

Цитата:

Одинарная кавычка воспринимается по разному.

Сортировка выглядит так:
avkhak
av'khca
avkhca
avkhin
Но если я нахожу первый avk, а далее по порядку хочу все начинающиеся на avk, то я спотыкаюсь на av'k. Следовательно остальных не вижу. Можно конечно удалить все ударения. Но кто сказал что пользователю нужно именно это? А если я хочу всех на av', то получю все на av??? То есть partialKey и инкрементальный фильтр отпадают. То есть SysUtils.StartsStr не поможет нам.

Добавлено:
Вобщем новая версия отменяется. А решил оставить как есть сортировку системную. Помоему partialKey должен справится. Нулы я решил так и оставить в конце списка, а инкрементальные фильтры это невизуальные вещи.

Цитата:

Это общяя шляпа для всех версий Delphi.

А какое это отношение к Delphi имеет? AnsiCompareStr обертка над апишной функцией CompareString. CompareStr например выдает один и тоже результат.

LadyOfWood
Да мне побарабану - системы нет в принцыпе с этой функцией. Delphi доверились системе Windows Default Version Build и способностям девелопера, думаю сделали правильно.

зызы
Я свои баги подчищаю.

делаю типа mdi. привязываю формы к TabSheet
Код: NewForm := ARef.Create(ATab);
with NewForm do
begin
Parent := ATab;
Align := alClient;
BorderStyle := bsNone;
end;
ATab.TabVisible := true;
pcMain.ActivePage := ATab;

delphinoob
Выставьте в свойствах Visible=False.

как избежать хинтов компилятора типа:

Цитата:

[dcc32 Hint] Unit9.pas(42): H2077 Value assigned to 'TForm9.Check' never used

код такой:

Код: function TForm9.Check: Boolean;
begin
Result:=false; // если закомментировать, то предупреждения нет

if 1 = 1 then
Result := true;
end;

procedure TForm9.btn1Click(Sender: TObject);
begin
if Check() then
Caption := 'ok';
end;