Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
12. Jun 2016
Ja, das ist richtig, auch funktioniert es nicht unter 64 Bit. Zudem gibt es noch weitere Einschränkungen, in bestimmten Fällen muss man globale Variablen benutzen (wegen der Stack-Problematik?).
Fazit also: Lohnt sich nicht. Trotzdem gut, dass die liebe Seele jetzt Ruh hat. Und interessant war's auch.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
11. Jun 2016
Nachdem ich mich ziemlich in das Problem verbissen habe, möchte ich hier eine Lösung präsentieren. Nochmal zu Erinnerung, hier geht es nicht um die Lösung eines konkreten Problems, da eine solche bereits vorliegt. Hier geht es um das Verstehen von Strukturen.
Ausgangspunkt war der apodiktische Verweis von David Heffernan auf die Dokumentation, die klar aussagt: "Nested procedures and functions...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
23. Mai 2016
Wie vielleicht der eine oder andere mitbekommen hat, habe ich die Frage noch einmal auf stackoverflow gestellt, da ich einfach nicht weiterkam. Das Ganze verlief mehr als unbefriedigend und endete mit einem Downvote von David Heffernan. Der jetzige Stand dort ist, dass mein Vorhaben nicht möglich ist.
Von der Diskussion hier habe ich zwei Dinge mitgenommen:
Es ist möglich
Aus pädagogischen...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
9. Mai 2016
So leid es mir tut, beim Anblicken des Codes habe ich eine Ahnung, mehr aber auch nicht.
Wie gesagt, ich habe ja funktionierenden Code, ich möchte nur begreifen, wie man das geschilderte Problem löst.
Also ganz schlicht, der Teil //-------------------------------------------------------
procedure RufeAuf;
begin
TAsyncCalls.Invoke(
procedure
var i:integer;
begin...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
8. Mai 2016
Leider nein...:(
Ich habe mal Folgendes probiert:
procedure TForm1.Haupt;
type
TTuWas = reference to function(i:integer):integer;
var TuWas:TTuWas ;
//-------------------------------------------------------
procedure RufeAuf;
begin
TAsyncCalls.Invoke(
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
8. Mai 2016
Da wollte ich auf Sir Rufo antworten:
"Sind anonyme Methoden nicht auch Methoden? Ich erinnere mich an Lösungen á la M:TMethod."
... aber da waren mir die Ereignisse schon voraus. Also OK, ich haue TAsyncCallArgGenericMethod<T> = reference to function(Arg: T): Integer; rein, und dann???
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
8. Mai 2016
class function Invoke<T>(Event: TAsyncCallArgGenericMethod<T>; const Arg: T): IAsyncCall; overload; static;
IAsyncCall = interface
{ Sync() waits until the asynchronous call has finished and returns the
result value of the called function if that exists. }
function Sync: Integer;
{ Finished() returns True if the asynchronous call has finished. }
function...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
8. Mai 2016
Ich habe eine Prozedur mit Unterprozeduren:
procedure TForm1.Haupt;
var i:integer;
//-------------------------------------------------------
function TuWas(i:integer):integer;
begin
end;
//-------------------------------------------------------
procedure RufeAuf;