Hex to Bin -> Falsche eingabe

[Marcel2906]

Ich habe mein code nochmals überarbeitet.
Nun bekomme ich die Fehlermeldung:

Zitat:

[DCC Fehler] HexToDez.dpr(46): E2034 Zu viele Parameter

zu folgendem abschnitt:

Code:

begin
 repeat
  erfolgreich := True;
  writeln('Bitte Hexadezimalzahl eingeben:');
  readln(h);
   if not length(h) >= 1 then
    erfolgreich := False;

   for i := 1 to Length(h) do
    begin
     if not (AnsiChar(h[i]) in ['0'..'9','A'..'F','a'..'f']) then
      begin
       Writeln('Fehlerhafte Eingabe!');
       erfolgreich := False;
       Break;
      end;
     end;
 until erfolgreich;
WandleHexInDez(h);         //<------hier
end;

[Sir Rufo]

Du solltest den Code ein wenig auftrennen, dann wird alles auch nicht so wuselig.

Hier mal eine Vorlage, wo du die Prüfung und Wandlung noch ausformulieren musst:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure Eingabe( var EingabeText : string );
begin

  if EingabeText <> ''
  then
    begin

      Writeln( 'Fehler: ' + EingabeText + ' ist keine Hexadezimalzahl!' );
      Writeln;

    end;

  Writeln( 'Bitte Hexadezimalzahl eingeben:' );
  ReadLn( EingabeText );

end;

function IstHexZahl( const EingabeText : string ) : Boolean;
begin

  // Hier muss noch der Code für die Prüfung rein

  Result := True;
end;

function HexZahlNachInteger( const HexZahl : string ) : Integer;
begin

  // Hier muss noch der Code für die Umwandlung rein

  Result := 0;
end;

procedure Ausgabe( const HexZahl : string; Zahl : Integer );
begin

  Writeln( 'Hex ' + HexZahl + ' ist dezimal ' + IntToStr( Zahl ) );

end;

var
  EingabeText : string;
  Zahl :        Integer;

begin
  try

    EingabeText := '';

    // Eingabe

    repeat

      Eingabe( EingabeText );

    until IstHexZahl( EingabeText ) or ( EingabeText = '' );

    if EingabeText <> ''
    then
      begin

        // Verarbeitung

        Zahl := HexZahlNachInteger( EingabeText );

        // Ausgabe

        Ausgabe( EingabeText, Zahl );

      end;

  except
    on E : Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

end.

[himitsu]

Zitat:

Zitat von ensaron (Beitrag 1117979)

Delphi-Quellcode:

if not (AnsiChar(eingabe[i]) in ['0'..'9','A'..'F','a'..'f']) then

Davon würde ich dir schnell mal abraten.

Delphi-Quellcode:

var S: String;

S := '4';
if AnsiChar(S[1]) in ['0'..'9'] then
  ShowMessage('jupp ^^');
S := #$1234;
if AnsiChar(S[1]) in ['0'..'9'] then
  ShowMessage('hä? o.O');


S := 'A';
if AnsiChar(S[1]) in ['A'] then
  ShowMessage('jupp ^^');
S := '굁';
if AnsiChar(S[1]) in ['A'] then
  ShowMessage('hä? o.O');
// aka
S := #$0041;
if AnsiChar(S[1]) in [#$41] then
  ShowMessage('jupp ^^');
S := #$AD41;
if AnsiChar(S[1]) in [#$41] then
  ShowMessage('hä? o.O');

Den Hinweis, den Delphi dir, bei Verwendung von IN, gibt, sollte man beachten. :angle2:
(es sei denn, man prüft auch noch, ob dieses Char sich wirklich in einem passenden "ANSI"-bereich befindet)


PS: entweder "erfolgreich" oder Break ... Beides ist hier etwas übertrieben/nutzlos.

[Luckie]

Bitte gebe deinem ersten Beitrag einen aussagekräftigen Titel.

[ensaron]

Zitat:

Zitat von himitsu (Beitrag 1118000)

Den Hinweis, den Delphi dir, bei Verwendung von IN, gibt, sollte man beachten. :angle2:
(es sei denn, man prüft auch noch, ob dieses Char sich wirklich in einem passenden "ANSI"-bereich befindet)

Hinweis? Da gabs bei mir keinen.
Was wäre denn die bessere Variante?

PS: Das Break ist natürlich nicht notwendig, aber ich finds schöner, die Überprüfung der Eingabe abzubrechen, nachdem das erste ungültige Zeichen entdeckt wurde.

[himitsu]

Zitat:

Zitat von ensaron (Beitrag 1118013)

PS: Das Break ist natürlich nicht notwendig, aber ich finds schöner, die Überprüfung der Eingabe abzubrechen, nachdem das erste ungültige Zeichen entdeckt wurde.

Ich sagte ja "entweder oder".
- man kann die Schleife mit Break verlassen
- oder sie endet über die Until/While-Bedingung
Und da hier Bedingung und Break das Selbe machen, ist Eines überflüssig.

Ich wäre sehr überrascht, wenn hier keine Meldung kommen würde:

Delphi-Quellcode:

if not (eingabe[i] in ['0'..'9','A'..'F','a'..'f']) then

[ensaron]

Ich hab in der Repeat..Until-Schleife ja noch eine For-Schleife drin, die Zeichen für Zeichen über die Eingabe drübergeht. Mit dem Break spring ich auf der For-Schleife, nicht aus der Repeat-Schleife, raus.

Zitat:

Zitat von himitsu (Beitrag 1118023)

Ich wäre sehr überrascht, wenn hier keine Meldung kommen würde:

Delphi-Quellcode:

if not (eingabe[i] in ['0'..'9','A'..'F','a'..'f']) then

Anbei ein Screenshot-Beweis ^^ Und nein, den hab ich nicht gefälscht ^^

EDIT: Aaah du meinst, wenn ich das "AnsiChar" rausnehme - Ja dann bekomm ich ne Warnung, dass ich lieber "CharInSet" verwenden sollte ^^
Screenshot wieder ausgenommen, da somit irrelevant ^^

[himitsu]

OK, daß dort noch was mit in der Schleife drinsteht, war nicht zu erkennen.
Demnach bezog ich mich natürlich nur auf die oben gepostete Version :angle2:


Jupp, denn min AnsiChar schneidest so so um die 65.000 weitere Kombinationen einfach weg, bzw. ignosierst sie vergleichst nur das untere Byte, also 256 Möglichkeiten.
Nimmt man aber das obere Byte mit in Bezug, dann gibt es für Jeden AnsiChar-Wert noch 255 weitere Werte, welche eigentlich nicht gemeint waren.