работа со StringGrid

[TIXIY]

Задание:
1) Программно считать из файла table_param.txt параметры таблицы: имена столбцов и номер столбца, тип которого будет comdoBox. Имена столбцов указываются на первой строке и разделены одним знаком табуляции. На следующей строке указывается одна цифра – указывающая номер столбца (в примере это столбец 0).
2) Форма с таблицей должна иметь примерный вид как на Рисунке 1.

3) Кнопки «+» и «-» соответственно вставляют и удаляют строку в таблице. Должна быть возможность удалять несколько строк одновременно и вставлять строку в конец таблицы или в середину после выделенной.
4) Кнопка «Отмена» закрывает форму без выполнения каких либо действий.

[TIXIY]

Народ помогите пожалуйста..=))))

[TIXIY]

я нашел что то похоже как считать с файла, но у меня выдает ошибку на load stringgrid

procedure TForm1.Button3Click(Sender: TObject);
begin
 LoadStringGrid(StringGrid1, 'c:\table_param.txt');
 ShowMessage('Load done.');
end;

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, filename);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         strTemp := StringReplace(strTemp, '$@$', #13#10, [rfReplaceAll, rfIgnoreCase]);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;

[TIXIY]

народ что никто даже не может подсказать.+))))

[Serge_Bliznykov]

похоже, что код LoadStringGrid написан на форуме мной.
а не получается у вас его использовать, скорее всего потому, что ваш текстовый файл (этот ваш 'c:\table_param.txt' ) имеет совершенно другую структуру
LoadStringGrid загружает данные из файла, сохранённые через SaveStringGrid

как минимум выложите сюда на форум свой файлик 'c:\table_param.txt'
это раз.

второе. а каким образом Вы в своём стрингриде создаёте ComboBox? (исходный код создания приведите)

третье. в чём у вас сложность с добавлением строки? и тот же вопрос - что с удалением не получается?



Вы свой проект (явно учебный, кстати) не выложили, в одну кучу смешали все свои проблемы и теперь надеятесь на чудо...

[TIXIY]

Я Добавление сделал но оно добавляет только в конец строки,но не знаю как сделать чтобы и в середину можно было добавить. Удаление не могу реализовать и чтобы можно было удалять сразу несколько строк.

Насчет ComboBox сам не знаю как это сделать поэтому и спрашиваю.

[Serge_Bliznykov]

но не знаю как сделать чтобы и в середину можно было добавить

а всё просто.
допустим, надо вставить новую строчку в строку с номером K.
Тогда добавляете пустую строчку в конец.
все строчки начиная с K и до конца сдвигаете на одну.
n копируете в n+1
n-1 копируете в n
и т.д.
k -> k+1
в k строчку записываете новые данные.

задача решена. вставлена новая строчка в строку K

Насчет ComboBox сам не знаю как это сделать поэтому и спрашиваю.

оп! я не вижу, где вы спрашиваете, как в StringGrid добавить комбобокс?! это ваш пункт 2), что ли?!

поищите, на форуме были примеры, как в стринггрид можно добавить комбобокс.
найдёте, вставите себе. убедитесь, что всё работает. опубликуете здесь свой рабочий код, вот тогда мы и приступим к загрузке вашего table_param.txt

я же правильно понимаю, сейчас у вас вообще никакого работающего кода нет?!

[TIXIY]

я тут посидел, почитал, посмотрел, поискал и подумал и написал..=))) но проблема теперь стоит в том что я не могу сделать так чтобы у меня удалялась строка та на которой стоит курсор или выбрана строка, не могу неаписать код чтобы он определял позицию..=))))))

а Так огромное спасибо за поддержку и за помошь, приятно когда люди стараються тебе помочь..=)))))

[Serge_Bliznykov]

зря Вы с этим TStringGrid связались.. у меня порой такое чувство, что этот компонент у индусов украли...

попробуйте на кнопку удаления повесить такой код:

procedure TForm1.btDeleteRowClick(Sender: TObject);
var i, k : integer;
begin
    // сначала скопируем все строчки на место удаляемой
    k := StringGrid1.Row;
    for i:= k to StringGrid1.RowCount-2 do
       StringGrid1.Rows[i] := StringGrid1.Rows[i+1];

    // а теперь удалим последнюю строчку грида
    StringGrid1.RowCount := StringGrid1.RowCount - 1;
end;

[TIXIY]

да мне тоже не нравиться этот Stringgrid, он мне весь мозг вынес..=0))))

кстати все работает великолепно, я проверил..=))) спасибо огроменное, меня реально выручил..=)))))))