1. Pascal / Говнокод #5902

    +92

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    procedure TForm1.Button1Click(Sender: TObject);
var
outfi:string;
begin
  if OpenDialog1.Execute then
  begin
  outfi:=sysutils.ExtractFilePath((OpenDialog1.FileName))+'/program.asm';
  windows.CreateFile(PChar(outfi),0,0,0,0,0,0);
  AssignFile(outPutFile,outfi);
  Rewrite(outPutFile);
  Append(outPutFile);
  AssignFile(inPutFile,OpenDialog1.FileName);
  Reset(inPutFile);
  init();
  writeLn(outPutFile,prologMemo.Lines.GetText());
 
  doprogram();
 
  writeLn(outPutFile,epilogMemo.Lines.GetText());
 
  CloseFile(outPutFile);
  CloseFile(inPutFile);
  ShellExecute( 0, 'open', PChar(outfi), nil, nil, SW_SHOWNORMAL);
  end;
end;

    Запостил: bugmenot, 06 Марта 2011

    Комментарии (5) RSS

    • ava TarasB 06.03.2011 18:43 # 0

      Можно было бы оставить только
      TForm1.Button1Click
      Ответить

      • ava bugmenot 06.03.2011 19:11 # 0

        хрен с ней, с ленью переименовывать
        гляди ниже какая там разнообразная хуйня
        Ответить

    • ava Lure Of Chaos 06.03.2011 19:41 # 0

      акуенный редактор
      Ответить

    • ava TarasB 06.03.2011 21:45 # 0

      windows.CreateFile(PChar(outfi),0,0,0,0, 0,0);
      AssignFile(outPutFile,outfi);
      Rewrite(outPutFile);
      Append(outPutFile);

      тут много лишнего
      Ответить

    • ava ctm 08.03.2011 21:34 # 0

      круто. столько всего, за что можно смело плюсануть: и отступы, и названия контролов, и реализация, а самое главное цель, преследуемая аффтаром.
      Ответить

    Добавить комментарий