if not fileexists datei erstellen

Beiträge: 287 XP SP2 Delphi 7

es sollen text dateien erstellt werden aber wie geht das?

Delphi-Quelltext

1:
2:

if not fileexists('FIRSTLOADVOK.txt') then ??('FIRSTLOADVOK.txt');
if not fileexists('FIRSTLOADVOKÜ.txt') then ??('FIRSTLOADVOKÜ.txt');

Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Do 20.12.2007 um 11:49

Regan · Verfasst: Do 20.12.07 12:54

Wie wärs mit ner Stringlist:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
 my:TStringlist;
begin
my:=TStringList.Create;
  try
    my.Clear;
    my.SaveToFile({hier den Pfad});
  finally
    my.Free;
  end;
end;

Ehemaliges Mitglied Erhaltene Danke: 1

Entweder so oder auch mit TFileStream. Uahlreiche Beispiele hier im Forum oder auch auf www.swissdelphicenter.ch

alzaimar · Verfasst: Do 20.12.07 13:01

Wozu willst Du denn eine Datei erstellen? Möchtest Du etwas in die Datei schreiben? Wenn ja, wird die Datei bei geeigneter Vorbereitung automatisch erzeugt.

Wie willst du denn die Daten in die Datei schreiben?

_________________
Na denn, dann. Bis dann, denn.

Mitmischer 1703 · Verfasst: Do 20.12.07 13:37

Mit

CREATEFILE!

Wenn du aber

markieren

Delphi-Quelltext

1:	Memo1.SaveToFile

ausführst, wird die Datei bei Nichtvorhandensein automatisch erstellt!

_________________
Die Lösung ist nicht siebzehn.

jaenicke · Verfasst: Do 20.12.07 15:16

110022 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

if not fileexists('FIRSTLOADVOK.txt') then ??('FIRSTLOADVOK.txt');
if not fileexists('FIRSTLOADVOKÜ.txt') then ??('FIRSTLOADVOKÜ.txt');

Und einen Fehler hast du auch drin. Du gibst keinen Pfad an...
So wird das aktuelle Arbeitsverzeichnis benutzt, das sich während der Programmlaufzeit auch ändern kann. Das ist aber weder immer das Verzeichnis, in dem sich dein Programm befindet (aber da speichert man ja eh normalerweise nix), noch das Anwendungsdatenverzeichnis (wo Daten deines Programmes hingehören).

Es ist meistens das Anwendungsverzeichnis, so dass sowas gutgehen kann, es muss aber nicht immer so klappen. Wenn du das Programm nur selbst benutzen willst und niemandem weitergeben willst, dann ist das natürlich egal, weil es dann ja auf anderen Rechnern auch gar nicht funktionieren muss.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme