Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
Du solltest das Erzeugen des FileStreams vor das try setzen.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
Trotzdem würde ich die Routine noch ein wenig ändern (ungetestet, Denkfehler vorbehalten):
procedure AddToLog(const LogFile: string; Msg: string);
const
Modes: array of word = (fmOpenReadWrite, fmCreate);
var
FLogStream: TStream;
begin
ForceDirectories(ExtractFilePath(LogFile));
try
FLogStream := TFileStream.Create(LogFile, Modes or fmShareDenyWrite);
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
http://www.netzmafia.de/service/h-world.html
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
*Pff* viel zu einfach, da könnte ja jeder kommen :lol:
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
Achso, ich dachte, Du beziehst Dich auf mich.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
Wer hat denn etwas von Datei laden gesagt? Ich meinte: StringStream erzeugen mit dem gewünschten String und Encoding. Dann Datei öffnen (Rewrite bzw. Append) und mit writeln den String aus dem Stream schreiben.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Jun 2011
Könntest Du nicht einen StringStream mit dem gewünschten Encoding erzeugen und dessen DataString dann an die Datei anhängen?