StringGrid, ComboBox...

[monushka]

Добрый день! У меня следующая проблема. Имеется форма с тремя ComboBox'ами, Memo и StringGrid'ом. В КомбоБоксах выбираются определенные значения, в мемо вводятся комментарии, а затем при нажатии на кнопку "Добавить" все выбранные и введенные значения должны добавиться в СтрингГрид. Как сделать так, что бы при каждом нажатии на Добавить, в СтрингГрид добавлялась новая строка с данными. Я сделала так:

k:=1;
if SG1.RowCount <= k then
SG1.RowCount:=SG1.RowCount+1;
for i:=k to SG1.RowCount do
 begin
 SG1.Cells[0,k]:=DateToStr(DateTimePicker1.DateTime);
 SG1.Cells[1,k]:=ComboBox1.Text+#13+ComboBox2.Text;
 SG1.Cells[5,k]:=ComboBox3.Text;
 SG1.Cells[8,k]:=Memo1.Text;
 SG1.Visible:=True;
 k:=k+1;
 end;

но при этом при каждом нажатии на Добавить все данные копируются в одну и ту же строку. Не могу понять где проблема... Помогите, пожалуйста!
И еще КомбоБокс... Как в айтим добавлять значение с пробелом так, чтобы оно не разбивалось на разные айтимы? Например, если ввести так

ComboBox3.Items.CommaText:='Жуковская Галина Михайловна';

то в результате КомбоБокс будет иметь три айтима, а должен быть один.
Как это можно реализовать?
Вот. Спасибо!

[Hollander]

1 вопрос: Мот надо так:

for i:=k to SG1.RowCount do   
 begin   
 SG1.Cells[0,i]:=DateToStr(DateTimePicker1.DateTime);   
 SG1.Cells[1,i]:=ComboBox1.Text+#13+ComboBox2.Text;   
 SG1.Cells[5,i]:=ComboBox3.Text;   
 SG1.Cells[8,i]:=Memo1.Text;   
 SG1.Visible:=True;   
 end;

2 вопрос: попробуй:
ComboBox3.Items.Add('Жуковская Галина Михайловна');

[monushka]

Вот на 2 вопрос Вы мне подсказали, работает, СПАСИБО! А вот с первым... Все точно так же копируется в одну строку((( ЧЁ-то кажется мне, что проблема с наращиванием этих строк...

[Hollander]

Вообще сделай так:

SG1.RowCount:=SG1.RowCount+1;   
 SG1.Cells[0,SG1.RowCount]:=DateToStr(DateTimePicker1.DateTime);   
 SG1.Cells[1,SG1.RowCount]:=ComboBox1.Text+#13+ComboBox2.Text;   
 SG1.Cells[5,SG1.RowCount]:=ComboBox3.Text;   
 SG1.Cells[8,SG1.RowCount]:=Memo1.Text;

Я просто не могу понять зачем тебе цикл здесь нужен

[monushka]

О, уже похоже на правду. Спасибо! Вот только наращивание надо делать в конце, а то приходится нажимать два раза на кнопку, чтобы добавились данные. Но есть еще один момент. Первая строка после фиксированой остается пустой. Т.е. добавляется начиная со второй строки.
Если придать SG1.RowCount:=1, то тогда фиксированая первая строка становится нефиксированой, это плохо. А как иначе, я не знаю...

[ACE Valery]

Сообщение от monushka

Первая строка после фиксированой остается пустой. Т.е. добавляется начиная со второй строки.

хм... ну попробуйте вот так

Объявите глобальную переменную kol типа integer.
В FormCreate инициализируйте ее значением 1.
На кнопке Добавить пропишите:

  sg1.RowCount:=kol+1;
 SG1.Cells[0,kol]:=DateToStr(DateTimePicker1.DateTime);
 SG1.Cells[1,kol]:=ComboBox1.Text+#13+ComboBox2.Text;
 SG1.Cells[2,kol]:=ComboBox3.Text;
 SG1.Cells[3,kol]:=Memo1.Text;
 kol:=sg1.RowCount;

Работает, вроде, прилично.

[monushka]

Хм... Таки да... Но все равно спасибо большое за помощь! Может у кого-то еще появятся какие-то идеи на этот счет...

[ACE Valery]

Сообщение от monushka

Хм... Таки да... Но все равно спасибо большое за помощь! Может у кого-то еще появятся какие-то идеи на этот счет...

Посмотрите, пожалуйста, мое предыдущее сообщение, я исправила. Теперь все работает

[monushka]

ACE Valery, так совсем не работает. Все копируется в одну строку, как было у меня раньше... Может, конечно, я чЁ-то не поняла, но не работает. Спасибо за помощь!

[ACE Valery]

Сообщение от monushka

ACE Valery, так совсем не работает. Все копируется в одну строку, как было у меня раньше... Может, конечно, я чЁ-то не поняла, но не работает. Спасибо за помощь!

Вот полный текст программы. Сверяйте со своим

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    SG1: TStringGrid;
    Button1: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kol:integer;

implementation
{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
 sg1.RowCount:=kol+1;
 SG1.Cells[0,kol]:=DateToStr(DateTimePicker1.DateTime);
 SG1.Cells[1,kol]:=ComboBox1.Text+#13+ComboBox2.Text;
 SG1.Cells[2,kol]:=ComboBox3.Text;
 SG1.Cells[3,kol]:=Memo1.Text;
 kol:=sg1.RowCount;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
kol:=1;
end;

end.