Hallo Willi,
wenn dein ReWrite() schon nicht ausgeführt wird, dann solltest du mal den FehlerCode anschauen. Vielleicht hast du die Datei ja zur Erfolgskontrolle in einem Editor offen, was den exklusiven Zugriff verhindert.
Statt TextFile kannst du auch problemlos mit dem moderneren FileStream arbeiten:
Delphi-Quellcode:
resourcestring
JOWI_DIR = 'C:\JoWiSoft\Kasse\KassenDaten';
JOWI_FILE = 'BonDaten.txt';
procedure WriteLine(s: TStream; const line: string);
begin
s.Write(line[1], Length(line));
s.Write(sLineBreak[1], Length(sLineBreak));
end;
procedure TDemoForm.TestButtonClick(Sender: TObject);
var
s: TStream;
fn: TFileName;
begin
if not DirectoryExists(JOWI_DIR) then
ForceDirectories(JOWI_DIR);
fn := IncludeTrailingPathDelimiter(JOWI_DIR) + JOWI_FILE;
s := TFileStream.Create(fn, fmCreate);
WriteLine(s, 'success finally');
s.Free;
end;
Getippt und nicht getestet.
Grüße vom marabu