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