ergänzend zu Himitsu's korrekter Aussage noch par Punkte:
EBX,EDI,ESI,ESP müssen vor deren Verwendung auf dem Stack gesichert werden. Nur EAX,EDX,ECX sind frei verfügbar.
Der Zugriff auf den String ansich hängt davon ab was für ein Stringtyp es ist. Ist es ein LongString so hat Himitsu schon den korrekten Zugriff aufgezeigt. Ist es ein PChar so reicht
Delphi-Quellcode:
var
P: PChar;
A:
array[]
of Char;
L: LongString;
S: ShortString;
begin
asm
MOV EAX,P
LEA EAX,A
MOV EAX,L
MOV EAX,[EAX]
LEA EAX,offset S +1
// erstes Byte enthält Länge
end;
end;
Ansonsten rate ich dir nach Möglichkeit keinen Assembler in Pascal Funktionen zu mischen. Stattdessen benutze reine Assemblerfunktionen die auf Teilaufgaben spezialisiert sind und über Parameter angesprochen werden. Der aufrufende PASCAL Source enthält dann nur die Aufrufe dieser spzialisierten Assembler Funktionen. Inetwa so:
Delphi-Quellcode:
function DoItInASM(
const S: LongString; C: Char): Integer;
asm
PUSH EDI
MOV EDI, [EAX]
// ptr auf Stringdaten holen
MOV ECX, [EAX +4]
// länge der Stringdaten holen
MOV EAX, EDX
// char C in EAX für suche
MOV EDX, ECX
REP SCASB
SUB EDX, ECX
MOV EAX, EDX
POP EDI
end;
procedure DoItInPASCAL:
var
S: LongString;
begin
if DoItInASM(S, '
A') > 0
then
....
end;
Gruß Hagen