Ладно, еще один вопрос можнали этот кусок кода переделать в компоненту?
| Код | procedure TPagesDlg.N6Click(Sender: TObject); var a,i:integer; s:string; begin for i:=1 to n-1 do if (stringgrid1.cells[0,i]='') and (stringgrid1.cells[1,i]='') and(stringgrid1.cells[2,i]='') and(stringgrid1.cells[3,i]='') then begin s:=stringgrid1.cells[0,i]; stringgrid1.cells[0,i]:=stringgrid1.cells[0,i+1]; stringgrid1.cells[0,i+1]:=s;
s:=stringgrid1.cells[1,i]; stringgrid1.cells[1,i]:=stringgrid1.cells[1,i+1]; stringgrid1.cells[1,i+1]:=s;
s:=stringgrid1.cells[2,i]; stringgrid1.cells[2,i]:=stringgrid1.cells[2,i+1]; stringgrid1.cells[2,i+1]:=s;
s:=stringgrid1.cells[3,i]; stringgrid1.cells[3,i]:=stringgrid1.cells[3,i+1]; stringgrid1.cells[3,i+1]:=s; n:=N-1; end; a:=1; while a<>0 do begin a:=0; for i:=1 to n-1 do if stringgrid1.cells[0,i]> stringgrid1.cells[0,i+1] then begin s:=stringgrid1.cells[0,i]; stringgrid1.cells[0,i]:=stringgrid1.cells[0,i+1]; stringgrid1.cells[0,i+1]:=s;
s:=stringgrid1.cells[1,i]; stringgrid1.cells[1,i]:=stringgrid1.cells[1,i+1]; stringgrid1.cells[1,i+1]:=s;
s:=stringgrid1.cells[2,i]; stringgrid1.cells[2,i]:=stringgrid1.cells[2,i+1]; stringgrid1.cells[2,i+1]:=s;
s:=stringgrid1.cells[3,i]; stringgrid1.cells[3,i]:=stringgrid1.cells[3,i+1]; stringgrid1.cells[3,i+1]:=s; a:=a+1; end; end; newcombobox; newedit(combobox1); end;
|
|