StringGridx tri

Var gr1:tstringgrid; procedure TForm1.Button1Click(Sender: TObject); var x, y, z:integer; tmpstr : array[0..100] of string; begin   with gr1 do  begin     for x:= 1 to rowcount -1 do     for y := 1 to rowcount-x do       if strtoint(cells[1, y]) > strtoint(cells[1, y+1]) then         for z := 0 to colcount-1 do         begin             tmpstr[z] := cells[z,y];... [Lire la suite]