[Delphi]Schrijven naar nieuwe tekstfile mislukt

[Oscar Mopperkont]

Ik ben nog steeds een newbie....

Ik maak een tekstfile aan en daarin wil ik tekst schrijven, maar dan krijg ik een I/O error 105. Ik weet dus niet wat ik fout doe.

Het is de volgende procedure

Delphi:

procedure TfrMain.OuputNaarFile(ZA:ZoneArray);
var
  i : integer;
  F : TextFile;
begin
  if SaveDialog1.Execute then
    begin
      AssignFile(F,SaveDialog1.FileName + '.txt');
      ReWrite(F); 
      Reset(F); 
      Write(F, 'dus');
    end;

  CloseFile(F);

Het zal wel iets stoms zijn, maar ik kan het niet achterhalen.

[ Voor 13% gewijzigd door Oscar Mopperkont op 12-05-2003 10:29 ]

[Creepy]

Rewrite maakt de file leeg, zet de filepointer aan het begin, en opent de file om te schrijven. Daarna gebruik je Reset. Reset doet hetzelfde als rewrite, alleen word de file dan geopend om te lezen, en kan je dus moet meer schrijven. Dus als je de reset(F) weg haalt zou het gewoon moeten werken

[Oscar Mopperkont]

Creepy schreef op 12 mei 2003 @ 10:41:
Rewrite maakt de file leeg, zet de filepointer aan het begin, en opent de file om te schrijven. Daarna gebruik je Reset. Reset doet hetzelfde als rewrite, alleen word de file dan geopend om te lezen, en kan je dus moet meer schrijven. Dus als je de reset(F) weg haalt zou het gewoon moeten werken

THNX!!!

Het is inderdaad een stomme fout , maar als newbie weet ik dit soort dingen nog niet. Ik wist dat reset de cursor aan het begin zette, maar dat ie meer deed wist ik niet. Ik wist niet zeker of rewriite altijd de cursor aan begin zou zetten vandaar dat ik voor zekerheid reset gebruikte.

Maar het wrekt nu in ieder geval. En ook nog bedankt voor de uitleg.

[CyeZ]

Voor textfiles is er overigens ook nog een 'Append' functie, die opent net als Rewrite de file ook om te schrijven, maar plaatst de cursor aan het einde van het bestand zonder het bestand eerst leeg te maken.