удаление из стрингрида

[Lenux]

Добрый день. Помогите пожалуста решить задание:
Поля записи: тип компьютера, год выпуска, цена. Операция: удалить все компьютеры с заданным годом выпуска.

Я зделал программку в которую мы вписываем выше перечисленные записи. Проблема в том что у меня никак не получается удалить из стринггрида все компьютеры с ввёдным годом. После удаление всё нужно сохранить в файл.
Вот мой код, но почему то он удаляет только 2 компьютера с одинаковым годом.


procedure TForm1.Button2Click(Sender: TObject);
var d,i,a:integer;

begin
d:=StrToInt(InputBox('Hello','Enter computer year to delete',' ')); //вводим год
a:=0;
for i := 0 to StringGrid1.RowCount+1 do
begin
if StringGrid1.Cells[2,i] <> IntToStr(d) then
begin
stringGrid1.Cells[0,a]:=IntToStr(a);
stringGrid1.Cells[1,a]:=stringGrid1.Cells[1,i];
stringGrid1.Cells[2,a]:=stringGrid1.Cells[2,i];
stringGrid1.Cells[3,a]:=stringGrid1.Cells[3,i];
inc(a);

Помогите пожалуста, буду очень благодарен.

[Chudo4258]

может как-то так?

procedure TForm1.Button2Click(Sender: TObject);
var d,i,j,a:integer;
begin
d:=InputBox('Hello','Enter computer year to delete',' '); //вводим год
a:=0;
for i := 0 to StringGrid1.RowCount+1 do
if StringGrid1.Cells[2,i] <> d then
 begin
  for j:=i to StringGrid1.RowCount do
    begin
      stringGrid1.Cells[0,j]:=stringGrid1.Cells[0,j+1];
      stringGrid1.Cells[1,j]:=stringGrid1.Cells[1,j+1];
      stringGrid1.Cells[2,j]:=stringGrid1.Cells[2,j+1];
      stringGrid1.Cells[3,j]:=stringGrid1.Cells[3,j+1];
   end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
 end;
end;

[Lenux]

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

может как-то так?

procedure TForm1.Button2Click(Sender: TObject);
var d,i,j,a:integer;
begin
d:=StrToInt(InputBox('Hello','Enter computer year to delete',' ')); //вводим год
a:=0;
for i := 0 to StringGrid1.RowCount+1 do
if StringGrid1.Cells[2,i] <> IntToStr(d) then
 begin
  for j:=i to StringGrid1.RowCount do
    begin
      stringGrid1.Cells[0,j]:=stringGrid1.Cells[0,j+1];
      stringGrid1.Cells[1,j]:=stringGrid1.Cells[1,j+1];
      stringGrid1.Cells[2,j]:=stringGrid1.Cells[2,j+1];
      stringGrid1.Cells[3,j]:=stringGrid1.Cells[3,j+1];
   end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
 end;
end;

так она всё удаляет кроме первого.

[Chudo4258]

в каком смысле ВСЕ?? Вообще всю таблицу удаляет???

[Lenux]

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

в каком смысле ВСЕ?? Вообще всю таблицу удаляет???

да, оставляет только один элемент. Тот код что я написал он как бы работает, но если я к примеру введу 3 значени 2010, и напишу в инпутбоксе чтоб он удалил 2010, то он удалит только 2 значения.

[Chudo4258]

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

да, оставляет только один элемент. Тот код что я написал он как бы работает, но если я к примеру введу 3 значени 2010, и напишу в инпутбоксе чтоб он удалил 2010, то он удалит только 2 значения.

Скинь весь код, посмотрим...

[Lenux]

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

Скинь весь код, посмотрим...

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

type TComp=record
name:string[10];
Year:integer;
Cost:extended;
end;

var F:file of TComp;

procedure TForm1.FormCreate(Sender: TObject);
var comp:TComp;
i:integer;
begin
AssignFile(F,'info.txt');
try
Reset(F);
except on EinoutError do
Rewrite(F);
end;
with StringGrid1 do
begin
RowCount:=FileSize(F)+1;
for i:=1 to FileSize(F) do
begin
read(F,comp);
Cells[1,i]:=comp.name ;
Cells[2,i]:=IntToStr(comp.year) ;
Cells[3,i]:=Floattostr(comp.cost);
end;
end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject); //кнопка при нажатии которой данные добавляются в стринггрид и сохраняются в файл
var comp:TComp;
begin
comp.name:=edit1.Text;
comp.year:=StrToInt(edit2.Text);
comp.cost:=strtofloat(edit3.Text);
Seek (F,FileSize(F));
Write(F,comp);

with StringGrid1 do
begin
Rowcount:=FileSize(F)+1;
Cells[1,FileSize(F)]:=comp.name;
Cells[2,FileSize(F)]:=IntToStr(comp.year);
Cells[3,FileSize(F)]:=floattostr(comp.Cost);
end;
end;
procedure TForm1.Button2Click(Sender: TObject); // конпка при нажатии на которую надо удалить из стринггрида и файла год компьютера
var d,i,a:integer;
FTemp: file of TComp;
begin
d:=StrToInt(InputBox('Hello','Enter computer year to delete',' '));
a:=0;
for i:=0 to StringGrid1.RowCount+1 do
begin
if StringGrid1.Cells[2,i] <> IntToStr(d) then
begin
stringGrid1.Cells[0,a]:=IntToStr(a);
stringGrid1.Cells[1,a]:=stringGrid1.Cells[1,i];
stringGrid1.Cells[2,a]:=stringGrid1.Cells[2,i];
stringGrid1.Cells[3,a]:=stringGrid1.Cells[3,i];
inc(a);

end;
end;

end;
end.

тут полностью вся программа.