09 août 2019

Tri rapide (quicksort) d'une StringGrid

ar 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]
Posté par PS95600 à 15:10 - Permalien [#]
Tags : ,