Компонент едит

[Глеб1991]

Добрый день


Почти разобрался со своей проблемой, но есть одна просьба. Сейчас мой программный код добавляет/удаляет символы, но эти действия происходят в конце компонента, как сделать так что бы можно было в любой позиции это делать? Вот код

 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
  var n : integer;
  s : string;
  begin
  if Key=8 then begin
  Edit1.Text:=copy(Edit1.Text,1, Length(Edit1.Text)-3);
  Edit1.SelStart:=Length(Edit1.Text);
  end;
  end;

 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  const
  mask : set of char =['0'..'9' , 'a'..'z' , 'A'..'Z'];
  begin
  if not (Key in mask) then Key:=#0
  else begin
  Edit1.Text:=Edit1.Text + ' ,';
  Edit1.SelStart:=Length(Edit1.Text) - 2;
  end;
  end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Stilet]

Сейчас мой программный код добавляет/удаляет символы

стесняюсь спросить, а стандартных возможностей редактирования маловато?

[Глеб1991]

Стандартные? это какие??? я новичок в делфи поэтому прошу без профессионального сленга.

[Stilet]

Ну вот для чего ты свои процедуры описываешь?
Какова задача?

[Serge_Bliznykov]

стандартные, это когда фокус на поле ввода, то можно стрелочками управления курсора перемещать позициюю ввода влево и вправо. в любом месте можно удалять символы (как под курсором, так и слева от него (при наличии символов, разумеется), можно вставлять символы в любом месте строки...

Вот это всё и называется стандартным поведением контрола по редактированию строки.

[Глеб1991]

Мне надо чтобы при вводе с клавиатуры анг. символа скажем "g" программа вела в эдит "g ," при удалении пользователь наживает один раз на бэкспейс ("key = 8" - код операции удаления), а программа удалит символ + пробел + запятую.

Я смог добиться этого, НО все эти действия происходят на конце записи эдита т.е. нельзя сфокусироваться на середине и удалить/добавить символ в центре. Весть процесс редактирования происходит на конце.

Поэтому я прошу мне помочь с редактором записи, что бы можно было
проводить операции под курсором мыши, а не в самой правой части.
вод код удаления:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var n : integer;
s : string;
begin
if Key=8 then begin
Edit1.Text:=copy(Edit1.Text,1, Length(Edit1.Text)-3);
Edit1.SelStart:=Length(Edit1.Text);
end;
end;

вот код добавления

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
mask : set of char =['0'..'9' , 'a'..'z' , 'A'..'Z'];
begin
if not (Key in mask) then Key:=#0
else begin
Edit1.Text:=Edit1.Text + ' ,';
Edit1.SelStart:=Length(Edit1.Text) - 2;
end;
end;

From Stilet: Почему код читабельно не оформил? Или для тебя уважение форумчан пустой звук?!

[Stilet]

Я смог добиться этого

Лучше всего этого добиваться после ввода.
Вот скажи - куда пойдет потом строка из Эдита?

[Глеб1991]

этот эдит находиться на форме, которая является настраивающей , там много еще других компонентов, но это не важно. После того как пользователь установит себе все настройки то будет кнопка создать, программа пробежит по всем компонентам и запишет инфу в файл, тип файла не знаю - не моя работа.

From Stilet: Почему код читабельно не оформил? Или для тебя уважение форумчан пустой звук?! а что не так то - я правила прочитал роде все нормально
а все понял причину