- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 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.
Lennis 21.04.2010 13:03 # 0
cfdev 21.04.2010 16:52 # +4
facepalm.hs
striker 22.04.2010 02:37 # 0
Говногость 21.04.2010 17:17 # 0
fih 21.04.2010 19:33 # +3
Говногость 21.04.2010 22:22 # +2
cfdev 22.04.2010 02:19 # 0
Snake2101 21.04.2010 20:23 # 0
C++ 21.04.2010 22:04 # −2
cfdev 22.04.2010 02:20 # −1
ganja_boy 04.05.2010 15:35 # +1
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);
афтар писал это кусок из головы и вообще непонятно зачем.
cfdev 04.05.2010 19:15 # 0
ZLOvar 15.05.2010 11:33 # 0
Поугарать )))))))
Arch 27.05.2010 16:59 # −1