Fehlermeldung erstellen?!?

**ScullCollector**

HI!

so wir haben ein fertiges Tool das nacheinander zwei *.exe´n startet, so das läuft auch soweit schon. Nun wollen wir aber noch folgendes einbauen: Wenn es eine oder beide Dateien nicht gibt, dann soll eine Fehlermeldung alâ "Datei nicht gefunden" oder so kommmen. Und alle darauf folgenden Operationen abbrechen bzw. stoppen. Wie mache ich das am besten und vorallem welche befehle brauche ich dafür?

thx!

greetz
ScullCollector

**sakura**

am besten wie folgt:

markieren

Delphi-Quellcode:

			if not FileExists(Datei1) then

  raise Exception.CreateFmt('Datei %s nicht gefunden', [Datei1]);

--- Datei1 starten ---

if not FileExists(Datei2) then

  raise Exception.CreateFmt('Datei %s nicht gefunden', [Datei2]);

--- Datei2 starten ---

**sakura**

Noch schnell eine Erklärung:

FileExists überprüft, ob eine Datei existiert. Ergebnis True wenn ja, ansonsten False

raise Exception.CreateFmt hält die Ausführung an der Stelle an und gibt eine formatierte Nachricht (Siehe Hilfe for Format) aus. Nachfolgende Befehle werden nicht ausgeführt.

**ScullCollector**

Wow!

Das ging ja echt flott,big THX!

**Luckie**

Es reicht aber schon ein: RaiseLastOSError, das produziert automatisch die richtige Fehlermeldung.

**Christian Seehase**

Moin ScullCollector,

ich hab' den Thread mal nach "Sonstiges" verschoben.

Es ging ja schliesslich um eine Frage zu Delphi, die sich anderweitig nicht unterbringen liess

**ScullCollector**

Hi Sakura
dein quelltext arbeitet sehr gründlich!

Er sagt die ganze zeit, dass es die *.exe nicht gibt, obwohl sie vorhanden ist. Ich starte die exen mit 'Shellexecute' kann das das problem sein???

Wir sitzen hier echt im trockenen!

**Christian Seehase**

Moin ScullCollector,

kann es daran liegen, dass die zu startenden Programme im Suchpfad liegen, also ohne genaue Pfadangabe von Windows gestartet werden können?

FileExists erfordert den genauen Pfad.

**ScullCollector**

Ohh, ein echt dummer Fehler!

Das Programm läuft jetzt genau so, wie ich mir das vorgestellt hab.

Schänks tu oll!

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#2 29. Dez 2002, 00:20 am besten wie folgt: markieren Delphi-Quellcode: if not FileExists(Datei1) then raise Exception.CreateFmt('Datei %s nicht gefunden', [Datei1]); --- Datei1 starten --- if not FileExists(Datei2) then raise Exception.CreateFmt('Datei %s nicht gefunden', [Datei2]); --- Datei2 starten --- Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#3 29. Dez 2002, 00:23 Noch schnell eine Erklärung: FileExists überprüft, ob eine Datei existiert. Ergebnis True wenn ja, ansonsten False raise Exception.CreateFmt hält die Ausführung an der Stelle an und gibt eine formatierte Nachricht (Siehe Hilfe for Format) aus. Nachfolgende Befehle werden nicht ausgeführt. Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat

ScullCollector Registriert seit: 29. Dez 2002 Ort: Wuppertal, NRW, Deutschland, 11 Beiträge Delphi 7 Enterprise	#4 29. Dez 2002, 00:41 Wow! Das ging ja echt flott,big THX!
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#5 29. Dez 2002, 04:42 Es reicht aber schon ein: RaiseLastOSError, das produziert automatisch die richtige Fehlermeldung. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.116 Beiträge Delphi 11 Alexandria	#6 29. Dez 2002, 05:37 Moin ScullCollector, ich hab' den Thread mal nach "Sonstiges" verschoben. Es ging ja schliesslich um eine Frage zu Delphi, die sich anderweitig nicht unterbringen liess Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

ScullCollector Registriert seit: 29. Dez 2002 Ort: Wuppertal, NRW, Deutschland, 11 Beiträge Delphi 7 Enterprise	#7 29. Dez 2002, 13:40 Hi Sakura dein quelltext arbeitet sehr gründlich! Er sagt die ganze zeit, dass es die *.exe nicht gibt, obwohl sie vorhanden ist. Ich starte die exen mit 'Shellexecute' kann das das problem sein??? Wir sitzen hier echt im trockenen!
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.116 Beiträge Delphi 11 Alexandria	#8 29. Dez 2002, 16:11 Moin ScullCollector, kann es daran liegen, dass die zu startenden Programme im Suchpfad liegen, also ohne genaue Pfadangabe von Windows gestartet werden können? FileExists erfordert den genauen Pfad. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

ScullCollector Registriert seit: 29. Dez 2002 Ort: Wuppertal, NRW, Deutschland, 11 Beiträge Delphi 7 Enterprise	#9 29. Dez 2002, 21:37 Ohh, ein echt dummer Fehler! Das Programm läuft jetzt genau so, wie ich mir das vorgestellt hab. Schänks tu oll!
	Zitat

Fehlermeldung erstellen?!?

Fehlermeldung erstellen?!?

Forumregeln