Thema: Delphi Stringrid ordnen

Einzelnen Beitrag anzeigen

bluesbear

Registriert seit: 14. Dez 2005
Ort: Hahnstätten
355 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: Stringrid ordnen

  Alt 12. Feb 2008, 19:17
Hallo Simon,
Zitat von simon19881:
Ps.: Ich bin delphi Neuling ^^
ok, eine Starthilfe gebe ich Dir. Kommentarlos
Delphi-Quellcode:
var i, a, b : Integer;
    tmpStr : String;
begin
  for i:=0 to Pred(StringGrid1.RowCount) do begin
    StringGrid1.Cells[0, i] := Chr(Ord('A') + (i div 4)) + IntToStr((i mod 4) + 1);
  end;
  for i:=0 to 300 do begin
    a := Random(Pred(StringGrid1.RowCount));
    b := Random(Pred(StringGrid1.RowCount));
    tmpStr := StringGrid1.Cells[0, a];
    StringGrid1.Cells[0, a] := StringGrid1.Cells[0, b];
    StringGrid1.Cells[0, b] := tmpStr;
  end;
end;
Rauskriegen, wie das funktioniert und den Bubblesort programmieren mußt Du nun aber selber
Klaus M. Hoffmann
  Mit Zitat antworten Zitat