Programm das in eine Datei schreibt...

[Noobgrammer]

Hallo!

Ich hab imo noch wenig Programmiererfahrungen in Delphi!
Bis jetzt hatte ich nur so kleine Programme in der Informatik AG der Schule geschrieben!
Jetzt möchte ich mich gerne aber ein bisschen weiterbilden und hab ein paar Fragen!

Von einem Kollegen(der mir ein paar Aufgaben geben hat, mit denen ich mich auseinander setzen soll) hab ich die Aufgabe
bekommen ein Programm zu schreiben, dass in eine Datei was reinschreibt und dann wenn es fertig ist,
das Reingeschriebene wieder löscht! Kann mir da jemand ein paar Tips geben?

Ich bedanke mich jetzt schon herzlichst!

[mkinzler]

Schau dir mal File/TextFile an.

[Luckie]

Also wenn dann würd eich auf AssgineFile oder TFileStream verweisen.

[alleinherrscher]

Um ne Textdatei zu schreiben:

Delphi-Quellcode:

var aFile:Textfile;

assignfile('C:\irgendeinPfad\irgendeineDatei.endung',aFile);
rewrite(aFile);
writeln('irgendeinStringDerInDeineTextDateiInEineZeileGeschriebenWerdenSoll');
//...
closefile(aFile);

Ums zu lesen ersetzt du rewrite durch reset(afile) und writeline durch readln(String,aFile)

[Noobgrammer]

Thanks for your help!
I dont have the time to test everything now!
But in the next 4 days I will test it!

EDIT:
Oh. Mist!
Ist mir grade aufgefallen, dass ich euch mit englischen Worten zugelabert hab....
Normalerweise bin ich nur in englischen Foren. Deswegen ist wohl die
Gewohnheit mit mir durchgegangen! Tut mir leid!

Noch einmal auf Deutsch:
Danke für eure Hilfe!
Ich habe nicht die Zeit im alles jetzt zu testen aber ich werds in den nächsten 4 Tagen tun!
Danke!

[Noobgrammer]

Zitat von alleinherrscher:

Um ne Textdatei zu schreiben:

Delphi-Quellcode:

var aFile:Textfile;

assignfile('C:\irgendeinPfad\irgendeineDatei.endung',aFile);
rewrite(aFile);
writeln('irgendeinStringDerInDeineTextDateiInEineZeileGeschriebenWerdenSoll');
//...
closefile(aFile);

Ums zu lesen ersetzt du rewrite durch reset(afile) und writeline durch readln(String,aFile)

Ok ich habs probiert auf deine Weise aber leider kam ein Fehler! (Unit.pas(27):Inkompatible Typen)
Mein Quelltext schaut aus wie folgt:

Delphi-Quellcode:

var
  Form1: TForm1;
  aFile: Textfile;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile('C:\test\test.txt',aFile);
rewrite(aFile);
writeln('Hallo das ist ein test');
closefile(aFile);
end;

end.

[Nuclear-Ping]

Du musst das umdrehen.

Delphi-Quellcode:

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  aFile: Textfile;
begin
  AssignFile(aFile, 'C:\test\test.txt');
  Rewrite(aFile);
  Writeln(aFile, 'Hallo das ist ein test');
  CloseFile(aFile);
end;

end.

[DeddyH]

Und zum Löschen des Inhalts (nicht der Datei selbst):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  aFile: Textfile;
begin
  AssignFile(aFile, 'C:\test\test.txt');
  Rewrite(aFile);
  CloseFile(aFile);
end;

[Noobgrammer]

Funktioniert alles soweit!
Vielen dank! Aber ich bin mir sicher ich werd nochmal kommen
und ne noobige Frage stellen!

Bis dann! Cheers!