Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 495
// Burbuja(memo.lines);
// Burbuja(listbox.lines);
// etc
procedure burbuja(conjunto : tstrings);
var
i,j : integer;
begin
for i:=0 to conjunto.count-2 do
for j:=i+1 to conjunto.count-1 do
if lowercase(conjunto[i])>lowercase(conjunto[j]) then
conjunto.Move(i,j);
end;
Otras entradas de la web que podrian interesarte:
. . .
. . .
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 5910676 visitas en total, hoy (de un total de 0 previstas).
. . .