Hallo!
Ich lese Daten aus einer AS400-DB und schreibe die Daten die ich durch ein Query bekomme in ein Textfile. Da ein Textfile aus mehreren As400-Tabellen besteht werden die Textfiles sehr groß. Ich denke, dass ich viel Zeit mit dem Schreiben in die Files aufbrauche. Daher will ich mit SetTextBuf den Vorgang ein wenig beschleunigen.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
| var Buf: array[0..4096] of Char; f: TextFile;
procedure TForm1.StartProzessTimer(Sender: TObject); begin AssignFile(f,C:\Temp\Test.txt'); SetTextBuf(f,Buf); Rewrite(f); // ... CloseFile(f); //... end; |
Problem:
Fehlermeldung bei SetTextBuf
[Fehler] Schaufel.pas(140): Inkompatible Typen: 'Text' und 'PAnsiChar'
P:S.:Ich habe die Syntax aus der OH übernommen und vertstehe nicht was ich falsch mache
mfg Patrick
Moderiert von
UGrohne: Code- durch Delphi-Tags ersetzt