26.11.2012, 05:14
|
 |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Всё работает:
Код:
...
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))); //О
... |