حدف صف من Stringgrid

أنا أستخدم

procedure DeleteRow(yourStringGrid: TStringGrid; ARow: Integer); 

var i, j: Integer;

begin

with yourStringGrid do

begin

for i := ARow to RowCount-2 do

for j := 0 to ColCount-1 do

Cells[j, i] := Cells[j, i+1];

RowCount := RowCount - 1

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

var r : integer ;

begin

r := stringgrid1.row ;

deleterow(stringgrid1,r) ;

end;

قم بإختيار السطر و أضغط على الزر و لاحظ ماذا يحصل

لا شكر على واجب يا أخي نحن هنا لنتبادل المعرفة

المهم يكون مشي الحال ؟؟؟ :resentful: