Es ist für mich wirklich ein Mysterium.
Ich poste jetzt mal eine Funktion, die etwas berechnen soll.
Zuerst kam etwas falsches raus, deswegen habe ich Testdrucke mit Showmessage eingebaut und plötzlich
kommt das richtige raus. Eigentlich dürfte der Befehl ShowMessage(); doch wohl kaum das Ergebnis beinflussen, aber seht selbst:
Delphi-Quellcode:
function CalculateSerial: String;
var
CalcString : String;
i: Integer;
edx: Integer;
begin
CalcString := 'Aimkill';
i:=1;
Repeat
edx := edx + ord(CalcString[i]);
//Showmessage(CalcString[i]+' -- '+ IntToStr(ord(CalcString[i])));
i:=i+2;
Until i > Length(CalcString);
result:=IntToStr(edx);
end;
Ergebnis ohne ShowMessage: 4405795
Ergebnis mit Showmessage: 387
Das Ergebnis mit ShowMessage stimmt. Ich hab nachgerechnet.
Nun bin ich gespannt was ihr dazu sagt.