Diziye tablo alanı aktarma

[nugre]

arkadaşlar dizilere tablonun alanını aktarabiliyormuyuz,
ben standart sapma hesaplayacağım burada örneğin puan alanının standart sapması,
bir diziye bu alanı nasıl aktarabilirim?
[/quote]

[fduman]

Aktarabilirsin. Şu şekilde (aktarmak istediğin alanın 0. alan olduğu varsayılırsa):

var
Dizi: array[0..12] of Double;

begin
Dizi[0]:= Dataset.Fields[0].AsFloat;
end;

Delphi'nin Math Unitinde istatistik funct. mevcut. kendin yazarak vakit kaybetme.

Standart Sapma için:

function StdDev(const Data: array of Double): Extended;

[nugre]

biraz daha acarmısınız dünden beri hesaplayamadım ,
denedim olmadı.

[fduman]

Kod: Tümünü seç

uses Math;

function StandartSapmaHesapla: Extended;
var 
  Ogrenciler: array of Double;
  I: Integer;
begin
  I:= 0;
  with Data.TblSonuclar do
  begin
    SetLength(Ogrenciler, RecordCount);
    DisableControls;
    First;
    while not EOF do
    begin
      Ogrenciler[I]:= FieldByName('spuani').AsFloat;
      Inc(I);
      Next;
    end;
    EnableControls;
  end;
  Result:= StdDev(Ogrenciler);
end;