Write bzw. WriteLn von Assembler aufrufen

[jaenicke]

Kleines Beispiel:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  a: string;
  b: Pointer;
begin
  b := @Output;
  a := 'Test' + IntToStr(42);
  asm
    mov eax,b
    mov edx,a
    call System.@Write0UString
    call System.@WriteLn
    call System.@_IOTest
  end;
  Readln;
end.