Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   TCESLogFile (https://www.delphipraxis.net/48707-tceslogfile.html)

JSB 29. Jun 2005 12:45


TCESLogFile
 
Ich möchte gerne so unkompliziert wie möglich, verschiedene Vorgäge in meinem Programm in einer Datei festhalten können. Deswegen glaube ich wäre die Kompi: TCESLogFile (glaub*) die betse Lösung. :?

Delphi-Quellcode:
logfile.LogFile := (datetimetostr(Date + Time));
logfile.Create(ERWARTTET_EINEN_TCOMPONENT-WERT!!!)
Aber wie erstelle ich so eine Datei ? :gruebel:
Kann ich es einstellten das jedesmal eine Neue erstellt wird? :gruebel:
DANK! :zwinker:

Treffnix 29. Jun 2005 13:14

Re: TCESLogFile
 
Ich hab von der Komponente noch nie gehört und deine Informationen dazu sind etwas spärlich. Was soll das Ding denn können? Wenn du ne simple Textdatei schreiben willst, in die du ab und an nen Event schreibst, könntest du das so ähnlich machen:

Delphi-Quellcode:
Procedure Log( msg: String );
Var F: Textfile;
    FileName: String;
Begin
  FileName := 'log.txt';
  AssignFile( F, FileName );
  If FileExists( FileName ) then
    Append( F )
  else
    Rewrite( F );
  WriteLn( F, DateTimeToStr( Now ) + ' ' + Msg );
  CloseFile( F );
End;
Vielleicht nochn Try drumherum, aber so ähnlich würds schon reichen.

JSB 29. Jun 2005 13:26

Re: TCESLogFile
 
:wiejetzt:

Delphi-Quellcode:
 If FileExists( FileName ) then
    Append( F )
  else
    Rewrite( F );
Was bewirkt das?

Append = String anhängen?
Rewrite = neue Textdatei?

Delphi-Quellcode:
 WriteLn( F, DateTimeToStr( Now ) + ' ' + Msg );
ist das :roll: nur Zur anzeige in der Konsole gedacht oder in Konsole und Datei?

*HILF*

Luckie 29. Jun 2005 13:34

Re: TCESLogFile
 
Schlag doch einfach mal die GFunktionen, die du nicht kennst in der Hilfe nach, dann wäre dein Posting überflüssig und du hättest viel schneller eine Anwort.

JSB 29. Jun 2005 13:44

Re: TCESLogFile
 
Hab ich sogar, aber unabhängig davon ist mir das zuviel Code für jedes mal wenn ich was Logen will. Deswegen wollte ich ja die Kompi verwenden. Kennt die keiner. Ich würde ja in der Hilfe nachschauen (wenn ich zu der Kompi eine hätte...)

Ideen? :cry: :wall:

nailor 29. Jun 2005 13:49

Re: TCESLogFile
 
Zitat:

Zitat von JSB
Hab ich sogar, aber unabhängig davon ist mir das zuviel Code für jedes mal wenn ich was Logen will. Deswegen wollte ich ja die Kompi verwenden. Kennt die keiner. Ich würde ja in der Hilfe nachschauen (wenn ich zu der Kompi eine hätte...)

Ideen? :cry: :wall:

du musst den code ja nur einmal einfügen, und dann die entsprechende funktion aufrufen. aber wenn dir selbst das zuviel code ist, dann ... dann kann ich dir auch nicht helfen.

Treffnix 29. Jun 2005 13:51

Re: TCESLogFile
 
Zitat:

Zitat von JSB
Hab ich sogar, aber unabhängig davon ist mir das zuviel Code für jedes mal wenn ich was Logen will. Deswegen wollte ich ja die Kompi verwenden. Kennt die keiner. Ich würde ja in der Hilfe nachschauen (wenn ich zu der Kompi eine hätte...)

Ideen? :cry: :wall:

Zuviel Code? Das Bsp. hat 13 Zeilen, die du im Grunde nur an einer Stelle brauchst ( müsstest nur noch den Dateinamen nach aussen legen ). Wo du wegschreiben willst rufst du nur
Delphi-Quellcode:
Log( 'Hier is watt passiert' );
auf.

Die Komponente hat höchstwahrscheinlich ein bissl mehr als das.

JSB 29. Jun 2005 14:53

Re: TCESLogFile
 
Mit der Kompi wäre es wahrscheinlich nur eine oder 2 Zeilen gewesen, aber egal. Dank!

Luckie 29. Jun 2005 16:59

Re: TCESLogFile
 
Und aus wie viel Zeilen besteht der Aufruf obiger Funktion? Du schreibst die Funktion einmal in dein Projekt, danach rufst du sie nur immer mit einer Zeile auf. Diese Lösung ist bestimmt um einiges schlanker, als die Lösung mit der Komponente.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz