AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Fehlermeldung für TFileStream ändern

Ein Thema von SaFu · begonnen am 3. Sep 2008 · letzter Beitrag vom 3. Sep 2008
Antwort Antwort
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#1

Fehlermeldung für TFileStream ändern

  Alt 3. Sep 2008, 11:27
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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Fehlermeldung für TFileStream ändern

  Alt 3. Sep 2008, 11:30
Innerhalb der IDE?
Markus Kinzler
  Mit Zitat antworten Zitat
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
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#4

Re: Fehlermeldung für TFileStream ändern

  Alt 3. Sep 2008, 11:40
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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.286 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Fehlermeldung für TFileStream ändern

  Alt 3. Sep 2008, 11:44
Klar, wenn Du trotz der Exception weitermachst...
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf