Delphi. Изменение введённой фамилии при выборе пола.

[koudelka]

Всем привет, встала задача организовать изменение введённой фамилии при выборе пола в моей БД:
Сначала пишем Фамилию в поле Edit1 , далее в зависимости от того куда мы ставим галочку в DBCheckBox1 (что означает выбор мужского пола) или DBCheckBox2 (женский пол) окончание фамилии, введенной нами в edit1 должно меняться.
К примеру, мы ввели в edit1 фамилию Иванов , а галочку поставили на DBCheckBox2 (женский пол), значит текст в Edit1 меняется на Иванова ну и наоборот.
---
p.s. я понимаю вариантов фамилий много, но мне достаточно хотя бы такого примера.
---

procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
if DBCheckBox1.Checked=true then    
BEGIN
DBCheckBox2.Checked:=false;       //если выбрано М, тогда выкл.галочка с Ж
????????????????                  // тут сам код...подскажите
end;
end;

p.s.2 Фамилия должна меняться если найдено окончание "в" или "а"("ва"), а если окончание совсем другое - то ничего меняться не должно. То есть должна по сути быть определенная проверка, чтобы данный метод работал только на узкий список фамилий с "в" или "ва" на конце.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Всем спасибо! ребятки. Всех благодарю! Как всегда выкладываю правильный ответ, который в итоге получился. Особая благодарность long399.
---------------------------ОТВЕТ НАЙДЕН-------------------------

procedure TForm1.CheckBox_manClick(Sender: TObject); //галочка MAN
var i:integer;
s:string;
begin
s:=edit1.Text;
if CheckBox_man.Checked=true then begin
CheckBox_woman.Checked:=false;
if edit1.Text<>'' then begin
for i := length(edit1.Text) downto length(edit1.Text)-2 do
if copy(s,i,2)='ва' then begin
  delete(s,i,2);
  insert('в',s,i);
  edit1.Clear;
  edit1.Text:=s;
end; end; end;
end;

procedure TForm1.CheckBox_womanClick(Sender: TObject);   //галочка WOMAN
var i:integer;
s:string;
begin
s:=edit1.Text;
if CheckBox_woman.Checked=true then begin
CheckBox_man.Checked:=false;
if edit1.Text<>'' then begin
for i := length(edit1.Text) downto length(edit1.Text)-2 do
if copy(s,i,2)='в' then begin
  delete(s,i,2);
  insert('ва',s,i);
  edit1.Clear;
  edit1.Text:=s;
end; end; end;
end;

[Stilet]

А если фамилия скажем "Черных"?
Оно то конечно если брать самое простое то:

if DBCheckBox2.Checked then edit1.Text:=edit1.Text+'а' else 
if edit1.Text[Length(edit1.Text)]='а' then edit1.Text:=copy(edit1.Text,1,Length(edit1.Text));

но! Это не очень удачный прием.

[Arigato]

Задача нетривиальная, лучше искать готовые модули. Я как-то писал библиотеку, которая склоняла Ф.И.О. по падежам, но функции смена рода там не было.

[koudelka]

Сообщение от Stilet

А если фамилия скажем "Черных"?
Оно то конечно если брать самое простое то:

if DBCheckBox2.Checked then edit1.Text:=edit1.Text+'а' else 
if edit1.Text[Length(edit1.Text)]='а' then edit1.Text:=copy(edit1.Text,1,Length(edit1.Text));

но! Это не очень удачный прием.

Я вас поняла,спасибо, но задача немного другая - фамилия должна меняться если окончание "в" или "а"("ва"), а если окончание совсем другое - то ничего меняться не должно. То есть должна по сути быть определенная проверка, чтобы данный метод работал на узкий список фамилий с "в" или "ва" на конце.

[Stilet]

s:=(copy(edit1.Text,1,Length(edit1.Text));
if (s='a')or (s='в') then и так далее

[koudelka]

Сообщение от Stilet

s:=(copy(edit1.Text,1,Length(edit1.Text));
if (s='a')or (s='в') then и так далее

меня смущает строка в вашем примере, что тут , что ранее
s:=(copy(edit2.Text,1,Length(edit2. Text)));

Что она означает? я составила такой код:

procedure TForm1.CheckBox_womanClick(Sender: TObject);
Var
s:string;
begin
if CheckBox_woman.Checked=true then
BEGIN
CheckBox_man.Checked:=false;
s:=(copy(edit1.Text,1,Length(edit1.Text)));
if (s='в') then
edit1.Text:=edit1.Text+'а'  end;
end;

Однако ничего не происходит при вводе фамилии Иванов - "в" в конце не видит и соответственно ничего не происходит.
Зато с этим все нормально:

if edit1.Text[Length(edit1.Text)]='а'  then
edit1.Text:=edit1.Text+'а'  end;

[koudelka]

Всем спасибо! ребятки. Всех благодарю! Как всегда выкладываю правильный ответ, который в итоге получился. Особая благодарность long399.
---------------------------ОТВЕТ НАЙДЕН-------------------------

procedure TForm1.CheckBox_manClick(Sender: TObject); //галочка MAN
var i:integer;
s:string;
begin
s:=edit1.Text;
if CheckBox_man.Checked=true then begin
CheckBox_woman.Checked:=false;
if edit1.Text<>'' then begin
for i := length(edit1.Text) downto length(edit1.Text)-2 do
if copy(s,i,2)='ва' then begin
  delete(s,i,2);
  insert('в',s,i);
  edit1.Clear;
  edit1.Text:=s;
end; end; end;
end;

procedure TForm1.CheckBox_womanClick(Sender: TObject);   //галочка WOMAN
var i:integer;
s:string;
begin
s:=edit1.Text;
if CheckBox_woman.Checked=true then begin
CheckBox_man.Checked:=false;
if edit1.Text<>'' then begin
for i := length(edit1.Text) downto length(edit1.Text)-2 do
if copy(s,i,2)='в' then begin
  delete(s,i,2);
  insert('ва',s,i);
  edit1.Clear;
  edit1.Text:=s;
end; end; end;
end;

[Arigato]

Да что же там правильного? Навальный - Навальная, Путин - Путина, Жириновский - Жириновская, Ющенко - Ющенко и т.д.

[Stilet]

Да шож такое!! И тут про политику!!!

[Arigato]

Какая политика? Это всего лишь примеры фамилий, с которыми прога работать не сможет