Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
11. Feb 2009
Du kannst die FOR-Schleife natürlich auch in der "herkömmlichen" Art programmieren und das zu untersuchende Zeichen über den Schleifenindex aus dem Schlüssel extrahieren:
procedure AnalyzeKey (const aKey: string);
var
i: Integer;
begin
for i := 1 to Length(aKey) do
Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
11. Feb 2009
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:
procedure AnalyzeKey (const aKey: string);
var
Msg : string;
Map : string;
Value : Integer;
ch : Char;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
11. Feb 2009
Hallo Markus,
meinst du so etwas?
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};