procedure TForm1.Button1Click(Sender: TObject);
var
i,j,p,k: Integer;
begin
with StringGrid1 do
begin
for i:=1 to n-1 do
for j := 1 to m-2 do
for k := j+1 to m-1 do
if StrToInt(Cells[j,i])>StrToInt(Cells[k,i]) then
begin
p:=StrToInt(Cells[j,i]);
Cells[j,i]:=Cells[k,i];
Cells[k,i]:=IntToStr(p);
end;
end;
end;
Follow along with the video below to see how to install our site as a web app on your home screen.
Napomena: this_feature_currently_requires_accessing_site_using_safari