Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
4. Dez 2013
Dann habe ich wohl einen Denkfehler gemacht. Aber sehr merkwürdig, das Ganze :gruebel:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
4. Dez 2013
Wenn ich mich nicht täusche, müsste das aber
For i := 1 To length(Data) do
begin
lCRC32 := Crc32Table1)];
end;
entsprechen, oder?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
3. Dez 2013
Ich komme auch nicht auf die Werte. Wenn ich das richtig gelesen habe, sind Variablen ohne Typangabe automatisch Varianten, evtl. müsste man damit noch soweit es geht herumdoktern. Aber auch da bleibt die Frage nach Unterschieden zwischen VBA und Delphi.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
3. Dez 2013
Gib uns doch mal ein paar Beispiele mit Eingangsstring und Ergebnis des Makros.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
3. Dez 2013
Mal ein Versuch:
function Skr_CRC32(const Data: string): string;
var
i, lCRC32, iBit: DWORD;
Crc32Table: array of DWORD;
begin
for i := Low(Crc32Table) to High(Crc32Table) do
begin
lCRC32 := i;
for iBit := 0 to 7 do