Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Exception nach bestimmter Anzahl überspringen


Borg-Cube - Fr 02.07.21 10:36
Titel: Exception nach bestimmter Anzahl überspringen
Hallo

Ich verwende folgende Konstruktion um mir Daten an ein PHP-Skript zu senden:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
try
   HTTPSend.Post(baseurl, Strings);
   response := HTTPSend.ResponseText;
except
   on E: Exception do
   showmessage('Fehler beim Übermitteln der Daten. Fehlermeldung: ' + E.Message);
end;


Kann man es so einrichten, dass z.B. nach dem 3. Versuch der Fehler angezeigt wird, das Programm dann aber (halt ohne die Daten übermittelt zu haben) weiter geht? Oder müsste ich dazu die try-except-Konstrukion auf z.B. repeat umstellen?


icho2099 - Fr 02.07.21 16:17
den try/except block in ein repeat packen.
im except die Fehler zählen
im try success setzen


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
 
errorcont := 0;
success := false;

repeat

  try
    .....
    success := true;
  except
    .....
    inc(errorcount);
  end;

until success or (errorcount = 3);


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!