Fehlerbehandlung

lord.paddington · Beiträge: 76

Hallo!

Wenn im unten genannten Code kein Integer zu finden ist, dann soll die Zeile mit einer Fehlermeldung ignoriert werden. Das Programm soll aber nicht aussteigen!

Wie würde die Fehlerbehandlung hier aussehen?

markieren

Delphi-Quelltext

1:
2:

PxMin[j]:= StrToInt(Copy(S,1,Pos(';',S)-1)); // alles von S[1] bis S[;]-1 kopieren
      Delete(S,1,Pos(';',S)); // Jetzt alles von S[1] bis S[;] löchen

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

_________________
pfutsch ist hin und hin ist pfutsch

maxk · Verfasst: So 10.07.05 09:35

markieren

Delphi-Quelltext

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

try
 PxMin[j]:= StrToInt(Copy(S,1,Pos(';',S)-1)); // alles von S[1] bis S[;]-1 kopieren  
 Delete(S,1,Pos(';',S)); // Jetzt alles von S[1] bis S[;] löchen
except
 ShowMessage('Ging schief!');
end;
ShowMessage('Es geht weiter!');

Wenn ein Fehler auftritt, springt er in den except-Block und macht dann darunter weiter. Wenn alles glatt geht, macht er alles, außer dem except-Block.

Gruß,
maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme