Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 5.00
Raideres
1 / 1 / 0
Регистрация: 29.10.2009
Сообщений: 211
#1

Добавление удаление сохранение и открытие в StringGrid - Delphi

31.03.2012, 15:54. Просмотров 1130. Ответов 4
Метки нет (Все метки)

У меня имеется StringGrid1 имеются кнопки b1-добавить b2-удалить b3-сохранить b4-открыть
Подскажите пожалуйста процедуры Добавления записей, удаления записи ,сохранения и открытия

Добавлено через 4 часа 30 минут
НИ КТО НЕ ЗНАЕТ КАК СДЕЛАТЬ?

Добавлено через 1 час 18 минут
Вот сделал удаление записей
Delphi
1
2
3
4
5
6
7
8
var
  i,j: Integer;
begin
  j:=StringGrid2.Row; // строка с выделением
  StringGrid2.Rows[j].Clear;
  for i:=j to StringGrid2.RowCount-2 do
   StringGrid2.Rows[i].Assign(StringGrid2.Rows[i+1]);
  StringGrid2.RowCount:=StringGrid2.RowCount-1;
Добавлено через 27 минут
А вот сделал добавление.
Delphi
1
2
3
4
5
6
7
8
9
10
11
var n: longint;
begin
form1.StringGrid1.RowCount:=form1.StringGrid1.RowCount+1;
form1.StringGrid1.Rows[form1.StringGrid1.RowCount-1].Clear;
n:=form1.StringGrid1.RowCount-1;
form1.StringGrid1.Cells[0,n]:=form4.Edit1.Text;
form1.StringGrid1.Cells[1,n]:=form4.Edit2.Text;
form1.StringGrid1.Cells[2,n]:=form4.Edit3.Text;
form1.StringGrid1.Cells[3,n]:=form4.Edit4.Text;
form1.StringGrid1.Cells[4,n]:=form4.Edit5.Text
end;
но у меня 1 строчка при добавление остается пустой
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 15:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Добавление удаление сохранение и открытие в StringGrid (Delphi):

StringGrid Сохранение и открытие - Delphi
Помогите пожалуйста пытаюсь сохранить стрингрид в текстовый файл procedure TForm2.Button2Click(Sender: TObject); var K:TextFile; ...

Сохранение и открытие данных из StringGrid в Excel - Delphi
Здравствуйте, создал программу база данных и хотел сделать так чтобы она могла сохранять и открывать данные из stringgrid в excel и...

Stringgrid добавление/удаление - Delphi
На форме есть Stringgrid и Checklistbox При установки в true итема чекбокса нужно добавлять столбец с именем чекбокса, при False -...

Открытие файла из списка StringGrid - Delphi
Прошу помощи, помогите написать код, с помощью одного клика по SrtingGrid загрузить файл в IdMessage1. Проблема в том, что я не пойму как...

Сохранение и открытие - Delphi
Еще большие проблемы с открытием и сохранением...есть какой нить пример программы с этими функциями??????Или помогите сделать...что нужно...

Открытие файла с расширение '*.ods' в StringGrid - Delphi
Пожалуйста подскажите как открыть OpenOfficeCalc таблицу в StringGrid!!

4
Puporev
Модератор
52828 / 40639 / 13887
Регистрация: 18.05.2008
Сообщений: 94,274
31.03.2012, 15:57 #2
Наверное это лишнее.
Delphi
1
form1.StringGrid1.Rows[form1.StringGrid1.RowCount-1].Clear;
добавили строку и заполнили.
1
Raideres
1 / 1 / 0
Регистрация: 29.10.2009
Сообщений: 211
01.04.2012, 08:55  [ТС] #3
1 строчка так и остается пустой..а как сделать чтоб добавлялась по выделению

Добавлено через 2 часа 4 минуты
переделал добавление вот
Delphi
1
2
3
4
5
6
7
8
9
var n: longint;
begin
n:=form1.StringGrid1.Row;
form1.StringGrid1.Cells[0,n]:=form4.Edit1.Text;
form1.StringGrid1.Cells[1,n]:=form4.Edit2.Text;
form1.StringGrid1.Cells[2,n]:=form4.Edit3.Text;
form1.StringGrid1.Cells[3,n]:=form4.Edit4.Text;
form1.StringGrid1.Cells[4,n]:=form4.Edit5.Text
end;
Добавлено через 41 секунду
а вот сохранение в файл
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Var I : Byte;
    F : TextFile;
    S : String;
begin
  AssignFile(F, Edit2.Text);
  Rewrite(F);
  For I := 1 to StringGrid2.RowCount - 1 do
  Begin
    S := StringGrid2.Cells[0,I] +' '+StringGrid2.Cells[1,I] +' '+StringGrid2.Cells[2,I] +' '+StringGrid2.Cells[3,I]+' '+StringGrid2.Cells[4,I]+' '+StringGrid2.Cells[5,I];
    Writeln(F,S)
  end;
  CloseFile(F)
end;
Добавлено через 17 секунд
помогите с открытием ПОЖАЛУЙСТА

Добавлено через 14 часов 9 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile('open.txt');
 StringGrid1.RowCount := L.Count+1;
 StringGrid1.ColCount := 5;
  For I := 0 To L.Count-1 Do
    Begin
       StringGrid1.Cells[0,i+1] := Copy(L[i],1,Pos(',',L[i])-1);
       StringGrid1.Cells[0,i+1] := Copy(L[i],Pos(',',L[i])+1,Length(L[i]));
    End;
  L.Free;
end;
ВОТ НАШЕЛ ВАРИАНТ ЗАГРУЗКИ В СТРИНГГРИД НО ОН СОХРАНЯЕТ ВСЕ СОДЕРЖИМОЕ ФАЙЛА В 1 СТОЛБЕЦ А МНЕ НАДО ЧТОБ НАПРИМЕР ФАМИЛИЯ В ОДИН А ИМЯ В ДРУГОЙ
0
Puporev
Модератор
52828 / 40639 / 13887
Регистрация: 18.05.2008
Сообщений: 94,274
01.04.2012, 11:26 #4
Вот пример записи файла в Грид, наверняка можно сделать по другому, красивше, но чем можем..
1
Вложения
Тип файла: zip Файл в StringGrid_1.zip (236.1 Кб, 49 просмотров)
Raideres
1 / 1 / 0
Регистрация: 29.10.2009
Сообщений: 211
01.04.2012, 17:45  [ТС] #5
спасибо все сделал
0
01.04.2012, 17:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2012, 17:45
Привет! Вот еще темы с ответами:

Сохранение StringGrid - Delphi
Как сохранить данные из StringGrid в текстовый файл? -------------------------------------- И потом если что как вывести?

Сохранение и открытие матрицы - Delphi
У меня есть 2 процедуры, одна на сохранение, другая на открытие, через save и opendialog соответственно. Когда я ввожу свою матрицу в...

Сохранение и открытие файла - Delphi
Нужно организовать сохранение данных (элементы StringGrid) в файл, а также открытие (и соответственно заполнение этого самого StringGrid) ...

ListBox сохранение и открытие - Delphi
Очень нужна помощь)))Необходимо создать ListBox с битмапом или на худой конец с какими-нибудь кружками, квадратами и т.д. Читая МСДН я так...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.