ForenTage: Vortrag MVVM-Lite

[Mavarik]

Hallo Zusammen!

Danke für den großen Zuspruch zu meinem Einstiegsvortrag in die "MVVM-Welt".

Klar, kann ich die Sourcen hier mal hoch laden!

Aber: Aus meiner Sicht würde ich jedem mal empfehlen meine "Einstiegsidee" selber um zu setzen - um zu verstehen - wo es klapp und wo noch Probleme sind.

Wenn die Sourcen unbedingt gewünscht sind - Schon mal TortoiseHg installieren (sollte man sowieso verwenden oder etwas ähnliches), dann werde ich mein Repo. hochladen um wirklich Schritt für Schritt den Einstieg nachvollziehen zu können.

Hierzu noch ein paar Links auf alte Blogeinträge zu diesem Thema:
MVVM - war der Start (September 2015)
MVVM - oder was ich dafür halte (Mai 2016)
CodeRage 2016 - Meine Session hier zeige ich die Desktop- und mobile App, die ich aus "Zeitgründen" nicht mehr im Vortrag unterbringen konnte.

Mavarik :coder:

[Mavarik]

*push* - Niemand hierzu ne Frage?

OK...

[stahli]

Ich habe mir Deine Links und das Video mal angesehen, aber kann nicht erkennen, worauf Du hinaus willst.
Für mich springst Du da zwischen Altbekanntem und Verwirrendem hin und her.

Ich kann dort kein MVVM erkennen (so wie ich es verstehe) und ich kann nicht auseinanderhalten, was dort von einem aktuellen Delphi kommt und was aus dem FDK.

Also ich verstehe (abgesehen von einigen grundsätzlichen Inhalten wie Interfaces und Threads) nur Bahnhof und weiß nicht wie ich das Gezeigte einordnen soll.

Was ganz eindrucksvoll war, war vielleicht mit einem Helper aus Images Buttons zu machen, aber das ist für mich ein Workaround. Dann wäre es sinnvoller, direkt einen BitBtn oder ähnliches Control zu nutzen, der ein Bild darstellen kann.

Vielleicht wäre ein anderer Erklärungsversuch ja hilfreich...
Ich bin absolut interessiert an innovativen Ideen, die die Programmierung vereinfachen, aber danach sieht mir das bisher nicht wirklich aus.


Kann natürlich sein, dass es an mir liegt, dass ich nicht folgen kann, aber zum einen ist diese Rückmeldung sicher besser als gar keine und vielleicht bringt ein weiterer Erklärungsversuch ja doch noch allgemeine Resonanz.

[Mavarik]

Hast Du meinen Vortrag überhaupt gesehen?

[stahli]

Nur die drei Links von Dir oben.
Bezogen habe ich mich auf das Video.

Ich habe eben nochmal reingesehen aber auch jetzt nicht wirklich verstanden.

[stahli]

Hmm, kannst Du mich mal noch aufklären...?

Hat Dein Vortrag in etwa dem Video entsprochen? Liegt es dann nur an mir, wenn ich dem nicht folgen kann?

[Mavarik]

Zitat:

Zitat von stahli (Beitrag 1383057)

Hmm, kannst Du mich mal noch aufklären...?

Hat Dein Vortrag in etwa dem Video entsprochen? Liegt es dann nur an mir, wenn ich dem nicht folgen kann?

Der Hinweis zum Video war nur für Leute die meinen Vortrag gesehen haben... Das Video hat nix mit MVVM zu tun...

[Harry Stahl]

Zitat:

Zitat von Mavarik (Beitrag 1383069)

Der Hinweis zum Video war nur für Leute die meinen Vortrag gesehen haben... Das Video hat nix mit MVVM zu tun...

Nur mal so als freundliche Anregung :): Dann mach doch mal ein Video zu MVVM. Ich glaube, der Reiz, sich erst mal mit Tortouise (oder ähnliches) befassen zu müssen und sich durch eine Repo zu quälen ist eher gering...

[Harry Stahl]

Ich habe mir das Video gerade mal weiter angesehen.

Dein FDK ist ziemlich beeindruckend, Du hattest da ja auch schon mal was beim Delphi-Frühstück gezeigt.
Allerdings denke ich, dass man dafür auch etwas Einarbeitungszeit braucht.

Nur am Rand sei bemerkt, dass man wohl nicht für alle Aufgaben ein ganzes zusätzliches Framework braucht.
Den 10-Minuten-Spaß habe ich mir mal gemacht, und verglichen, wie man Deine 45 Zeilen Lösung (mit FDK) für die Lottozahlen (im Video ab Minute 33) konventionell lösen könnte:

Delphi-Quellcode:

procedure Lottozahlen;
var
  N: Integer; Nr, Z: String; sl : TStringList;
begin
  sl := TStringList.create;
  Randomize;

  While sl.Count < 7 do begin
    N := Random (49) + 1;
    if N < 10 then Nr := Format ('00%.d', [N]) else Nr := N.ToString;
    if sl.IndexOf (Nr) = -1 then sl.add (Nr);
    if sl.Count = 7 then Z := N.ToString; // 7. Nr. als Zusatzzahl merken
  end;

  sl.Delete(6); // Zusatzzahl entfernen
  sl.Sort;
  sl.Text := StringReplace(sl.Text, '00', '',[rfReplaceAll]);
  Writeln ('Gewinnzahlen: ' + sl.commatext + ' Zusatzzahl: ' + Z);
  sl.Free;
end;

Das Ergebnis mit nur 19 Code-Zeilen und ohne Framework zeigt, dass man durchaus auch mit Bordmitteln seine Aufgaben lösen kann.:wink:

Aber Spaße beiseite, ist mir schon klar, sollte nur ein einfach verständliches Demo sein.
Für mich interessanter waren die Ausführungen zum TEventbus.

Gibt es hierfür eine Dokumentation, die man sich mal ansehen kann?