Häufigkeitsanalyse von Zahlen

[trojaner]

Hallo
ich mache das so:

Delphi-Quellcode:

procedure TFHaupt.BarZeichnen(ILList,RLList : TStringList;GIL,GRL : double;Farbe : TColor);
var
  i         : integer;
  x1        : integer;
  y1        : integer;
  hilfreal1 : double;
begin
  try
    ILBar.Clear;
    RLBar.Clear;
    for i :=0 to 20 do HistoIL1[i]:=0;
    for i:=0 to ILList.Count-1 do
    begin
      x1:= round(strtofloat(ILList.strings[i]) /(GIL/20));
      HistoIL1[x1]:=HistoIL1[x1]+1;
    end;
    try
      if (((KeinRL = false)and(GRL < 85))or (Messgeraet = 9)) then
      begin
        for i :=0 to 20 do HistoRL1[i]:=0;
        for i:=0 to RLList.Count-1 do
        begin
          hilfreal1:=strtofloat(RLList.strings[i])-GRL;
          y1:= round(hilfreal1 / (abs((GRL+30)-GRL)/20));
          HistoRL1[y1]:=HistoRL1[y1]+1;
        end;
      end;
    except
    end;
    try
      for i :=0 to 20 do
      begin
        ILBar.AddXY((i/(20/GIL)),HistoIL1[i],'',Farbe);
        if (((KeinRL = false)and(GRL < 85))or (Messgeraet = 9)) then
          RLBar.AddXY((i/(20/30)+GRL),HistoRL1[i],'',Farbe);
      end;
    except
    end;
  except
  end;
end;

Gruss
Trojaner