ivan219

Работает всем спасибо.

все таки а чем не подходить простая замена

Цитата(TwisT_X @ 20.12.2005, 22:26)

все таки а чем не подходить простая замена

Цитата(Snowy @ 20.12.2005, 18:55)

Это точка, запятая или что угодно, что явняется разделителем целой и дробной части, согласно настроек системы.

Albinos_x а ну да.. все ясно..

Этот процедура делает возможным в компоненте Edit писать только цифры 0...9 ставить только одну запетую и ползоватся клавишей Backspace <---

Код

// Пресвоить всем Edit событие OnKeyPress procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); var  A: String; begin  A:=(Sender as TEdit).Text;  case Key of   '0'..'9',#8:;   ',','.':    begin     if pos(',',A)=0 then Key := DecimalSeparator;     if pos(',',A)>0 then Key := #0;    end;   else    Key := #0;   end; end;

Так это я его и дописал из несколких которые вы мне дали, сночало был

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);     begin         case Key of           '0'..'9',#8: ;           ',','.': Key := DecimalSeparator;           else key := #0;         end;     end;

Внём было две проблемы первая это возможность ставить больше чем одна запетая а это не правильно так что я перестраховался чтоб проблем небыло что разве это плохо когда код доведён до ума
Вторая это много проуедур скажем есть уменя 6 штук Edit и что мне для каждого пришлось писать

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);         begin      case Key of       '0'..'9',#8:;       ',','.':        begin         if pos(',',Edit1)=0 then Key := DecimalSeparator;         if pos(',',Edit1)>0 then Key := #0;        end;       else        Key := #0;       end;     end;

Это тоже не выход 6 лишних процедур дополнительный код место и.т.д.

Вот я и зделал одну.

Код

// Пресвоить всем Edit событие OnKeyPress     procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);     var  A: String;     begin      A:=(Sender as TEdit).Text;      case Key of       '0'..'9',#8:;       ',','.':        begin         if pos(',',A)=0 then Key := DecimalSeparator;         if pos(',',A)>0 then Key := #0;        end;       else        Key := #0;       end;     end;

А если где встречалась так это хорошо, вот только почемуто мне самому прешось до этого дойти и слова критики в свой адрес я считаю не провомерными так как я для других токихже как я сторался чтоб потом было проше.

Цитата(ivan219 @ 15.1.2006, 18:46 )

Вот я и зделал одну.

Правильно будет работать, только если разделитель - запятая.

Вот тебе еще вариант ;)

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin     case Key of         '0'..'9',#8:;         ',','.':             begin                 if Pos(DecimalSeparator,TEdit(Sender).Text)>0                     then Key := #0                     else Key := DecimalSeparator;             end;     else Key := #0;     end; end;

Да вобще по уневерсальнее.

Есть ещё вопрос как реализовать копирование т.е. есть 12.12 при такой записи будет ошибка надо автоматически зделать из 12.12 -> 12,12 когда копируеш из другого места

Обработать в OnChange ?

А по конкретнее как

Во спасибо

А как реализовать буфер обмена чтоб использовать комбинацию клавиш Ctrl+C Ctrl+V

В смысле - как реализовать? Вставка и копирование работают по-умолчанию. Для этого ничего не надо писать дополнительно.

Нет. Это когда меню вызываеш а мне надо Ctrl+C Ctrl+V

Вот нашол только как это реализовать чтоб было по нажатию Ctrl+C Ctrl+V

Насчёт одной запятой - не будет работать, if not(DecimalSeparator in [',','.']) then думать надо, как DecimalSeparator, который не является константой запихать в case...

вариант: всё что не является буквой или цифрой считать разделителем... Действительно точка и запятая - довольно скудно... например(не претендуя на реальность ситуации) разделителем является '&' а вместо него напечатали(опечаткались) '^'

Это сообщение отредактировал(а) Bog d`An - 17.1.2006, 05:22