Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
23. Dez 2008
procedure TForm1.Button1Click(Sender: TObject);
const sDateiname = 'C:\Test.txt'; //nur zum Testen
var F: TextFile;
begin
AssignFile(F,sDateiname);
{$I-}
if FileExists(sDateiname) then
Append(F)
else
Rewrite(F);
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
22. Dez 2008
Dann fallen mir spontan 2 Möglichkeiten ein: eine Stringlist erzeugen, alten Inhalt hineinladen und mit Addstrings anfügen oder Datei nicht mit Rewrite, sondern ggf. mit Append öffnen.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
22. Dez 2008
SHGetFolderPath mit CSIDL_APPDATA ist in meinen Augen nicht soooo kompliziert ;)
Deshalb meinte ich ja, da fehlt ein CloseFile. Wobei man sich wirklich fragt, wozu die Datei vorher angelegt wird :gruebel:
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
22. Dez 2008
Ich hab kein Vista, aber das User-Verzeichnis zu ermitteln dürfte nicht schwerer sein als unter XP (es sei denn, da ist etwas an mir vorbeigegangen).
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
22. Dez 2008
Ja, kann ich. Wenn Du unter XP/Vista als Nicht-Admin unterwegs bist, hast Du schlicht keine Rechte dazu.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
22. Dez 2008
Zum Einen sollte man im eigenen Programmverzeichnis bzw. Unterordnern davon nicht schreiben, zum Anderen fehlt da irgendwie ein CloseFile.