TurboDelphi. Справочник

[mihali4]

не разберусь никак

Пусть у вас всего 5 строк и вам нужно удалить третью.
Тогда ваши действия таковы:
- переписать содержимое ячеек четвертой строки в третью, а пятой - в четвертую. Конечно, это делается двойным циклом (первый - от номера удаляемой строки до конца грида, и внутренний - по столбцам (ячейкам строки) ).
- очистить содержимое ячеек пятой строки и уменьшить количество строк грида RowCount.
Зачем очищать? А затем, что если вы через некоторое время захотите добавить запись, добавите RowCount, то увидите в новой строке старые данные...

[Xeon332]

procedure TForm1.Button3Click(Sender: TObject);
begin
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
  StringGrid1.Row:=StringGrid1.RowCount+1;
  StringGrid1.Col:=-1;
  StringGrid1.SetFocus;
  end;

Так? получается что в последнюю строку записывается предпоследняя строка?

[mihali4]

Вроде бы я по шагам расписал...
Ну ладно, вот (то, что я в посте номер 21 писал):

procedure TForm1.Button3Click(Sender: TObject);
var i,j: integer;
begin
//перебираем строки, начиная с удаляемой
for i:=3 to StringGrid1.RowCount-1 do //-1, т.к. нумерация с 0
//считаем, что у нас есть серый фиксированный столбец, иначе j:=0
for j:=1 to StringGrid1.ColCount-1 do //-1, т.к. нумерация с 0
//переписываем каждую ячейку строки i+1 в ячейку строки i
StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];

//считаем, что у нас есть серый фиксированный столбец, иначе j:=0
for j:=1 to StringGrid1.ColCount-1 do 
//очищаем каждую ячейку последней строки i
StringGrid1.Cells[j,i]:='';
//вот теперь скрываем последнюю, уже пустую строку
StringGrid1.RowCount:=StringGrid1.RowCount-1;
StringGrid1.SetFocus;
end;

[Xeon332]

Так это вроде ясно. я не пойму как сделать так, чтобы удаления происходило не строк, а записей в этих строках... Потому как при таком удалении строка удаляется, а после того как ещё строки создаешь, то записи удалённых строк оказываются сохраненными...

[artemavd]

for j:=1 to StringGrid1.ColCount-1 do 
//очищаем каждую ячейку последней строки i
StringGrid1.Cells[j,i]:='';
//вот теперь скрываем последнюю, уже пустую строку
StringGrid1.RowCount:=StringGrid1.RowCount-1;
StringGrid1.SetFocus;

По-моему mihali4 уже написал как это сделать...

[Xeon332]

с этим более менее понятно...
организовывать запись в файл таким образом ведь можно?:

procedure TForm1.Button5Click(Sender: TObject);
var
f: textfile;
i, j: integer;
begin
assignfile(f,Filename);
rewrite(f);
writeln(f, grid.colcount);
writeln(f, grid.rowcount);
for i := 0 to grid.colcount - 1 do
for j := 0 to grid.rowcount - 1 do
writeln(F, grid.cells[i, j]);
closefile(f);
end;

Но Delphi матерится, не принимая grid.colcount и grid.rowcount, к тому же определяет (f,Filename) как неидентифицированные переменные...

[Xeon332]

а можно ли как нибудь по другому организовать запись в файл?...

procedure TForm1.Button5Click(Sender: TObject);
begin
SaveGrid(form1.StringGrid,'Grid1.txt');
end;

вот так сделал по образцу сохранения. вычитал из книги. но тоже не работает, хотя вроде все так как надо...

[mihali4]

Нету у грида такого свойства - текст. Скачайте-ка себе с сайта клуба книжку про 100 компонентов Дельфи и почитайте на досуге.

[Xeon332]

ну а почему тогда вариант с кодом:

procedure TForm1.Button5Click(Sender: TObject);
var
f: textfile;
i, j: integer;
begin
assignfile(f,Filename);
rewrite(f);
writeln(f, grid.colcount);
writeln(f, grid.rowcount);
for i := 0 to grid.colcount - 1 do
for j := 0 to grid.rowcount - 1 do
writeln(F, grid.cells[i, j]);
closefile(f);
end;

не работает? ведь по идее всё правильно!

[mihali4]

А где определена переменная "Filename"?
А ваш StringGrid имеет имя "grid" ?
Качайте и читайте книгу - она обязана быть у вас под рукой!