Autor Beitrag
BENO
Hält's aus hier
Beiträge: 7



BeitragVerfasst: Mo 05.11.07 14:56 
Hi;

Ich weiss, wie man eine textdatei öffnet, ausliest, und auch den file löscht, aber wie kann man den Inhalt einer textdatei löschen,der aus einer Zeile besteht.


Moderiert von user profile iconNarses: Topic aus Internet / Netzwerk verschoben am Mo 05.11.2007 um 15:14
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Mo 05.11.07 15:02 
Hi,

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
var TextFile: Text;
begin
  Assign(TextFile,'Blub.txt');
  Reswrite(TextFile);
  Close(TextFile
end;


bei dem assign musst du ein bisschen aufpassen, da delphi denkt, es wäre Form1.Assign. Also einfach in eine extra procedure rausziehen.

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
Alpha_Wolf
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 297

Ubuntu, Win XP, Win Vista
C#, Delphi 6 Prof, Delphi 2007 Prof, Java
BeitragVerfasst: Mo 05.11.07 15:02 
Indem du einen leeren String speicherst.. siehe String laden und speichern mit einer Textdate

Vielleicht nicht so sauber aber effektiv.

_________________
Diskutiere nie mit einem Irren - er zieht dich auf sein Niveau und schlägt dich mit seiner Erfahrung.
BENO Threadstarter
Hält's aus hier
Beiträge: 7



BeitragVerfasst: Mo 05.11.07 15:08 
user profile iconXion hat folgendes geschrieben:
Hi,

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
var TextFile: Text;
begin
  Assign(TextFile,'Blub.txt');
  Reswrite(TextFile);
  Close(TextFile
end;


bei dem assign musst du ein bisschen aufpassen, da delphi denkt, es wäre Form1.Assign. Also einfach in eine extra procedure rausziehen.


Ich will den Inhalt löschen und nicht den File.
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Mo 05.11.07 15:11 
Reswrite(TextFile); leert die Datei...wenn ich mich nicht völlig irre, denn da schreibt man hin, bevor man die Datei neu füllen will.

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
BENO Threadstarter
Hält's aus hier
Beiträge: 7



BeitragVerfasst: Mo 05.11.07 15:12 
user profile iconXion hat folgendes geschrieben:
Reswrite(TextFile); leert die Datei...wenn ich mich nicht völlig irre, denn da schreibt man hin, bevor man die Datei neu füllen will.


ok, ich werde das probieren, danke schön.
alzaimar
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2889
Erhaltene Danke: 13

W2000, XP
D6E, BDS2006A, DevExpress
BeitragVerfasst: Mo 05.11.07 16:05 
user profile iconXion hat folgendes geschrieben:
bei dem assign musst du ein bisschen aufpassen,

Einfach 'AssignFile' verwenden, denn 'Assign' ist veraltet.

_________________
Na denn, dann. Bis dann, denn.