Fehlermeldung für TFileStream ändern

**SaFu**

Gutem Morgen

Hatte ja gestern ein Problem wegen dem Exclusiven öffenen einer Datei.

Das funktioniert soweit sehr gut nur wollte ich die Fehlermeldung die mir die Funktion bringt ändern.

Es kommt ja sowas wie: Die Datei C:\\Benutzer\Ordner\Ordner\Ordner\Test.txt wird von einem anderen Prozess bla bla bla

Ich würde gerne eine kürzere Meldung bringen mit Showmessage, hab es schon mit try except versucht aber irgendwie will das net so

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm7.GridLaden;

var x, y, row, col,len :Word;

    buff :string;

begin

 if FExclusiveStream <> nil then

  FreeAndNil(FExclusiveStream);

  try

   FExclusiveStream:= TFileStream.Create(FileListbox1.FileName, fmShareExclusive);

  except

   Showmessage('Datei wird von einem andrern Benutzer bearbeite');

  end;

  FExclusiveStream.Read(row, SizeOf(Word));

  FExclusiveStream.Read(col, SizeOf(Word));

  for x:= 0 to row do

   for y:= 0 to col do

    begin

     FExclusiveStream.Read(len, SizeOf(Word));

     SetLength(buff, len);

     FExclusiveStream.Read(buff[1], len);

     StringGrid1.Cells[y,x]:= buff;

    end;

end;

Was mach ich da jetzt fals oder wie kann ich die Meldung abfangen.

Wenn ich es so wie oben mache bekomm ich einen Fehler nach dem die Meldung abgefangen wurde

Fehlermeldung für TFileStream ändern

Fehlermeldung für TFileStream ändern

Forumregeln