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

    • ava guest 30.04.2009 22:06 # 0

      типичный студенческий код. Ни про массивы, ни тем более про Actions мы не слышали...
      Ответить

    • ava guest 01.05.2009 20:29 # 0

      Да и нехорошо логику прямо в обработчиках размещать =)
      Ответить

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