Zahlen umwandeln (Bin, Oct, Dec, Hex)

[dizzy]

Dieser Ultrakrampf hier ()...

Zitat von Morlon:

Delphi-Quellcode:

        if Edit1.Text[i] <> '0' then
          if Edit1.Text[i] <> '1' then
            if Edit1.Text[i] <> '2' then
              if Edit1.Text[i] <> '3' then
                if Edit1.Text[i] <> '4' then
                  if Edit1.Text[i] <> '5' then
                    if Edit1.Text[i] <> '6' then
                      if Edit1.Text[i] <> '7' then
                        if Edit1.Text[i] <> '8' then
                          if Edit1.Text[i] <> '9' then
                            if Edit1.Text[i] <> 'A' then
                              if Edit1.Text[i] <> 'B' then
                                if Edit1.Text[i] <> 'C' then
                                  if Edit1.Text[i] <> 'D' then
                                    if Edit1.Text[i] <> 'E' then
                                      if Edit1.Text[i] <> 'F' then
                                        if Edit1.Text[i] <> 'a' then
                                          if Edit1.Text[i] <> 'b' then
                                            if Edit1.Text[i] <> 'c' then
                                              if Edit1.Text[i] <> 'd' then
                                                if Edit1.Text[i] <> 'e' then
                                                  if Edit1.Text[i] <> 'f' then
                                                    bolPruef := False;

...lässt sich auch irre elegant schreiben:

Delphi-Quellcode:

  if not ((Edit1.Text[i] in ['0'..'9']) or (Edit1.Text[i] in ['A'..'F']) or (Edit1.Text[i] in ['a'..'f'])) then
    bolPruef := false;

Nachti,
Fabian

btw: Herzlich wilkommen!