Thema: Delphi Dateien und Exceptions

Einzelnen Beitrag anzeigen

Dannyboy

Registriert seit: 4. Aug 2003
Ort: Delphi-Heaven
418 Beiträge
 
Delphi 7 Personal
 
#4

Re: Dateien und Exceptions

  Alt 26. Mär 2004, 12:44
Hallo SiouX,
sieh Dir mal in der Delphi-Hilfe TFileStream an oder gleich hier, ist viel einfacher und moderner als das Dateihandling unter Pascal.
Yo, ansonsten machst Du das schon ganz gut, bis auf eine Kleinigkeit:
Delphi-Quellcode:
procedure DateiEinlesen(Pfad: String; var Datensatz: String);
begin
   AssignFile(Datei,Pfad);
   try
       Reset(Datei);
       read(Datei, Datensatz);
      except
       showmessage('fehler beim lesen');
      end;
   // anderer Fehler möglich, ergo anderer TryBlock
   try
      closeFile(Datei);
except
      showmessage('Kann Datei nicht öffnen');
   end;
end;
Greetz DANNYBOY
How much wood would a wood-chuck chuck if a wood-chuck would chuck wood?
Check this out.
DANNYBOY
  Mit Zitat antworten Zitat