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

GTA3
Цитата:

теперь вопрос зачем присваивать stSS:= stS

Незачем совершенно. Компилятор об этом честно предупредит хинтом.
Если мы "перед этим" делаем присвоение "stSS:= 'Это-'", то код "stS := 'Это -' + stSS" даст нам строку stS = 'Это -Это-':
Код: procedure xxx.runclick(sender: Tojbect);
var stS,stSS: string;
begin
stSS:= 'Это-';
stS := 'Это -' + stSS;
label.caption:= stSS;
end;

GTA3
Абсолютно никакого, оптимизатор все равно выкинет этот код, так что можно его спокойно удалять.

Имеется проект ~130 юнитов на D7. Задача - заменить везде один компонент на подобный. Есть ли возможность сделать это не перебирая руками все?

sunduk4
а обращение к новому компоненту по свойствам совпадает?
если да, то кажется работой муторной, но выполнимой - изменить имена (Replace по всем модулям).

unfreqient

за исключением мелочей совпадают..
не хотелось бы все модули перебирать.. тем более компонент пользуется процентах в 70 окошек..

ну можно создать свой компонент обертку с именем старого, который будет перенапрявлять все вызову к новому.

Подскажите какой-нить компонент для отображения PNG графики делающий это НОРМАЛЬНО в отличии от GrathicEx и PNG Delphi...

ArtemiyUO
тоже не годится, компонент придется менять не один, и для каждого свои обертки писать.. с этим кодом то не мне одному работать..

sunduk4
Существует набор экспертов GExperts (www.gexperts.org), где есть возможность замены одного компонента на другой.

Ramazan
Спасибо. Вопрос решился.

Erazer
Envision Image Library for Delphi
_http://www.intervalsoftware.com/download.html

если нужно ключик - стучись в приват

Объясните мне тупому,почему при попытке вывести картинку на поверхности PNG Delphi
она получается гораздо светлее оригинала ? и можно ли с этим как-то бороться ? http://rapidshare.de/files/31201242/png.JPG.html

Как проверить в Delphi, являеться ли переменная числом (Integer)?
В PHP например, есть функция "is_integer".

Zver1992
не понял? в дельфи вообще то для чисел свой тип данных есть, уточни что тебе нужно проверить? находится ли в строке число (вепрнее явялется ли строка числом?) тогда юзай val и анализируй код который она возвращает.

Zver1992
try
strtoint(some_str)
except
message ('не число');
end

или можно StrToIntDef использовать...

Подскажите в каком юните объявлен тип TQRPaperSize.

И еще: в QuickReport 4.06 никак не получается распечать отчет на бумаге размером A5 -- пропускает нечетные страницы. Кто нить знает в чем здесь загвоздка.

В отчете на всю страницу расположен один Detail, его свойство ForceNewPage установлено в true.

Использую Delphi 6. На лазерном принтере Samsung.

P.S. Пробывал распечать дома на струйном принтере Lexmark -- все путем.

pit23
Цитата:

Подскажите в каком юните объявлен тип TQRPaperSize

QRPrntr.dcu

ЗЫ
юзай - Total Commander

Проблемка в том, что надо с видеовхода конкретного(вдм драйвер) в XP получить картинку и тут же сохранить в бмп. нет возможности это короткими запросвми сделать? а то сейчас программу сильно пучит и он не очень укладывается в отведенное время.

Gest7
Взять комп помощнее. Запросы будут короче. Если повезёт, то и в отведённое время "он" уложится.

Дайте, кто-нибудь CodeRush для Delphi-5

Можно ли из дельфей сделать сжатие и востановление акцессовской базы не открывая саму оболочку акцесса?

RostY
Пользуйся на здоровье
_http://rapidshare.de/files/31315364/CodeRush_503h_Pro.EXE

Извините, но в гос. учереждения деньги особо не лишние.

Неужеле нет прямых запростов к драйверу за результатом?(сейчас запрос идёт через сторонние программы).

Я 2 недели как дельфина вижу, но обязательно на нём делать (я лучше бы с++ или асм использовал, но нельзя).

yuish

Код: procedure CompactDatabase_JRO(DatabaseName: string; DestDatabaseName: string=''; Password: string='');
const Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
TempName: array[0..MAX_PATH] of Char; // имя временного файла
TempPath: string; // путь до него
Name: string;
Src, Dest: WideString;
V: Variant;
begin
try
Src := Provider + 'Data Source=' + DatabaseName;
if DestDatabaseName <> '' then Name := DestDatabaseName
else
begin
TempPath := ExtractFilePath(DatabaseName);
if TempPath = '' then TempPath := GetCurrentDir;
GetTempFileName(PChar(TempPath), 'mdb', 0, TempName);
Name := StrPas(TempName);
end;
DeleteFile(PChar(Name)); // этого файла не должно существовать
Dest := Provider + 'Data Source=' + Name;
if Password <> '' then
begin
Src := Src + ';Jet OLEDB:Database Password=' + Password;
Dest := Dest + ';Jet OLEDB:Database Password=' + Password;
end;

V := CreateOleObject('jro.JetEngine');
try
V.CompactDatabase(Src, Dest); // сжимаем
finally
V := 0;
end;
if DestDatabaseName = '' then
begin // т.к. выходная база не указана
DeleteFile(PChar(DatabaseName)); //то удаляем не упакованную базу
RenameFile(Name, DatabaseName); // и переименовываем упакованную базу
end;
except
on E: Exception do ShowMessage(e.message);
end;
end;

Gest7
Цитата:

Неужеле нет прямых запростов к драйверу за результатом?

Устройства в виндах, насколько мне известно, открываются так же, как файлы (CreateFile, ReadFile, WriteFile). Драйвером можно рулить через API функцию DeviceIOControl. Видео ловят через DirectShow или VideoForWindows. Чтобы прямо с драйвера - такого не встречал. Кое какие примеры по захвату можно глянуть по ссылке http://www.pctuner.ru/list-c-soft99.html

Цитата:

Я 2 недели как дельфина вижу, но обязательно на нём делать (я лучше бы с++ или асм использовал, но нельзя).

1) почему нельзя?
2) напишите DLL на том же C++, если вам так проще, отладьте её на C++
а потом обёртку и вызов функции из DLL сделайте на Delphi
3) если вы напишите на C++ - вы хотя бы убедитесь, что скорости работы (захвата) на данном компьютере вам хватает (т.е. чудес не бывает - и если компьютер пентиум-200 - то много вы не добьётесь...
4) если вы напишите рабочик код - то абсолютно будет реально переписать его на том же delphi (правда, с одной оговоркой - если вы не будете в C++ использовать библиотеки/компоненты, которые есть только для C)

дерзайте... дорогу осилит идущий ;-))

Zver1992
лучше TryStrToInt()

nuker2015
Спасибо огромное - буду пробовать

Arvur
Большое тебе спасибо