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

    +151

    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
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    procedure TForm1.N4Click(Sender: TObject);//процедура "Файл->Сохранить"
    begin
    if Form1.Caption='Новый' then
    N5Click(Sender) else
       begin // добавить
       Form1.vvod.Lines.SaveToFile(Form1.Caption);//Сохраняем
       Form1.vvod.Tag:=0; // добавить
       end; // добавить
       N7.Enabled:=true;
       vvod.Modified:=false;
       label3.Caption:='Нет';
    end;
    
    procedure TForm1.N5Click(Sender: TObject);//Процедура "Файл->Сохранить как..."
    var fname:string;
    begin
      N7.Enabled:=true;//Включение процедуры "Файл->Закрыть"
      if SaveDialog1.Execute then
      begin
        fname:=SaveDialog1.FileName;
        if SaveDialog1.FilterIndex=1 then//PHP
          begin
          vvod.Lines.SaveToFile(fname+'.php');
          Form1.Caption:=ExtractFileName(fname+'.php');
          end;
        if SaveDialog1.FilterIndex=2 then//HTML
          begin
          vvod.Lines.SaveToFile(fname+'.htm');
          Form1.Caption:=ExtractFileName(fname+'.htm');
          end;
        if SaveDialog1.FilterIndex=3 then//CSS
          begin
          vvod.Lines.SaveToFile(fname+'.css');
          Form1.Caption:=ExtractFileName(fname+'.css');
          end;
        if SaveDialog1.FilterIndex=4 then//txt
          begin
          vvod.Lines.SaveToFile(fname+'.txt');
          Form1.Caption:=ExtractFileName(fname+'.txt');
          end;
    
    
    
        vvod.Modified:=false;
        label3.Caption:='Нет';
      end;
    end;

    Запостил: guest, 29 Апреля 2009

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

    • типичный студенческий код. Ни про массивы, ни тем более про Actions мы не слышали...
      Ответить
    • Да и нехорошо логику прямо в обработчиках размещать =)
      Ответить

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