FAQ ;))

← →
MBo (2003-06-04 17:16) [0]

0. F1, WinSDK Help, msdn.microsoft.com
1. FindFirst + рекурсия
2. чтоб не моргало - DoubleBuffered:=True;
3. не прячься от Ctrl-Alt-Del
4. FStream.Write(AString [1],Length(AString));
5. Общесистемный хук - в DLL!
6. Это не глюк, а оптимизация - значение переменной цикла не используется
7. Между датами Trunc(D2-D1) дней
8. туда, где часики - Shell_NotifyIcon
9. Parent назначь, чтоб динам. созданный контрол появился
A. OnDrawCell, OnDrawItem
B. не TStrings.Create, а TStringList
C. ShellExecute, CreateProcess

← →
Юрий Зотов (2003-06-04 17:20) [1]

Вывесить на первой странице для заучивания наизусть в качестве пропуска на форум!

← →
neuro (2003-06-04 17:23) [2]

Это не FAQ, это ROA -- random order answers..=)

← →
Skier (2003-06-04 17:25) [3]

>MBo © (04.06.03 17:16)
Борис, самое главное забыл ! :))
PChar -> String
String -> PChar

← →
MBo (2003-06-04 17:26) [4]

>Skier
Добавки wellcome ;)

← →
Игорь Шевченко (2003-06-04 17:28) [5]

D. Ctrl+Alt+Del не перехватывается :)

← →
Skier (2003-06-04 17:29) [6]

>MBo © (04.06.03 17:26)
OK.
E. PChar -> String и String -> PChar
F. согласования о передаче параметров

← →
Юрий Федоров (2003-06-04 17:29) [7]

Добавка :
D. см. строку номер 17

← →
Skier (2003-06-04 17:32) [8]

$10 Переводы чисел из одной системы в другую

← →
McSimm (2003-06-04 17:35) [9]

>MBo © (04.06.03 17:16)
!Класс!
:smile:
:LOL:
:)

← →
NickBat (2003-06-04 18:40) [10]

Самая мастеровитая<b/> ветка! ^)))

← →
Malder (2003-06-04 19:09) [11]

А что такое "чтоб не моргало - DoubleBuffered:=True;" ?

← →
Карлсон (2003-06-04 21:08) [12]

> Malder © (04.06.03 19:09)
> А что такое "чтоб не моргало - DoubleBuffered:=True;" ?

а вы подвигайте при фолсе картинку большую по форме и поймете.

← →
k-man (2003-06-04 21:14) [13]

> 2. чтоб не моргало - DoubleBuffered:=True;

А если имаг на панели, то сделать то же для нее.

← →
vuk (2003-06-04 21:40) [14]

to MBo:
>Добавки wellcome ;)
n+1. Компиляция с пакетами отключается там же, где и включается.

← →
zzet (2003-06-04 21:46) [15]

И кнопку на эту страницу "Добавить в избранное"

← →
Николай Быков (2003-06-04 21:51) [16]

Button2.Click;

← →
esu (2003-06-04 22:59) [17]

:))) Прикольная тема. Добавим от себя

$11:
Что б у всех label установить свойство - в цикле (FindComponent("Label" + IntToStr(i)) as TLabel).Caption := "test";

← →
Johnmen (2003-06-04 23:37) [18]

>esu © (04.06.03 22:59)

А у меня лейблы называются SuperLabelA, MaxLabelBB, KrutayaLabelABC и т.п.
И что ?!
То, что ты хотел сказать, делается совсем не так...

← →
esu (2003-06-05 00:04) [19]

Johnmen ©
Именно как я хотел так и сказал.
Могу для вас и так сказать:
for i := 0 to ComponentCount - 1 do
if Components[I] is TLabel then
(Components[I] as TLabel).Caption := "temp";

← →
Malder (2003-06-05 00:11) [20]

Здесь эффективней писать
TLabel(Components[I]).Caption := "temp"

← →
MBo (2003-06-05 05:49) [21]

Чтобы обновлялось - Application.ProcessMessages

← →
cyborg (2003-06-05 08:52) [22]

F9, Ctrl+F9, Ctrl+F1, F12, F11 :)

← →
Vlad Oshin (2003-06-05 09:24) [23]

reset

← →
Polevi (2003-06-05 09:55) [24]

никогда не делай так
procedure TMyThread.Execute
begin
while not Terminated do
Synchronize(DoWork);
end;

← →
Skier (2003-06-05 10:19) [25]

и вот так никогда не делай
procedure DeleteFromList
var
ii : Integer;
SomeList : TSomeList;
begin
for ii := 0 to SomeList.Count - 1 do begin
//.........
SomeList.Delete(ii);
//.........
end; //for
end;

← →
Vint (2003-06-05 10:51) [26]

1) XP Manifest
2) BANTAM.DLL CHARSET.CVB IDAPI32.DLL IDBAT32.DLL IDDBAS32.DLL IDODBC32.DLL IDPDX32.dll IDR20009.DLL IDSQL32.DLL OTHER.BTL
3) RegisterServiceProcess, process32first... next
4) SetWindowRgn
5) http://delphibase.endimus.com
6) Application.HelpFile:="путь и имя hlp-файла";
7) AddFontResource... SendMessage...
8) LoadKeyboardLayout("00000419", KLF_ACTIVATE);
9) FindFirstFile(... FindNextFile(...
10) Canvas
11) ShellExecute
12) PostMessage... keyPreview := true;
13) Delphi лучше чем C, Win2k лучше WinXP, IB лучше чем Paradox, Intel лучше AMD, также можно наоборот :)
14) см. mciSendCommand а узнать положили ли CD на лоток нельзя!
15) отловить Reset нельзя!

все! надоело! :)))

← →
McSimm (2003-06-05 11:11) [27]

* Count - 1
* Aplication.ExeName или paramstr[0]
* проверь stdcall
* if Assigned(ShellListView.SelectedFolder) then s:=ShellListView.SelectedFolder.PathName
* uses ShareMem (первым!)
* Tools - Debugger Options - Language Exceptions
* StrToInt("$" + HexString);
* SHGetSpecialFolderLocation
* [Now Supported on Windows NT] - означает поддерживается

:)

← →
Игорь Шевченко (2003-06-05 11:15) [28]

McSimm © (05.06.03 11:11)

> * [Now Supported on Windows NT] - означает поддерживается

Класс!

Еще: Объявдение переменной PChar при вызове WinApi функций недостаточно. Чаще всего надо память выделить :)

← →
Skier (2003-06-05 11:41) [29]

+
Путь, каталог : ExtractFilePath(), ExtractFileDir()

← →
MalkoLinge (2003-06-05 11:53) [30]

Да блин весло !

← →
Skier (2003-06-05 12:02) [31]

Ащё грабли :

function title(n: Integer): PChar;
var
s: string;
begin
s := Format("title - %d", [n]);
Result := PChar(s); // DON"T DO THIS
end;

← →
Mystic (2003-06-05 13:48) [32]

Предлагаю вынести список на

http://www.delphimaster.ru/forums.shtml
http://www.delphimaster.ru/forum/main.html

← →
Карелин Артем (2003-06-05 14:07) [33]

procedure TForm1.FormCreate(Sender: TObject); begin Application.Terminate; end;

← →
KSergey (2003-06-06 07:13) [34]

Простите, конечно, за дремучесть, но хотелось бы пару вопросов (от особо одаренных;)

> Карелин Артем © (05.06.03 14:07)
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Application.Terminate;
> end;

Это так надо делать или так не надо делать?

← →
Думкин (2003-06-06 07:24) [35]

A : array of.....
for i:=0 to Pred(length(A)) do....

2+2=4(Таблица умножения прикладывается).

← →
KSergey (2003-06-06 09:55) [36]

> Думкин © (06.06.03 07:24)

На мой взгляд проще тогда уже написать для любого массива (хоть и статического)

A : array of.....
for i:=Low(a) to High(a) do...

← →
Vint (2003-06-06 10:09) [37]

> KSergey © (06.06.03 07:13)
> Простите, конечно, за дремучесть, но хотелось бы пару вопросов
> (от особо одаренных;)
>
> > Карелин Артем © (05.06.03 14:07)
> > procedure TForm1.FormCreate(Sender: TObject);
> > begin
> > Application.Terminate;
> > end;
>
> Это так надо делать или так не надо делать?

В орешник! :)

← →
Думкин (2003-06-06 10:14) [38]

> KSergey © (06.06.03 09:55)
Я согласен, но если так то и Фака никакого не надо, просто много вопросов про АС как раз такого свойства.
Не будь слишком серьезным, ветка не о том. :-)

← →
KSergey (2003-06-06 14:40) [39]

> Vint © (06.06.03 10:09)

Ну хи-хи
А ответить?

> Думкин © (06.06.03 10:14)

Может я чего не понимаю, но, по моему, ветка получилась весьма серьезная. Ну единственное - ответ в ней найдет только тот, кто его уже знает... ;)

Просто Вы предлагаете исп. 2 ф-ции., а я - одну. Ну типа оптимальнее ;)
(про одну имеется в виду вариант, когда нижняя граница задана как константа 0)

PS
Есть предложение: эти ответы собрать на одной страничке, пронумеровать (только в единой системе) и при случае давать кототкий ответ: "A" или там "05"

← →
Vint (2003-06-06 14:56) [40]

FAQ ;)) Найти похожие ветки