Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
25. Jul 2012
:oops: ganz vergessen :lol:
Nicht nur viele Wege ... auch viele Ansichten
Alle meine 4 Funktionen machen ganz genau das Selbe, also wenn man es Speichertechnisch betrachtet.
Nur daß der Quellcode anders aussieht, auch wenn er, wie gesagt, genau das Selbe macht.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
25. Jul 2012
Du hattest das 1:Integer ja nur für my.wert:=0; benutzt.
Und da dieses nun weg war, wurde 1:Integer auch nicht mehr benötigt. :angle:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
25. Jul 2012
Wobei du in Big2Little32R unnötig viel umkopierst.
Und da du sowieso alle Bytes wieder überschreibst, muß es auch nicht initialisiert werden (wert=0)
function Big2Little32R(ina:tpa4):integer;
type
tLittRec=record
case integer of
2 : (aa: array of byte);
end;
var
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
23. Jul 2012
Aber nur wenn man das Result auch mit ein-or-t
Result := Result or ...
Und wenn, dann hätte man das beim + auch schon mit machen müssen. :angle:
Hier werden ja nur die 4 ina's ver-or-t und ich hoffe mal diese sind ordentlich initialisiert.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
23. Jul 2012
Ansosnten wohl eher OR, anstatt +.
function Big2Little32(ina: tpa4): LongInt;
begin
Result:=ina or
ina shl 8 or
ina shl 16 or
ina shl 24;
end;
Und falls man Assembler nutzt, muß man später auch noch die 64-Bit-Version basteln, denn in Win64 sind die Register anders belegt.