Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.623 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: Fehlermeldung für TFileStream ändern

  Alt 3. Sep 2008, 11:32
Hallo Sascha,

versuche es mal so:

Delphi-Quellcode:
if FExclusiveStream <> nil then
  FreeAndNil(FExclusiveStream);
  try
   FExclusiveStream:= TFileStream.Create(FileListbox1.FileName, fmShareExclusive);
  except
    on exception do
       Showmessage('Datei wird von einem anderen Benutzer bearbeitet');
  end;
  FExclusiveStream.Read(row, SizeOf(Word));
  FExclusiveStream.Read(col, SizeOf(Word));
Wenn Du die Exception noch besser spezifizieren kannst:

Delphi-Quellcode:
if FExclusiveStream <> nil then
  FreeAndNil(FExclusiveStream);
  try
   FExclusiveStream:= TFileStream.Create(FileListbox1.FileName, fmShareExclusive);
  except
    on E: .... do
       Showmessage('Datei wird von einem anderen Benutzer bearbeitet');
  end;
  FExclusiveStream.Read(row, SizeOf(Word));
  FExclusiveStream.Read(col, SizeOf(Word));
Grüße
Klaus

[edit] Rechtschreibung verbessert
Klaus
  Mit Zitat antworten Zitat