String to StreamProblem!

[Berlinermauer]

hi, er will nichts schreiben ...

Delphi-Quellcode:

var
  Form1: TForm1;
  Logfile: String;
  Dateandtime: String;

Delphi-Quellcode:

    if FileExists('./logs') then begin // Wenn es den Ordner "logs" gibt, dann ...
      // ---START LOGFILE WRITING CHECK ---
    Dateandtime := DateTimeToStr(Now);
    rewrite(Logfile,Dateandtime + '.log.txt');
      // -- END LOGFILE WRITING CHECK ---
  end
  else
  // Mache einen Ordner

das mit dem Mache ein Ordner ist noch nicht drin hab noch nicht gegoogelt, kommt aber wenn das schreiben gehen würde.

[Bernhard Geyer]

AFAIK sollte man DirExists nehmen statt FileExists wenn man auf das vorhandensein eines Verzeichnisses testen will.

[DeddyH]

Oha, eigne Dir zuerst ein paar Grundlagen an. Statt FileExists musst Du DirectoryExists nehmen und zu Rewrite solltest Du mal in die Hilfe schauen (AssignFile,Rewrite,CloseFile).

[Berlinermauer]

Also :

Das mit File Exsist stand auf "Torrys Delphi Pages" (Google) und das ist afaik Borland ! naja

@ assignfile : Es ist schon lange her das ich sowas gemacht habe, aber wenn ich das mache gehts nicht:

assignfile (lol,'lol.txt) geht aber meins nicht !

[mkinzler]

assignfile (lol,'lol.txt'); Welchen Typ hat lol?

[Bernhard Geyer]

Zitat von Berlinermauer:

Das mit File Exsist stand auf "Torrys Delphi Pages" (Google) und das ist afaik Borland ! naja

Falsch! Torry wird (vermutlich) von Borland gespiegelt. Die "Hauptseite" ist http://www.torry.net/
Und glaubst du das auf solchen Webseites jede Quellcodezeile kontrolliert wird?

[DeddyH]

Mal ein Beispiel (die Zeitformatierung kannst Du ja anpassen):

Delphi-Quellcode:

var Log: textfile;
    s: string;
begin
  if DirectoryExists(ExtractFilePath(ParamStr(0)) + 'logs') then
    begin
      s := ExtractFilePath(ParamStr(0)) + 'logs\' + FormatDateTime('yyyymmddhhnnss',Now) + '.log.txt';
      AssignFile(Log,s);
      rewrite(Log);
      writeln(Log,'Test');
      CloseFile(Log);
    end;
end;

[Klaus01]

.. und was hat der Threadtitel mit Deinem Problem zu tun?
Vielleicht solltest Du den mal anpassen.

Grüße
Klaus

[Chemiker]

Hallo Berlinermauer,

ich möchte nur darauf hinweisen das Du kein Stream Problem hast, sondern ein Text – File Problem.

Es sollten noch die Compiler – Schalter in dem Beispiel von DeddyH eingefügt werden und den Fehler – Code abgefragt werden.

Delphi-Quellcode:

 AssignFile (Log, s);
  {$I-}
  Rewrite (Log);
  {$I+}
  If IOResult = 0 then

Oh, da war einer Schneller.

Bis bald Chemiker

[DeddyH]

@chemiker: Einen kleinen Blick in die Hilfe kann man schon erwarten, oder?