Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
Der Unterschied:
function calccrc(strng: string): integer;
var
crc, ch, i, j: integer;
begin
CRC := 0;
for i := 1 to Length(Strng)-1 do
begin
ch := Ord(strng);
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
Warte noch ein bisschen, und Du wirst Dich aufregen, daß andere Sprache so schlampig (nicht flexibel :!:) sind, was es die Datentypenbehandlung betrifft.
...:cat:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
Stimmt, aber zu meiner Verteidigung muss ich sagen, daß der VB-Code auch auf Real-Division (/) und nicht auf Integer-Division (\) basierte :mrgreen: Und wir wollten den Code ja korrekt übersetzen und keine Vermutungen starten :zwinker:
...:cat:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
Man seid ihr alle fix :roll: :mrgreen:
...:cat:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
Args, die VBler :wall:
Okay, kurzer Exkurs in die If-Then-Else Welt von Pascal ;)
In der Regeln geht mit jedem END ein BEGIN (es gibt wenige Ausnahmen). Du hast getippt:
if ..... then
Anweisung
else
Anweisung
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
Ich sehe gerade, daß Dir die Pascal-Syntax noch gar nicht liegt, da fehlen ein paar begins
function calccrc(strng: string): integer;
var
crc, ch, i, j: integer;
begin
CRC := 0;
for i := 1 to Length(Strng) do
begin
ch := Ord(strng);
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
30. Jun 2004
function calccrc(strng: string; lenstr: integer): integer;
var
crc, ch, i, j: integer;
begin
CRC := 0;
for i := 1 to Length(Strng) do
ch := Ord(strng);
for j := 0 to 7 do
if ((crc Xor ch) And 1) <> 0 Then
crc:= (Trunc(crc /2) Xor 40961)