- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
var NumRedirect: Integer; var Handled: Boolean;
var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest , true, MainClr);
end;
procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;
{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
end;}
просто заглушки
Поржём тоже.
скорее второе:)
Я например, всегда так делаю: TForm1 – главная форма, остальные с описанием (TForm2Settings, TForm3Print и т.д.)
2. TForm2 и т.д. не вызывает даже ассоциаций со смехом;
3. Мне так удобнее т.к. по префиксу TForm явно понятно что я обращаюсь к форме.
Если знаете альтернативы такому именованию (с той же удобностью) – покажите пример.
Но я имел ввиду нечто другое, а именно то, что без префиксов довольно неудобно работать. И то, что некоторые ими пренебрегают ради "красивости" названия.
никогда больше бойлерплейты не буду переименовывать.
frmMain: TfrmMain; // ну или иной стандарт имен