try / except, problem....

[mmfembr]

guten morgen alle zusammen

ich habe folgendes problem:
ich habe keine ahnung wie man einen fehler abfangen kann mithilfe der funktionen try/except. kann mir da vielleicht mal jemand behilflich sein und mir das in den code einpflanzen? hier mein code und die fehlermeldung (im anhang) welche dabei entsteht:

Delphi-Quellcode:

procedure THauptformular.sbtnKonvertierenClick(Sender: TObject);
var
  hexarray            : array[0..7] of String;
  ihexzaehler         : integer;


begin
//Schreiben der Arraydaten in ein Textfile
  Assignfile(Tfile,'C:\Dokumente und Einstellungen\mmfembr\Desktop\test.txt');
  Rewrite(Tfile);
  try
    ihexzaehler := StrtoInt('X' + edit1.Text);
  except
    on EConvertError do showmessage('Bitte korrekten Hexwert angeben!');
  end;
    For y := 0 to 7 do
      begin
        ihexzaehler := ihexzaehler + $1;
        Writeln(Tfile, inttohex(ihexzaehler,4) + ':' + hexarray[y]);
      end;
    CloseFile(Tfile);

end;

end.

besten dank schon im vorraus

mmfembr

[Luckie]

Äh, warum hast du den Screenshot erst noch in ein Word-Dokument verpackt? Und was ist das Problem?

[Kroko1999]

(a)ihexzaehler := StrtoInt('X' + edit1.Text); sollte doch sicherlich
ihexzaehler := StrtoInt('$' + edit1.Text); heißen (//EDIT: da kommt immer eine Exception)
(b)
ihexzaehler := ihexzaehler + $1; geht besser mit
Inc (ihexzaehler); (c) Hexarray wird doch gar nicht beschrieben, aber in WriteLn () gelesen
(d) hast Du unter Tools-> Debugger-Optionen...->SprachExceptions die Option "Bei Delphi-Exceptions" abgeschaltet

[mmfembr]

ich bekomme wenn ich das ganze ausführe einen fehler wenn ich in das edit feld einen anderen buchstaben, welcher nicht dem hexadezimalen format entspricht, einfüge. die exception welche die software ausgibt weisst darauf hin, dass ich einen ungültigen hexwert genommen habe. anschliessend habe ich versucht mir eine fehlerabfang methode zu konstruieren (try / except) welche jedoch nicht funktioniert, warum weiss ich auch nicht, daher meine frage ob mir jemand diese richtig einbauen kann.

gruss mmfembr

ps. der hexarray wird schon beschrieben nur weiter oben....

[chrisw]

Die Exception wird ausgelöst und, solange Du den Code in der IDE ausführst, von der IDE abgefangen und von Debugger ausgegeben.
Führst Du diesen Code nun als Kompilat aus (exe Datei) wird Dein Fehler richtig ausgegeben.

Den selben Effekt kannst Du erreichen, wenn Du in der IDE die Delphi Exceptions abschaltest (wie Kroko1999 unter Punkt d bereits erwähnt hat)

[mmfembr]

ach so, jetzt hatte ich aber eine lange leitung!

besten dank für eure antwort!

gruss mmfembr

[marabu]

Guten Morgen.

Mit deinem Code machst du es besser so:

Delphi-Quellcode:

procedure THauptformular.sbtnKonvertierenClick(Sender: TObject);
var
  hexArray: Array [0..7] of String;
  iHexZaehler: Integer;
  // ...
begin
  // ...

  // Schreiben der Arraydaten in ein Textfile
  AssignFile(Tfile, 'C:\Dokumente und Einstellungen\mmfembr\Desktop\test.txt');
  Rewrite(Tfile);
  try
    iHexZaehler := StrtoInt('X' + Edit1.Text);
    for y := 0 to 7 do
    begin
      iHexZaehler := iHexZaehler + $1;
      Writeln(Tfile, inttohex(ihexzaehler,4) + ':' + hexarray[y]);
    end;
  except
    on EConvertError do 
      ShowMessage('Bitte korrekten Hexwert angeben!');
  end;
  CloseFile(Tfile);
end;

Oder noch besser:

Delphi-Quellcode:

begin
  // Schreiben der Arraydaten in ein Textfile
  AssignFile(Tfile, 'C:\Dokumente und Einstellungen\mmfembr\Desktop\test.txt');
  Rewrite(Tfile);
  if TryStrToInt('X' + Edit1.Text, iHexZaehler) then
  begin
    for y := 0 to 7 do
    begin
      iHexZaehler := iHexZaehler + $1;
      Writeln(Tfile, inttohex(ihexzaehler,4) + ':' + hexarray[y]);
    end
  end else ShowMessage('Bitte korrekten Hexwert angeben!');
  CloseFile(Tfile);
end;

Grüße vom marabu

[Union]

Zitat:

ich bekomme wenn ich das ganze ausführe einen fehler wenn ich in das edit feld einen anderen buchstaben, welcher nicht dem hexadezimalen format entspricht, einfüge

Eine andere Möglichkeit ist natürlich defensives Programmieren. D.h. in diesem Fall, dass am besten schon die fehlerhafte Eingabe abgefangen werden sollte und nicht erst beim Schreiben von irgendwelchen Daten.