VPF::Делим строку на символы, практически

095

Дата 3.11.2007, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 3.10.2007

Репутация: нет
Всего: нет

Есть кучка полей Edit1 (width=15, !!MAXLENGTH=1!!) в одну строчку:
[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]

Подскажите, как сделать вставку (клавиша ctrl+V) 14ти симолов строкой, чтобы каждый символ попал в свое поле??

(это как ввод рег. ключа при установке программы)

Зачем и на*: фишак нужен для бланков сообщений о госрегистрации, если кто знает (поля ОГРН, ИНН, КПП)

Alexeis

Дата 3.11.2007, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Сделать обработчик OnMouseDown и в нем проверять, если комбинация ctrl+V и в буфере обмена находиться нужная строка, то автоматически заполнять эти строки, но ИМХО для таких целей лучше лучше использовать TMaskEdit вместо TEdit.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

095

Дата 3.11.2007, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 3.10.2007

Репутация: нет
Всего: нет

А как узнать достигли ли символы MaxLength или нет? и просто сделать SetFocus

Объясните глупому, мож быть такой способ чудом получится и с ctrl+V??

ivan219

Дата 3.11.2007, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Цитата(095 @ 3.11.2007, 16:32

)

А как узнать достигли ли символы MaxLength или нет? и просто сделать SetFocus

Код


if Length(S) = MaxLength then ....

--------------------

Мой первый сайт и моя первая программа!!!!!

Alexeis

Дата 3.11.2007, 17:58 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(095 @ 3.11.2007, 16:32

)

А как узнать достигли ли символы MaxLength или нет?

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, clipbrd;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = ord('V'))
  then
     if (Length(clipboard.astext) > (Sender as TEdit).MaxLength)
        and not ((Sender as TEdit).MaxLength = 0)
     then
       ShowMessage('текст длинне максимально допустимого');
end;

end.

--------------------

095

Дата 3.11.2007, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 3.10.2007

Репутация: нет
Всего: нет

Всё волшебно, Спасибо! ...... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »