Hey,
Habe mal meinen Code angehängt.
Irgendwo ist ein Fehler drin!?!
Er liest keine Daten aus der Datenbank aus? Könnt Ihr mir sagen woran es liegt?
Delphi-Quellcode:
procedure TForm1.Exportieren1Click(Sender: TObject);
var
Kopfzeile :
String;
f : TextFile;
AN :
String;
s :
String;
BZ :
String;
begin
Kopfzeile:='
v_products_model'+#9+'
v_products_name'+#9+'
EOREOR';
AssignFile(f,'
.\Export.txt');
Rewrite(f);
WriteLn(f,Kopfzeile);
Table1.DatabaseName:='
.\DB\';
Table1.TableName:='
Artikeldatenbank';
Table1.Active:=true;
Table1.Edit;
Table1.FieldValues['
Artikelnummer']:=AN;
Table1.FieldValues['
Bezeichnung']:=BZ;
s:=AN+#9+BZ+#9+'
EOREOR';
WriteLn(f, s);
CloseFile(f);
end;