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

    +113

    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
    //Удаляем последний символ из мемо :)
    
    Procedure Button1Click(Sender : TObject);
    Begin
    // Some GovnoCode...
     Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
     Memo1.SelStart;
     Memo1.CopyToClipboard;
     Memo1.Clear;
     Memo1.PasteFromClipboard;
    // Some GovnoCode...
    End;
    
    end.

    Вот так, простенько и со вкусом, мы избавляется от последнего символа из Memo1.Text.

    Запостил: ZLOvar, 21 Апреля 2010

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

    • извращенная фантазия у автора
      Ответить
    • > SelLenght

      facepalm.hs
      Ответить
    • :D
      Ответить
    • надо взять на вооружение!!!
      Ответить
    • Фууу я щас блювану...........
      Ответить
    • SelLength палит тему
      Ответить
      • Ага, сам придумал - сам запостил. Даже через конпелятор прогонять не ндао
        Ответить
    • Procedure Button1Click(Sender : TObject);
      Begin
      // Some GovnoCode...
      Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
      Memo1.SelStart;
      Memo1.CopyToClipboard;
      Memo1.Clear;
      Memo1.PasteFromClipboard;
      // Some GovnoCode...
      End;

      бу-га-га. с каких пор ide delphi стала begin, end, procedure, etc вставлять с большой буквы? хорошо, если афтар извращенец, то может он их сам изменяет. еще - какбэ обычно кнопки расположены на форме и зачастую это должно было бы выглядеть примерно так

      procedure TForm1.Button1Click(Sender: TObject);

      афтар писал это кусок из головы и вообще непонятно зачем.
      Ответить
    • >Зачем писал?
      Поугарать )))))))
      Ответить

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