Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Datei beim Programmstart erstellen lassen (https://www.delphipraxis.net/35511-datei-beim-programmstart-erstellen-lassen.html)

jim_raynor 10. Dez 2004 12:31

Re: Datei beim Programmstart erstellen lassen
 
Ohne Quellcode und Fehlermeldung wird es schwer dir zu helfen. Wichtig ist, dass die Datei auch geöffnet wurde und nicht mehrfach geöffnet wird.

Wolverine 10. Dez 2004 12:37

Re: Datei beim Programmstart erstellen lassen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hi jim_raynor.
Code ist da wie man sieht :wink: und die Fehlermeldung gibt es als Bild im Anhang

jim_raynor 10. Dez 2004 12:50

Re: Datei beim Programmstart erstellen lassen
 
Zitat:

Zitat von Wolverine
Hi jim_raynor.
Code ist da wie man sieht :wink:

Das ist ja Betrug ;) Nachträglich bearbeitet ! Du Bösewicht.

Also. Ich würde für dein ganzes Problem eine Stringliste nutzen (macht die Sache wesentlich einfacher.

Du machst dir ne Variable TStringList (genau wie jetzt dein F).

In OnCreate erstellst du die dann
Delphi-Quellcode:
List:=TStringList.Create;
und mit
Delphi-Quellcode:
if FileExists('Daten.txt') then
  List.LoadFromFile('Daten.txt')
else
  List.Add(Ueberschrift);
kannst du dann die Datei laden.

Bei deinem ButtonClick musst du dann nur List.Add(xxx) machen und bei OnDestroy könntest du dann mit List.SaveToFile('Daten.txt') die Datei wieder abspeichern.

Zu deinem Code:
Leider nutze ich diese Funktionen (AssignFile, Reset und so) nicht selber. Deshalb kann ich nur raten. ich denke mal du solltest bei OnCreate das CloseFile machen und anschliessend mit Append (Datensätze hinzufügen) öffnen. Bei ButtonClick machst dann nur noch WriteLn ohne CloseFile und Rewrite.

Aber ich würde dir die Variante mit der StringListe empfehlen. Weiss garnicht warum das noch niemand gemacht hat.

Wolverine 10. Dez 2004 13:50

Re: Datei beim Programmstart erstellen lassen
 
Das ist kein Betrug, ich habe ja gesagt das der Code noch kommt ^^
Zitat:

Zitat von Ich
... Ich werde auch noch etwas Code uppen um euch die Suche zu erleichtern. ...

Aber das mit einer StringList zu machen ist auch ´ne Idee.
Nur da gibt es ein Problem, ich habe das zwar schon gehört habe abe keinen Plan was dat ist :gruebel:

Daher ist das ja ne super Gelegenheit sich mal mit StringListen zu befassen :wink:


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:17 Uhr.
Seite 2 von 2     12   

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