Скачать: CL | DM;

NumEdit   Найти похожие ветки 

← →
CAHbKA   (2003-12-03 07:57) [0]

Напишите пожалуйста кто-нибудь нормальный обработчик на действие вставка текста из Clipboard в поле Edit. Требуется к примеру из a1b2c4,56z получить 124,56

---

← →
Radionov Alexey ©   (2003-12-03 08:01) [1]

Попробуй в OnChange сие сделать. Только на саморекурсию не наступи :)

---

← →
dDan   (2003-12-03 08:02) [2]

Пример отображения числа форматов буфера обмена


uses Clipbrd;
........
procedure BBB(...);
begin
Label1.Caption:=IntToStr(Clipboard.FormatCount);
end;

Конечно я мог неправильно понять

---

← →
Babay ©   (2003-12-03 08:28) [3]

Можно сделать что то в этом духе

procedure TForm1.Edit1Change(Sender: TObject);
Var s:String;
i:Integer;
begin
s:="";
try
StrToFloat(Edit1.Text);
{ или заменить try except функцией которая проверяет что в строке число с плавающей точкой, стандартной по моему нет можно самому написать}
except
For i:=1 to length(Edit1.Text) do
Case Edit1.Text[i] of
"0".."9":s:=s+Edit1.Text[i];
",",".": if Pos(DecimalSeparator,s)=0 then
s:=S+DecimalSeparator;
end;
if s[Length(s)]=DecimalSeparator then
s:=S+"0";// или убрать последний символ
if s<>"" then Edit1.Text:=s
else Edit1.Text:="0";
end;
end;

---

← →
Babay ©   (2003-12-03 08:30) [4]

P.S. возможно чегото не учел надо проверять

---

← →
CAHbKA   (2003-12-03 08:55) [5]

Спасибо всем, особенно Babay. попробую

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c