Forum: Sonstige Fragen zu Delphi
Delphi
by Kuonrat,
18. Mär 2007
Okay, Problem gelöst. Wo der Fehler nune xakt liegt weiß ich nicht. Aber ich habe einfach mal Schluessel (String) durch eine separate variable key (Integer) ersetzt und schon klappt es. Die procedure ist wohl einfahc zu unsauber programmiert. Danke =)
Forum: Sonstige Fragen zu Delphi
Delphi
by Kuonrat,
18. Mär 2007
if (Modus = 'M') and (Verschl = false) then
begin
case Schluessel of
3 : Schluessel := '9';
5 : Schluessel := '21';
7 : Schluessel := '15';
9 : Schluessel := '3';
11 : Schluessel := '19';
15 : Schluessel := '7';