- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
/// До этой строчки еще больше 1000 строк кода (И это всё в ОДНОЙ процедур)
finally
if Main.RecordCount > 0
then Main.First;
Main.EnableControls;
Panel2.Color:=clLime;
lbTimeSpend.Caption:='Âðåìÿ çàòðà÷åíî:'+TimeToStr(time()-TimeWork);
end;
Exit;
try
if TmpCollect_Skd.IsSelectAll then
begin
Askd_count := TmpCollect_Skd.RxDBGrid1.DataSource.DataSet.RecordCount;
end
/// После этой строки еще более 1000 строк кода всё в этой же процедуре!
Продолжим. Вот так люди используют Exit;
Слабо было написать так? :
//код...
Exit;
//никогда не выполняющийся код...
Именем Âðåìÿ çàòðà÷åíî: объявляю говнокод удачным!
- из продукции броланда (цбуилдер, делфы) во всё, что угодно, кроме продукции броланда русский текст вставляется вот таким образом.
- из продукции броланда и софта, написанного на продукции броланда в аналогичные им продукты вставляется просто зашибись.
В этом случае автор при копировании открыл окно с дельфёй, а магии не делал.
Если нужно вставить из продукции броланда в приличное приложение, нужно выполнить следующие магические действия:
- переключить раскладку в окне на "русский";
- скопировать из нужного окна нужный текст, выделив его;
- можно безопасно вставлять в любое приложение, кодировка верная.
Инфа 100%, я гарантирую это как цбуилдерник со стажем.
Но это встречается не только в продукции борланда. Например, есть такая программка Homesite для верстки сайтов, при копирование русского текста, например, в ворд наблюдается точно такой же глюк
Macromedia Homesite 5.5, что подвернулась под руку:
Borland Delphi 4.0 - 5.0
а я знал, что в борланде говнокодеры сидят
Просто, когда выполняется копирование в клипборд из неюникодных приложений, то происходит автоматическая перекодировка в юникод, причем кодовая страница выбирается по текущей включенной раскладке для окна из которого происходит копирование. Обратное происходит еще интереснее... Но в этом нет сиплюсплюса, потому всемпох...
var
s: string;
begin
s := 'редиска';
end;
end.
Может быть давайте обсудим еще почему в TPfW не было поддержки юникода?
fixed
Лучше бы обернули в {$IFDEF NOT_DEFINED}/{$ENDIF}, а еще лучше юзать системы контроля версий и вытирать атавизмы из исходников без боязни невозвращения
с Exit просто косяк.
А вообще, говнокод должен быть краток, суров, безжалостен и беспощаден.