delphi

Egyszer volt szerencsém egy Delphi 7-ben íródott programon apróbb karbantartási munkákat végezni. Ez a program egyébként egy gyárban teljesít felbecsülhetetlen szolgálatot. Mondjuk úgy, hogy amikor láttam, hogy az egész egyetlen Unit1.pas nevű fájlban van összecsaccsantva, már nagyjából sejtettem is, hogy mi vár rám… Na de amit mutatni akartam, a “fő logika” egy TTimer komponens tick eseménykezelőjében van megírva. Gyönyörű metódus, a vezérlési struktúra a következőképpen néz ki:

procedure TForm1.Timer1Timer(Sender: TObject);
// itt deklarálunk a globális 40 mellé még 8 lokális változót
begin
try

if () then
begin
  if () then
  begin
  end
  else
  begin
  end;
end
else
begin
  if () then
  begin

    if () then
    begin
      if () then
      begin
      end;
    end;

    if () then
    begin
      while () do
      begin
      end;

      if () then
      begin
      end;

      if () then
      begin
        if () then
        begin
          if () then
          begin
            if () then
            begin
            end
            else
            begin
            end;
          end;
        end;
      end;

    end;
  end;
end;

for () do
begin
end;

if () then
begin
end
else
begin
end;

if () then
begin
end
else
begin
end;

if () then
begin
  if () then
  begin
    if () then
    begin
    end;
  end
  else
  begin
  end;
end;

if () then
begin
  if () then
  begin

    if () then
    begin
      if () then
      begin
      end;

      if () then
      begin

        try
          for () do
          begin
            while () do
            begin
            end;
          end;

          for () do
          begin
            while () do
            begin
            end;
          end;

        except
        end;

        if () then
        begin
        end
        else
        begin
        end;

      end;

      if () then
      begin
      end
      else
      begin

        if () then
        begin
          if () then
          begin
          end;
        end
        else
        begin
        end;

      end;

      if () then
      begin
      end
      else
      begin
      end;

      if () then
      begin
      end
      else
      begin
      end;

      if () then
      begin
      end;

    end;
  end
  else
  begin
  end;

end
else
begin
end;

finally
end;
end;

Code language: Delphi (delphi)

Erős látvány, mi? A kód, amit a bűnösök megóvása érdekében töröltem, pár egyéb apróság mellett a következőket csinálja:

• soros porton kommunikál egy feszültségmérő műszerrel
• párhuzamos porton keresztül reléket húzkod meg
• közben egy Access-adatbázisba írja a mérési eredményeket
• update-elget diagramokat a képernyőn
• közben persze mindent Label72-nek, SqlCommand1-nek, netán ser8-nak hívnak

Kettő egész komment található ebben a metódusban, ezeket eredeti formájukban közlöm:

//le szarba
//vissza jobaCode language: Delphi (delphi)

Fú, de jó volt ebbe belenyúlni. Az ifjúság aranyló évei! Na de most legalább az is kiderül, hogy működik-e a syntax highlightoló plugin erre a csoda blogmotorra.