Inline Asm Problem

[JnZn558]

Zitat von gammatester:

Zitat von JnZn558:

Zitat:

Project Project.exe raised exception class EInOutError with message 'I/O error 105'.

{$apptype console} fehlt für writeln!

jo, das is es, was zum absturz macht, danke

Zitat von DeddyH:

Abgesehen davon wird Test überhaupt nicht instanziert.

achja, Delphi, vergiss ich fast immer, komme von C++, so es is kein absturz mehr da, aber es zeigt auch nichts an.

Delphi-Quellcode:

program Project;

{$apptype console}

uses SysUtils, Dialogs;

function ShowText: string;
begin
  asm
      jmp  @start
      //str = 'Hello World', 0
      // alle zeichen hab ich in ascii umgewandelt
      // und so word also 16 bit unicode zu erzeugen
      // dachte ich
      @str: dw 72, 101, 108, 108, 111, 32, 87, 111, 114, 108, 100, 0
      @start:
      lea eax, @str
  end;
  ShowMessage(Result);
end;

begin
  try
    Writeln('Text: ' + (ShowText));
    Readln;
  except
    on E:Exception do
    Writeln(E.Classname, ': ', E.Message);
  end;
end.