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.
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?