[Melenium]

Здравствуйте! я плохо разбираюсь в Delphi у меня такой вопрос как разбить текст взятый из DBGrid между DBEdit
мне нужно чтоб целый текст через пробел был распределен, а точнее Ф.И.О между DBEdit6,7,8
дело в том что процедура написна в форме но она не работает, подскажите пожалуйста как лутше сделать, подскажите пример?

вот часть кода:

Код:

procedure Tsch_tForm.DBGrid5CellClick(Column: TColumn);
var
  temp_str : string;
  i : Integer;
  List: TStrings;
begin

  temp_str := DBGrid5.Columns[0].Field.Text;
  i := Pos(' ', temp_str);
  DBEdit6.Text := Trim(Copy(temp_str, 0, i)); // Фамилия
  temp_str := Trim(Copy(temp_str, i));
  i := Pos(' ', temp_str);
  DBEdit7.Text := Trim(Copy(temp_str, 0, i)); // Имя
  i := Pos(' ', temp_str);
  DBEdit8.Text := Trim(Copy(temp_str, i, length(temp_str))); // Имя

  DBComboBox1.Text := DBGrid5.Columns[1].Field.Text;

  DBEdit10.Text := DBGrid5.Columns[2].Field.Text;
  DBEdit11.Text := DBGrid5.Columns[3].Field.Text;
  //List.Text := Edit13.Text;
  //Edit13.Text := List.Text;
  //SQLQuery_ych_rash_pot_t_en.SQL := 'SELECT l_chet, jil_ploshat, telephon FROM schet_reg  WHERE flat=' + List.Strings[0] + ' LIMIT 1;';
  //SQLQuery_ych_rash_pot_t_en.ExecSQL;

  //Edit13.Text := SQLQuery_ych_rash_pot_t_en.MultiResultsetNo.ToString;
end;

Админ: Пользуемся тегами для оформления кода!

Зарание спасибо!

[Alegun]

Всё работает:

Код:

...
temp_str:= DBGrid5.Columns[0].Field.Text;//ФИО
i:= Pos(' ', temp_str);
DBEdit6.Text:= Trim(Copy(temp_str, 0, i)); //Ф
temp_str:= Trim(Copy(temp_str, i, length(temp_str))); //пропущен параметр
i:= Pos(' ', temp_str);
DBEdit7.Text:= Trim(Copy(temp_str, 0, i)); //И
i:= Pos(' ', temp_str);
DBEdit8.Text := Trim(Copy(temp_str, i, length(temp_str))); //О
...

[Melenium]

Спасибо за помощь все работает! )