Nicht schön, aber damit gehts schon mal. Die doppelt vorhandenen Ränge werden nicht angezeigt. Von daher stimmt die Zählweise schon.
Danke für den Denkanstoß...
Delphi-Quellcode:
//Rang bestimmen
iRang := 0;
iWidth := 0;
iLastWidth := 0;
for i := 1 to FrameVorrundeOutput1.grdPlayers.RowCount -1 do
begin
iWidth := StrToIntDef(FrameVorrundeOutput1.grdPlayers.Cells[2,i],0);
if iWidth > 0 then
begin
if iWidth = iLastWidth then
begin
inc(iRang);
end
else
begin
inc(iRang);
FrameVorrundeOutput1.grdPlayers.Cells[0,i] := IntToStr(iRang);
end;
iLastWidth := iWidth;
end;
end;