Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Codehunter,
4. Mär 2019
Genau das ist der Punkt. Die Formel ist alles was ich habe. Leider kein Testprogramm zum Gegenchecken. Wenns mal eins gab dann zu DOS-Zeiten und längst verschollen.
Auf der von dir verlinkten Seite war ich auch bevor ich hier gefragt habe. Die Prüfsummenberechnung bekomme ich ja hin, mit der Formel war ich mir hingegen gar nicht sicher.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Codehunter,
4. Mär 2019
Das hätte aber eine 1/3-Gewichtung, die ich in der Formel nicht sehen kann. Daher schaut meine Version aktuell so aus:function Checksum(const AStr: string): Byte;
var
A: AnsiString;
C: AnsiChar;
I: Integer;
begin
A:= AnsiString(AStr);
I := 0;
for C in A do begin
I := I + Ord(C);