как получить первую букву из combobox

[Volkogriz]

Доброе время суток!
Вопрос в принципе в заголовки,
Пример:
Три combobox-а фамилия имя отчество, вывожу в ричьедит
и в нём нужно получить например В В Путен а не полное имя и отчество
Но только при выводе в ричьедит а основной текст который сохраняется полный!
За ранее благодарен!
С уважением,
Volkogriz!

[Yurk@]

ComboBox2.Text[1]

[Stilet]

Надежнее будет ...:=Copy(ComboBox2.Text,1,1);

[Volkogriz]

Спасибо!
С уважением,
Volkogriz!

[FaTaL]

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

Надежнее будет ...:=Copy(ComboBox2.Text,1,1);

Чисто для своего кругозора. Чем это будет надёжнее? Ведь текст и так массив символов. А тут затрата лишнего времени на работу функции Copy. Или я не прав?

[Аватар]

Надежней тем, что ComboBox2.Text может быть пустой и чем закончится ComboBox2.Text[1] в этом случае? А copy съест не подавится

[FaTaL]

ИМХО тогда уж в плане оптимизации лучше использовать:

if Lenght(ComboBox2.Text) > 0
  then s:= ComboBox2.Text[1];

[artemavd]

ИМХО, но можно и так поизвращаться еще
1.- из серии "Мы суровые разработчики, которые матом гнут пользователей!" :

 try
  sEdit1.Text:=sComboBox1.Text[1];
 except on E: Exception do
  begin
   MessageBox(Handle,PWideChar(IntToStr(GetLastError)),MB_ICONERROR);
  end;
 end;

2. - уважаем и заботимся о пользователе:

 try
  if sComboBox1.Text = '' then
  begin
   MessageBox(Handle,PWideChar('Поле пустое!'),'Programma',MB_ICONWARNING);
  end
  else
  begin
   sEdit1.Text:=sComboBox1.Text[1];
  end; 
 except on E: Exception do
  begin
   MessageBox(Handle,PWideChar(IntToStr(GetLastError)),'Programma',MB_ICONERROR);
  end;
 end;

А если серьезно, то вариант Виталия проще и удобнее.

[superedward]

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

Надежнее будет ...:=Copy(ComboBox2.Text,1,1);

В пику

...:=LeftStr(ComboBox2.Text,1);

[Аватар]

В пику

А заглянуть в код? Там тот же Copy. Типа ответного в пику