Einzelnen Beitrag anzeigen

schöni

Registriert seit: 23. Jan 2005
Ort: Dresden
445 Beiträge
 
Delphi 7 Personal
 
#1

Re: IOResult funktioniert nicht korrekt

  Alt 10. Feb 2005, 16:19
Hallo wespi!

Hab grad bissl gestöbert und Deinen Beitrag gefunden und ein kleines Testprogramm geschrieben.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var F: file; IoError: Integer;
begin
{$I-}
  System.AssignFile(F, '?invalid?');
  System.Reset(F);
  IoError := System.IOResult;
{$I+}
  ShowMessage('Fehlernummer: ' + IntToStr(IoError));
end;
In Delphi: Meuü: Datei->Neu->Anewndung (Delphi3 -> Datei->Neue Anwendung)

DoppelClick auf Form1 -> FormCreate-Methode wird erzeugt. Dort schreibst Du obigen Text rein. Nicht vergessen: var F: File; IOERror: Integer; Sonst beschwert sich der Compiler.

Viel Erfolg

schöni
Damit der Topf nicht explodiert, lässt man es ab und zu mal zischen.
  Mit Zitat antworten Zitat