try / except, problem....

[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