Um Fehler unsererseits auszuschließen, bastle eine Schleife wie
Delphi-Quellcode:
var
I: Integer;
S: String;
begin
for I := 1 to Length(S) do
if S[I] <> 'A' then ;
end;
und analysiere sie im Debugview. Denn ich meine das ein LongString schon ein Zeiger auf den Inhalt des Strings selber darstellt. Da habe ich mich wohl von Himitsu verwirren lassen.
Delphi-Quellcode:
var
S:
String;
begin
asm
MOV EAX, S
// Zeiger auf die Stringdaten -> @S[1]
MOV ECX, [EAX -4]
// EAX := Length(S)
end;
end;
Gruß Hagen