Правила: заголовок темы должен кратко и понятно отражать ее суть, нельзя писать латиницей или заглавными буквами. Сообщение, ник, аватар не должны выделяться своими размерами или стилем написания от остальных, быть читабельными, написаны литературно и достаточно грамотно.
Отправлено: 06.02.08 16:17. Заголовок: Henkel, чтобы встави..
Henkel, чтобы вставить картинку жми над полем ввода кнопочку с изображением человечка. Загружай картинку на фото-радикал, а потом вставляй в сообщение 2 ссылку.
procedure input(s:string); begin form1.edit1.Text := form1.edit1.Text + s; end;
procedure TForm1.Button1Click(Sender: TObject); begin input('1'); end;
procedure TForm1.Button2Click(Sender: TObject); begin input('2');
end;
procedure TForm1.Button3Click(Sender: TObject); begin input('3'); end;
procedure TForm1.Button10Click(Sender: TObject); begin input('0'); end;
procedure TForm1.Button4Click(Sender: TObject); begin input('4'); end;
procedure TForm1.Button11Click(Sender: TObject); begin input('+'); end;
procedure TForm1.Button5Click(Sender: TObject); begin input('5'); end;
procedure TForm1.Button6Click(Sender: TObject); begin input('6'); end;
procedure TForm1.Button7Click(Sender: TObject); begin input('7'); end;
procedure TForm1.Button8Click(Sender: TObject); begin input('8'); end;
procedure TForm1.Button9Click(Sender: TObject); begin input('9'); end;
procedure TForm1.Button16Click(Sender: TObject); var i,c:integer; s1,s2,op : string; a,b:real; begin
i := pos('+',Edit1.Text); op := '+';
if i = 0 then begin i := pos('-',Edit1.Text); op := '-'; end;
s1 := copy(Edit1.Text,1,i-1); s2 := copy(Edit1.Text,i+1, length(edit1.Text)); val (s1,a,c); val (s2,b,c); if op='+' then edit1.Text := FloatToStr(a+b); if op='-' then edit1.Text := FloatToStr(a-b);
end;
procedure TForm1.Button12Click(Sender: TObject); begin input('-'); end;
Все даты в формате GMT
3 час. Хитов сегодня: 13
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет