Inline ASM --> mov edi, 'HalloWelt' Problem

[negaH]

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