Hallo,
warum ich die Labels tauschen muss ist kompliziert....
ich habe mir was geschrieben was für mich eigentlich gehen müsste nur irgendwie geht es nicht???
Delphi-Quellcode:
procedure TDatenbank.button_abcClick(Sender: TObject);
var
i,i2,z:integer;
begin
for i:=1 to speicher do for i2:=speicher downto i do
if hauptnamelabels[i2].caption>hauptnamelabels[i2+1].caption then
begin
z:=hauptnamelabels[i2+1].top;
hauptnamelabels[i2+1].top:=hauptnamelabels[i2].top;
hauptnamelabels[i2].top:=z;
end;
end;
speicher ist die anzahl der labels.............
hauptnamelabels ist array of tlabel
es sotiert sich alles ganz komisch... wo ist mein denkfehler??