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.