FileStream von Byte x bis Byte y lesen und als String ausgeben.

[Gandimann]

Dear Klaus,
Dear Günther,
Vieeeelen lieeeeeben Dank. Es klappt nun wunderbar

VG aus FFM

[Gandimann]

Es gibt aber einen Problem und zwar so gelesene ASCII String

myString := TEncoding.ASCII.GetString(myBytes);

mit der Funktion :

Function RunConv(const S: string): LongInt ;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(S) do
Inc(Result, Ord(S[i]) shl ((32 - 8*i)))
end;

(unter Verwendung // RunConv(myString);

bearbeite dann bekomme ich manschmal fehlerhafte Ergebnis und zwar um (-128) hat es mit int8 oder Uint8 etwas zu tun ?


(Sorry for my bad Deutsch)

[himitsu]

Ob irgendwo falsch gerechnet wird, das sagt dir dein Debugger.



PS: Es sind nicht zufällig mehr als 3 Zeichen in de String?

shl ((32 - 8*i)) mit 1 bis Length, also mit viel Spaß ab 4.

[Gandimann]

Fehler lag bei TEncoding -> es musste ANSI sein

myString := TEncoding.ANSI.GetString(myBytes);

Thanks Friends for your kind help