Einstieg in Zeiger auf Methoden / Funktionen

[himitsu]

Verschachteln kann man die Anonymen bestimmt unendlich. (außer siehe unten)

Die geteilten Variablen (auf die man innerhalb der Methode zugreift) werden vom Compiler in ein Interface verschoben damit sie überall eindeutig gültig sind.
Kannst in etwa mit dem Self-Parameter in Klassenmethoden vergleichen.

Delphi-Quellcode:

procedure Xyz;
var
  x, y: Integer;
begin
  x := 0;
  y := 0;
  Call(procedure
    begin
      if x = 0 then
        ;
    end)
end;

wird zu

Delphi-Quellcode:

type 
  AnonymusVars0123456 = interface(record)
    x: Integer;
    P: AnonymusProc0123456;
  end;

procedure AnonymusProc0123456(Self: AnonymusVars0123456);
begin
  if Self.ax = 0 then
    ;
end)

procedure Xyz;
var
  y: Integer;
  a: AnonymusVars0123456;
begin
  a := Create...;
  a.P := AnonymusProc0123456;

  a.x := 0;
  y := 0;
  Call(AnonymusVars0123456);
end;

So lange der Compiler kein Limit (statische Liste oder zu wenig Speicher) hat, sollte es da keine Grenze geben. (außer dem Speicher)



Och, ich mach es mir da einfach: alles was man noch lesen kann, das ist erlaubt.
SpaghettiCode mag angeblich niemand, aber z.B. für kleine Synchronisierungsaufgaben, verwende ich die Anonymen gern mal ... finde es einfacher und übersichtlicher, als da die Prozedur ganz wo anders zu haben und immer im Zickzack gucken zu müssen.

Delphi-Quellcode:

// im Thread
...
mach was mit Ergebnis in S
...
TThread.Synchronize(nil, procedure
  begin
    ShowMessage(S);
  end);

Vom linearen Arbeiten wegzukommen, hin zum Prozedualen ist auch nicht immer so einfach.
Da ist man es bisher halt gewohnt, dass die MessageBox wartet und kann dann direkt danach den Code für die Auswertung machen.
Und nun soll das danach alles in eine/mehrere Prozeduren, die man dann dem Dialog mitgibt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ShowDialog('wirklich?') = mbOK then
    DeleteDirectory('C:\Windows\*')
  else
    ShowDialog('OK, dann net').
end;

Daraus sollen nun 2 bis 3 Methoden werden.

Ist halt wie alles als Methoden in der Form zu haben, anstatt es in eigene Klassen auszulagern.

[Rollo62]

Mit tief verschachtelt meinte ich eher sowas in dieser Richtung ...
(freihändig eingetippt um 20:00, bitte um Gnade )
Der konkrete Sinn sei mal dahingestellt.

Delphi-Quellcode:

type
    TProcLevel3 = reference to function( AData : Integer ) : Integer;
...
    TProcLevel2 = reference to procedure ( AData : Integer; AProcLevel3 : TProcLevel3);
    TProcLevel1 = reference to procedure ( AData : Integer; AProcLevel2 : TProcLevel2);

procedure Level1( AProc1 : TProcLevel1, AProcLevel2 : TProcLevel2 );
begin
    if Assigned( AProc1 ) then
       AProc1( 1, LProcLevel2);
end;

procedure Level;
var
    LProc3 : TProcLevel3;
    LResult : Integer;
begin
    LProc3 .= function( AData : Integer ) : Integer
              begin
                 Result := AData * AData;
              end;

    Level1(
        procedure ( AData : Integer; AProcLevel1 : TProcLevel1)
        begin
        end, 
        //
        procedure ( AData : Integer; AProcLevel2 : TProcLevel2)
        begin
             if Assigned( AProicLevel2) then
                 AProcLevel2( 2, LProc3 );
        end, 
       ) 
end;

[dipo]

Hallo Zusammen,

ich erzeuge in einer Procedur ein MainMenu aus einer Datenbank (SQLite). In diesem Menu möchte ich dem OnClick
der einzelen Menupunkten eine wert zuweien den ich leider auch nur als String habe.
Mit "methods := rttiType.GetMethods;" bekomme ich ja schon den Namen, aber wie kann ich das "TNotifyEvent"
zuweisen? Wenn ich das ganze richtig verstanden habe geht das wohl nur über Pointer. Aber wie ????

Über eine Antwort würde ich mich sehr freuen.

Mfg Dirk

[mytbo]

Zitat von dipo:

Mit "methods := rttiType.GetMethods;" bekomme ich ja schon den Namen, aber wie kann ich das "TNotifyEvent"
zuweisen? Wenn ich das ganze richtig verstanden habe geht das wohl nur über Pointer. Aber wie ????

Vielleicht hilft dir dieser Thread weiter.

Bis bald...
Thomas

[dipo]

Ich danke dir erst mal für die schnelle Antwort.

Aber leider wird in diesen Beispielen mein Problem wieder fest zugewiesen :
"strList.OnChange := wrapper.DoChange1;".

Was ich bräuchte ist z.B. :

MeinString := "Bla Bla Bla"

"strList.OnChange := MeinString"

[Rollo62]

Meinst Du etwa?
https://docwiki.embarcadero.com/Libr...trings.Strings

Delphi-Quellcode:

MyStrings.Strings[0] := 'This is the first string';
MyStrings[0] := 'This is the first string';

[Delphi.Narium]

Suchst Du sinngemäß sowas? (nur ungetestet hingedaddelt - muss also nicht funktionieren)

Delphi-Quellcode:

uses
  Typinfo, Menus, ...;

procedure TForm1.FormCreate(Sender: TObject);
var
  sMethode : String;
  mi       : TMenuItem;
begin
  Tabelle.Open;
  while not Tabelle.Eof do begin
    sMethode := Tabelle.FieldByName('MenueZuzuweisendeMethode').AsString;
    if PropIsType(Self,sMethode,tkMethod) then begin
      mi         := TMenuItem.Create(Self);
      mi.Caption := Tabelle.FieldByName('MenueCaption').AsString;;
      mi.Name    := Tabelle.FieldByName('MenueName').AsString;;
      mi.Hint    := Tabelle.FieldByName('MenueHint').AsString;;
      SetMethodProp(mi,sMethode,GetMethodProp(Self,sMethode));
      // ... und alle weiteren zu setzenden Eigenschaften ...
    end;
    Tabelle.Next;
  end;
  Tabelle.Close;
end;

Statt Self ggfls. die Klasse, bei der die gewünschten Methoden zu finden sind, z. B. ActionList, ...