![]() |
|
|
#1
|
|||
|
|||
|
Доброго времени суток! Вопрос: На форме расположен 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
|
|||
|
|||
|
Огромное спасибо, все заработало как надо!
![]() |