[Melenium]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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]

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

Код:

1 2 3 4 5 6 7 8 9 10

... 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, <b>length(temp_str)</b>)); //пропущен параметр 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]

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