Fehlermeldung Filtern? Aufjeden fall andere Nachricht!

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

Schönen guten, will euch auch nicht viel aufhalten, nur habe ich mal geschafft eine Fehlermeldung zu Filtern das sa so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  var
  ErrorCode: Integer;
begin
  case Errorcode of
    10061:
    begin
     Showmessage('Ungültige Eingabe!!');
    end
    else begin end;
  end;
Errorcode:=0;

Nun im neuem Programm bekomme ich immer:

Zitat:

---------------------------
Morp Kundendaten
---------------------------
Table1: Das Feld 'Nach' wurde nicht gefunden.
---------------------------
OK
---------------------------

und:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

---------------------------
Morp - Kundendaten
---------------------------
Operation nicht anwendbar.
---------------------------
OK   
---------------------------

Das muss ich doch auch Filtern können oder sehe ich das wieder falsch?

mfg und danke wolle

_________________
Don`t eat yellow snow

!!

GTA-Place · Verfasst: Di 10.05.05 16:36

Wieso nimmst du nicht try und except / finally?

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

Hmm bestimmt weil ich das noch nie gehört habe =D

)?

_________________
Don`t eat yellow snow

!!

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

Das funktioniert nicht

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

on was?
begin
try
"Table1: Das Feld 'Nach' wurde nicht gefunden."
exept
"Es ist leider ein Fehler aufgetreten";
end;

_________________
Don`t eat yellow snow

!!

F34r0fTh3D4rk · Verfasst: Sa 14.05.05 13:34

was soll DAS denn darstellen ?

Zeig mal die Procedure wo du den Fehler abfangen willst :!:

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
try
"Table1: Das Feld 'Nach' wurde nicht gefunden."
exept
"Es ist leider ein Fehler aufgetreten";
end;



end.

_________________
Don`t eat yellow snow

!!

F34r0fTh3D4rk · Verfasst: Sa 14.05.05 13:52

wobei entsteht der fehler, was führst du aus, damit es zu einem fehler kommt, wo willst du das try .. except ansetzen um den Fehler zu umgehen, das was du gerade geschrieben hast, war ja wohl völliger blödsinn :lol:

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

Also ich habe diese Paradox 7 Datenbank und wenn ich nun den Filter anmache der nach ,,Nach" sucht, kommt dieser Fehler weil diese Datenbank nicht vorhanden ist, deswegen dachte ich das muss darein

_________________
Don`t eat yellow snow

!!

F34r0fTh3D4rk · Verfasst: Sa 14.05.05 13:59

ja aber doch net so

hm naja da sieht das problem ja auch schon etwas anders aus, weil du selbst das problem ja nur indirekt hervorrufst sondern eher die interne prozedur selbst, sollte aber machbar sein, aber keine Ahnung wie :lol:

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

damn >.< gibts vielleicht jemanden der sowas weiss?
Danke
mfg wolle :lol:

_________________
Don`t eat yellow snow

!!

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

Hi,

du weißt schon, daß deine syntax für try except vollkommen falsch ist?

so ist es richtig

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

...
  try
    //der code der eventuell fehler erzeugt
  except
    MessageDlg('Es ist ein Fehler in ... aufgetreten.', mtWarning, [mbok], 0);
  end;
...

und zwischen try und except schreibst du dein filtered := true;

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
     try
    table1.filtered := true;
  Table1: Das Feld 'ComboBox1' wurde nicht gefunden.
 //der code der eventuell fehler erzeugt
  except
    MessageDlg('Es ist ein Fehler in ... aufgetreten.', mtWarning, [mbok], 0);
  end;
    end;

Ja das mit dem der code der eventuell fehler erzeugt, wie zeige ich den?

_________________
Don`t eat yellow snow

!!

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Zitat:

Table1: Das Feld 'ComboBox1' wurde nicht gefunden.

Das geht doch gar nicht compilimieren, oder?

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

Hi,

zeig doch mal genau die stelle, an der du filtered := true setzt?

Ansonsten machst du das folgendermaßen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

try
  table1.filtered := true;
except
  on e:Exception do begin
    MessageDlg('Es ist ein fehler beim filtern aufgetreten.'#13#10 +
      'Folgende Fehlermeldung wurde ausgelöst:'#13#10 +
      e.Message, mtWarning, [mbOk], 0);
  end;
end;

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

Ist das in der Prozedure wo ich das habe überhaupt richtig? oder wo finde ich die Fehlermeldungen?

Danke ich probiere mal

Zitat:

---------------------------
Kundendarten
---------------------------
Table1: Das Feld 'ComboBox1' wurde nicht gefunden.
---------------------------
OK
---------------------------

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
var
lol : String;
begin
lol := Combobox1.text;
table1.Filtered := FALSE;
table1.Filter := lol + ' = ' + QuotedStr(Edit1.Text);
table1.Filtered := TRUE;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Filtered := False;
end;

procedure TForm1.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
try
  table1.filtered := true;
except
  on e:Exception do begin
    MessageDlg('Es ist ein fehler beim filtern aufgetreten.'#13#10 +
      'Folgende Fehlermeldung wurde ausgelöst:'#13#10 +
      e.Message, mtWarning, [mbOk], 0);
  end;
end;
end;
end.

so da haste das mal alles

_________________
Don`t eat yellow snow

!!

GTA-Place · Verfasst: So 15.05.05 12:23

Was machst denn du eigentlich??

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);  
var  
  lol: String;  
begin  
  lol := Combobox1.text;

  try
    table1.Filtered := FALSE;  
    table1.Filter := lol + ' = ' + QuotedStr(Edit1.Text);  
    table1.Filtered := TRUE;
  except
    ShowMessage('Es ist ein Fehler aufgetreten!');  
end;

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

wolle- · Beiträge: 128 XP Prof, Suse 9.2 D7

Danke es Funktioniert

_________________
Don`t eat yellow snow

!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme