Delphi

Юзай Event OnClick
Но искать номер похоже придется перебором

BATMEN

А, уж давно сделал

Так и сделал кстати.

Sefirot

У меня проблема с установкой делфи, уже 3 инсталяхи переюзал и во всех вылазит одна и та же ошибка (см. рис.). Че за хня?

И что, если IGNORE нажать, после этого нормально не ставицца?

Sefirot

Blak-n-Wait писал(а):И что, если IGNORE нажать, после этого нормально не ставицца?

Дело не в этом меня интересует причина

Code(R)

В начале установки можно выбирать, какие файлы копировать. Просто убери из этого списка папку Demos.

Sefirot

В начале установки можно выбирать, какие файлы копировать. Просто убери из этого списка папку Demos.

А что в этой папке находится и не будет ли глючить если этих файлов не будет?

BATMEN

Там находятся демки. (проекты).

Sefirot

BATMEN писал(а):Там находятся демки. (проекты).

Примеры что ли какие-то? Или шаблоны? Поподробнее please

BATMEN

Примеры программ. Исходники короче.

Pink

Почему-то программа не хочет искать файлы на диске C с размером в 0 кб, и как сделать, чтобы она осуществляла поиск по всему диску.
procedure TForm1.Button1Click(Sender: TObject);
label 10;
var SR: TSearchRec;
begin
if FindFirst('C:\', faReadOnly, SR) = 0 then
if SR.Size = 0 then begin
Memo1.Lines.Add(SR.Name);
10:
if FindNext(SR) = 0 then begin
Memo1.Lines.Add(SR.Name);
goto 10;
end;
end;
FindClose(SR);
end;

BATMEN

Делай так: Ищи каталог, нашел каталог, ищешь в нем файлы, и так до пока все не прошманает.

Find := finfirst( 'C:\*.*' , faAnyFile , MyTSearchRec);

Лэйбел этот вообще лучше выкини, юзай repeat или while

while Find = 0 do
begin
Find := FindNext(MyTSearchRec);
if MyTSearchRec.Attr = faDirectory then

ищешь в ней, так что лучше заести 2 переменные поиска. И еще че я парился, там поему то допустип каталог имеет атрибуты = faDirectory и = 8208 И еще какие то там есть, можно так проверить, а faDirectory у меня тока на FAT32 канало, в основном все папки 8208 имеют атрибуты.

end;

Pink

А Find какого типа?
если Find: TSearchRec; - то вот это
"Find := finfirst( 'C:\*.*' , faAnyFile , MyTSearchRec);" вызывает ошибку

Pink

А еще, как изменить размер изображения?

Pink писал(а):finfirst

Йопть, буковку впиши: finDfirst

BATMEN

Ну естественно

ДЛя какой цели тебе нужно менять размер изображения ??? Я че то даже не знаю как это сделать, выкини пикселы там в порядке "шахматной доски", еще меньше - еще раз, по крайней мере больше мне в голову ничего что то не приходит....

BATMEN

Pink писал(а):А Find какого типа?
если Find: TSearchRec; - то вот это
"Find := finfirst( 'C:\*.*' , faAnyFile , MyTSearchRec);" вызывает ошибку

Целочисленный, погляди какого формата функция FindFirst (или FindNext, там они одинаковое возвращают) , там вроде бы integer;

Серый

Народ, а давайте компонентыми интересными (да и вообще полезными)делиться, у кого есть ???

]{uzнец

Моя седьмая делфя перестала запускаться, выдаёт такое сообщение. Народ, подскажите что делать?

BATMEN

Лицензия типа сломалась\кончилась. Попробуй заново крякнуть, если не получится, то переустанови.

]{uzнец

BATMEN писал(а):Лицензия типа сломалась\кончилась. Попробуй заново крякнуть, если не получится, то переустанови.

Переустанавливал, всё равно ругается.

BATMEN

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

]{uzнец

BATMEN писал(а):А че если заново крякнуть не помогает

Так у мну кряка нет

BATMEN

У меня тока генератор серйиников. Попробуй...

Pink

у кого-нибудь есть DirectX для Delphi 7