Hallo alle zusammen, ich hoffe Ihr könnt mir weiterhelfen.
Ich habe folgendes Problem, über folgenden Procedure speichere ich den Inhalt der der
Query in der Textdatei.
Delphi-Quellcode:
AssignFile(f, 'SerienTxt.txt');
rewrite(f);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * FROM "'+Pfad+'" WHERE Name ='''+DBFirma.Text+'''');
Form1.Query1.Active:= True;
Form1.Query1.First;
for i:= 0 To Form1.Query1.FieldCount-1 Do
Write(f, Form1.DBGrid1.Fields[i].Fieldname+'#');
Writeln(f,'');
While Not Form1.Query1.Eof DO
begin
For i:= 0 To Form1.Query1.FieldCount-1 Do
Write(F, Form1.Query1.Fields[i].AsString+'#');
if Form1.Query1.FieldCount-1 = Form1.Query1.FieldCount-1 Then
Writeln(f,'');
Form1.Query1.Next;
end;
CloseFile (f);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * FROM "'+Pfad+'"');
Form1.Query1.Active:= True;
Nun habe ich das Problem, das ich die Procedure nur 1x aufrufen kann und die Daten in der Textdatei speichern kann. Wenn ich einen anderen Datensatz auswähle, wird der Inhalt nicht überschrieben. Dazu muß ich dann erst die Textdatei von Hand öffnen und wieder schließen.
Woran liegt das?
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/delphi]