Raporlama işlemi için FastReport kullanıyorum. Yapmak istediğim şey ilkokul öğrencileri için hızlıca 4 işlem alıştırmaları ile ilgili çıktılar almak. Çarpma ve toplama için işimi halledebilecek şekilde aşağıdaki kodları kullanıyorum.
Maalesef çıkarma ve bölme işlemleri için sonuç döndürecek kodları beceremedim. Sutun1'e yazılan rakamların Sutun2'den daha büyük olması olayında takıldım. Bir de kalansız bölme işlemleri yapabilmek için hangi yolu tercih etmeliyim? Örnek projeler de araştırdım fakat sonuca ulaşamadım. Yardımlarınızı bekliyorum.
İyi çalışmalar dilerim.
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
begin
frxUserDataSet1.RangeEnd := reCount;
frxUserDataSet1.RangeEndCount := 15;
end;
Kod: Tümünü seç
procedure TForm1.frxUserDataSet1GetValue(const VarName: string;
var Value: Variant);
var
a, b: Integer;
begin
if VarName = 'Sutun1' then
begin
a := Random(100);
Value := a;
end
else if VarName = 'Sutun2' then
begin
b := Random(100);
Value := b;
end
else if VarName = 'Sutun3' then
Value := '';
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;