|
#1
|
|||
|
|||
DBGrid и ListBox
Доброго времени суток! Вопрос: На форме расположен DBGrid, ListBox и кнопка. При запуске формы DBGrid заполняется инфой из БД. После того, как пользовательно находит нужную ему строку он нажимает кнопку и выделеная запись в DBGrid копируется в ListBox. Каждое поле разделяется знаком ",". Так вот вопрос, в первом поле находиться ФИО работника и сейчас она получаеться в таком виде "ИВАНОВ ИВАН ИВАНОВИЧ", можно ли привести в такой вид "ИВАНОВ","ИВАН","ИВАНОВИЧ"
|
#2
|
|||
|
|||
приводи, что ж тебе не дает
берешь значение поля разбиваешь его на слова и перечисляешь через запятую, как разбить строку - ищи на форуме, полно примеров или как вариант в результирующей строке меняешь пробелы на запятую, но это если пробелов в других данных быть не может |
#3
|
|||
|
|||
Цитата:
Я использую следующий код Код:
procedure TForm1.BitBtn3Click(Sender: TObject); var c:integer; s0,s1, rs :string; begin s0:= DBGrid1.Columns[0].Field.AsString; //можно ли задать здесь условие замены пробелов на "," и """ s1:= DBGrid1.Columns[1].Field.AsString; rs := rs + '"'+s0+'"'+','+'"'+s1+'"'; ListBox1.Items.Add (rs); end; |
#4
|
|||
|
|||
Код:
s0 := StringReplace(DBGrid1.Columns[0].Field.AsString,' ','","',[rfReplaceAll]); Годится? |
#5
|
|||
|
|||
Огромное спасибо, все заработало как надо!
|