Datenbank: abspeichern und drucken

[woki]

Hallo,

zum Ziel führt folgende Vorgehensweise, ohne näher darauf einzugehen, was da für ein Dynamit in der Aufgabenstellung steckt.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
 var j :integer;
     zeile :String;
     Alist :TStringlist;
begin
  Alist := TStringList.Create;
  Table1.Open;
  table1.First;
  while not Table1.Eof do begin
    zeile := Table1.Fields[0].AsString;
    for j := 1 to Table1.FieldCount -1 do
      zeile := zeile + Table1.Fields[j].AsString+ '|';  //'|' dient als Trenner für die Felder
    Alist.Add(zeile);
  end;
  Alist.SaveToFile('myfile.dat');
  Alist.Free;
end;

und eine Möglichkeit zum Drucken

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var aRichEdit: TRichedit;
begin
  with aRichEdit.Create(nil) do begin
    Lines.LoadFromFile('myfile.dat');
    Print('MyPrintOut');
    free;
  end;
end;

Ansonsten mal in der Dlphi Hilfe unter drucken nachschauen

Gruß
Wolfgang