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

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

[mkinzler]

Innerhalb der IDE?

[Klaus01]

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

[SaFu]

Ok Daknegeht mit der Fehlermeldung vom Klaus

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);


  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;
  except
    on exception do
       Showmessage('Datei wird von einem andrern Benutzer bearbeite');
  end;
end;

Hab es jetzt unten hingeschrieben und dann funktioniert es Danke

[DeddyH]

Klar, wenn Du trotz der Exception weitermachst...