Freereport Gruppierung

[jensenwb]

Ich habe jetzt den Report fertig, erstmal nur mit einem Feld.

Jetzt habe ich aber das Problem das er in einer Endlosschleife hängen bleibt und ich nicht weiß woher die kommt.

Mei Quelltext lautet

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    table1.Active := False;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select ort from druckdatei3 group by ort');
    Query1.ExecSQL;
    table1.Active := True;

    frDBDataset1.DataSource := DataSource4;
    frReport1.PrintToDefault := True;;
    frReport1.LoadFromFile('alle.frf');
    frReport1.PrepareReport;
    frReport1.PrintPreparedReport('1-10000',1);

end;

Woran kann es jetzt liegen das er in einer Endlosschleife hängt und das Programm dann abstürzt