Fehler beim Speichern

[moperswings]

Hallo,

ich bekomme beim Abspeichern eine E/A103 Meldung, aber ich sehe den Fehler nicht!
Vielleicht sieht ja jemand das Problem!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
        f: Textfile;
        pfad: String;
begin
        pfad := Extractfilename(DirectoryListBox1.Directory);
        If not FileExists(DirectoryListBox1.Directory + '\' + pfad + '.html') then
        AssignFile(f, DirectoryListBox1.Directory + '\' + pfad + '.html') ;
        {$i-}
        Rewrite(f);
        {$i+}
        If IOResult <> 0 then
        begin
          ShowMessage('Fehler beim Erstellen von ' + pfad + '.html');
          Exit;
        end;

        Writeln(f, Memo1.Text);
        closefile(f);
end;

[DeddyH]

Da fehlt ein begin - end.

Delphi-Quellcode:

If not FileExists(DirectoryListBox1.Directory + '\' + pfad + '.html') then
  begin //hier
        AssignFile(f, DirectoryListBox1.Directory + '\' + pfad + '.html') ;
        {$i-}
        Rewrite(f);
        {$i+}
        If IOResult <> 0 then
        begin
          ShowMessage('Fehler beim Erstellen von ' + pfad + '.html');
          Exit;
        end;

        Writeln(f, Memo1.Text);
        closefile(f);
  end; //und hier

[Luckie]

Guck doch einfach in der Hoiklfe nach, was der Fehler bedeutet:

Zitat:

103 Datei nicht geöffnet Wird von CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead oder BlockWrite gemeldet, wenn die Datei nicht geöffnet ist.

Und dann untersuchst du mal deinen Code daraufhin.

[moperswings]

Vielen Dank DeddyH, ich hatte das end; auch schon gesetzt, aber nicht nach closefile sondern nach writeln.

@Luckie: Ich habe mir die Meldung angesehen, konnte aber keine Schlussfolgerungen auf diesen Fehler schliessen!

[DeddyH]

Was ist eine Hoiklfe? :zwinker:

[s-off]

Zitat:

Zitat von DeddyH

Was ist eine Hoiklfe? :zwinker:

[OT]
Vielleicht wollte er ursprünglich etwas schreiben wie: 'Frag doch mal Hoika' :stupid:
[/OT]

[DeddyH]

[OT]Das könnte natürlich sein :lol: [/OT]
Nun aber genug OT.