Hallo,
ich suche nach einer Möglichkeit schnell, anhand eines eingegebenen Wertes, zu ermitteln aus welchen Grundwerten sich dieser zusammen setzt.

Die Grundwerte habe ich vorgegeben. Diese sind 1,2,4,8 und C.
Der Bereich des eingegebenen Wertes erstreckt sich über die komplette hexadezimale Zahlenreihe (0-F).

Nun versuche ich eine Funktion zu finden die ohne Case oder If Struktur auskommt.
Welche Möglichkeiten habe ich da in Delphi/Pascal?
Da dieses Konstrukt aus Case oder If doch etwas groß wäre und auch ein wenig langsam. Oder irre ich mich da?

Hallo Markus,

meinst du so etwas?

markieren

Delphi-Quellcode:

if Odd(Value) then {1 vorhanden};
if Odd(Value shr 1) then {2 vorhanden};
if Odd(Value shr 2) then {4 vorhanden};
if Odd(Value shr 3) then {8 vorhanden};

Gruß Hawkeye

Hallo,

was genau wird den eingegeben.

Ich vermute die Grundwerte sind die Einzelteile eines HEXA-Wertes.


Jetzt willst du erkenne, wenn jemand z.B 1C4C eingibt, welche zwei Grundwerte dahinter versteckt sind, Oder?

Gruß Jens

Hmm fast.
Eher so:

Eingabe: B
Dann sollten die Grundwerte zurück gegeben werden. Also 1,2 und 8.

Wie ich das ganze zwischenspeichere weiß ich im Moment noch nicht
Insgesamt ist das ein 16 stelliger Hexcode der eingegeben wird.

Ich hatte nun angefangen die einzelnen Stellen aufzutrennen und wollte die dann weiter verarbeiten.
Zur Zeit ist der Plan das ganze über eine Tabelle zu machen wo der Grundwert die Position im Schlüssel und der Textwert drin sind.

Da ich den HexCode auf Textwerte überstetzen möchte (mache derzeit noch von Hand).

Rote Kiste:

Ja so war das vorgesehen Jens.

Also wenn ich das dann jetzt verstanden habe, wäre dann folgendes Dein Ziel:

Eingabe B = Rückgabe 1,2,8
Eingabe C = Rückgabe C
Eingabe D = Rückgabe 1,4,8

Wenn das so wäre, kann man das doch mit einer case Anweisung lösen:

markieren

Delphi-Quellcode:

case Eingabe of

A: IrgendeinString := 2,8
B: IrgendeinString := 1,2,8
C: IrgendeinString := C

...

usw.

Vieleicht hilft dir das ja

Gruß Jens

Zitat von Jens Hartmann:

Also wenn ich das dann jetzt verstanden habe, wäre dann folgendes Dein Ziel:

Eingabe B = Rückgabe 1,2,8
Eingabe C = Rückgabe C
Eingabe D = Rückgabe 1,4,8

Wenn das so wäre, kann man das doch mit einer case Anweisung lösen:

Vieleicht hilft dir das ja

Gruß Jens

Das mit der Eingabe ist soweit korrekt.

Zitat von ryLIX:

Nun versuche ich eine Funktion zu finden die ohne Case oder If Struktur auskommt.
Welche Möglichkeiten habe ich da in Delphi/Pascal?
Da dieses Konstrukt aus Case oder If doch etwas groß wäre und auch ein wenig langsam. Oder irre ich mich da?

Die Idee mit Case oder If ist mir auch gekommen finds aber irgendwie Umständlich und ich hab den Verdacht das es irgendwie einfach geht.

Ich weiß nicht genau, da habe ich auch keine Ahnung,

aber vieleicht ginge sowas wie den HEX-Wert umzuwandeln

markieren

Delphi-Quellcode:

Label1.Caption := IntToHex(1000,4);

Das Ergebnis von oben wäre dann "03E8"

genauso, könntest du umgekehrt arbeiten

x := StrToInt('$03E8);
Das Ergebnis wäre wieder 1000

Ich hoffe das hilft Dir, ansonsten weiß ich auch nicht.

Gruß

jens

Der Schlüssel ist ja schon im HexFormat.

markieren

Code:

0000204406B01421

Nun setzt sich jede Stelle des Codes aus den Grundwerten zusammen.
Das auftrennen in einzelne Werte ist ja nicht das Problem.

Ich dazu eine Wertetabelle woraus ich ablesen kann welcher Grundwert an welcher Stelle welchen Text hat.
Das ganze hab ich mir in eine SQL Tabelle geschrieben um es mit dem Programm besser verarbeiten zu können.

Was mir nun halt Fehlt ist dieses erkennen der Grundwerte.
Für uns Menschen ja kein Problem aber wie man das einfach nach Delphi umsetzt ist mir nicht ganz klar.

Wenn keiner ne bessere Idee hat werd doch wohl auf das Case Modell zurück greifen.
Möchte nur ausschließen das es nicht "leichter" geht.

Sorry,

aber da weiß ich auch nicht weiter. Bin allerdings auch nicht der absolute Profi.
Vieleicht hast Du ja bei jemand anderem mehr Glück

Gruß

Jens

Markus, die Aufgabenstellung klingt für mich immer noch etwas widersprüchlich. Sei mir also nicht böse, wenn ich sie immer noch falsch verstanden habe:

zusammenfalten · markieren

Delphi-Quellcode:

procedure AnalyzeKey (const aKey: string);
var
  Msg : string;
  Map : string;
  Value : Integer;
  ch : Char;
begin
  Msg := 'Eingegebener Schlüssel: ' + aKey + #13#13;

  // alle Stellen des Schlüssels verarbeiten
  for ch in aKey do
    begin
      // eine Stelle in einen Zahlenwert umwandeln
      Value := StrToIntDef('$' + ch, 0);

      // Faktoren ermitteln, aus denen sich der Zahlenwert zusammensetzt
      Map := '';
      if Odd(Value) then Map := Map + '1 ';
      if Odd(Value shr 1) then Map := Map + ' 2 ';
      if Odd(Value shr 2) then Map := Map + ' 4 ';
      if Odd(Value shr 3) then Map := Map + ' 8 ';

      // Ergebnis an Ausgabetext anhängen
      Msg := Msg + #13 + ch + ' -> ' + Map;
    end;

  // Ergebnis ausgeben
  ShowMessage (Msg);
end;

Gruß Hawkeye