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. попробую

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