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

    • ava Lennis 21.04.2010 13:03 # 0

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

    • ava cfdev 21.04.2010 16:52 # +4

      > SelLenght

      facepalm.hs
      Ответить

    • ava Говногость 21.04.2010 17:17 # 0

      :D
      Ответить

    • ava fih 21.04.2010 19:33 # +3

      надо взять на вооружение!!!
      Ответить

    • ava Snake2101 21.04.2010 20:23 # 0

      Фууу я щас блювану...........
      Ответить

    • ava C++ 21.04.2010 22:04 # −2

      SelLength палит тему
      Ответить

      • ava cfdev 22.04.2010 02:20 # −1

        Ага, сам придумал - сам запостил. Даже через конпелятор прогонять не ндао
        Ответить

    • ava ganja_boy 04.05.2010 15:35 # +1

      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);

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

    • ava ZLOvar 15.05.2010 11:33 # 0

      >Зачем писал?
      Поугарать )))))))
      Ответить

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