System.Generics.Collections fehlt mir

[Daniel]

Die Diskussion ist müßig und hier völlig fehl am Platze.


Es mag für den Fragesteller leichter sein, die externe Unit anzupassen, so dass diese keine Generics mehr verwendet als irgendwas "Generics-ähnliches" in D7 zu realisieren, was am Ende auch nicht vollends zu einer Unit kompatibel sein kann, welche die richtigen Generics von Delphi2009 ff. voraussetzt.

[Fukiszo]

http://cc.embarcadero.com/item/27372

Wäre das gut genug um bei den großen mitspielen zu können?

Grüße

[Redeemer]

Du brauchst dafür eine Lizenz. Auch eine Demo braucht eine Lizenz.

Die einfachste Variante, Pseudo-Generics zu verwenden, ist TObjectList/Stack/Queue zu nehmen und alle zu speichernden Typen von TObject abzuleiten. Dann fällt aber der große Vorteil von Delphi-Generics weg, anders als bei minderwertigen Programmiersprachen wie Java auch Primitive und andere nicht auf Klassen basierende Datentypen (string, TPoint usw.) ohne Aufwand aufzunehmen. Beim Thema Generics.Collections.TDictionary bist du natürlich immer noch aufgeschmissen.

[jaenicke]

Zitat von Fukiszo:

Wäre das gut genug um bei den großen mitspielen zu können?

Als ich bei meinem oben genannten Projekt die Unterstützung für ältere Versionen eingebaut habe, ist mir erst aufgefallen wie viel mit den Generics in den ersten Versionen ab 2009 noch nicht ging...

Dafür muss man in dem Projekt auf die Version vorher zurückspringen (vor dem Kommentar mit der Unterstützung für Delphi 7) und dann versuchen das unter Delphi 2009 oder 2010 zum Laufen zu bekommen. Ich musste ziemlich viel davon wegnehmen.

Deshalb:
Die absoluten Basics mit Generics funktionieren ab Delphi 2009 (für dich wird das auch erstmal reichen), aber wirklich gut mit allen Features kann man damit erst ab etwa XE8 arbeiten.

[Redeemer]

Zitat von jaenicke:

Zitat von Fukiszo:

Wäre das gut genug um bei den großen mitspielen zu können?

Als ich bei meinem oben genannten Projekt die Unterstützung für ältere Versionen eingebaut habe, ist mir erst aufgefallen wie viel mit den Generics in den ersten Versionen ab 2009 noch nicht ging...

Dafür muss man in dem Projekt auf die Version vorher zurückspringen (vor dem Kommentar mit der Unterstützung für Delphi 7) und dann versuchen das unter Delphi 2009 oder 2010 zum Laufen zu bekommen. Ich musste ziemlich viel davon wegnehmen.

Was denn?

[Fukiszo]

Danke für die Hinweise!
Ich lad gerade D2010 herunter, Lizenz ist beantragt (ich soll wohl eine slip datei per email erhalten)

Damit hat sich dann hoffentlich das thema "hol starter etc" erledigt und ich kann Tokyo kompatiblen Code erschaffen ohne all die Unicode problematik die ich momentan wegen D7 auch noch am Hals hab.

Beste Grüße und weiterhin viel Erfolg!

[jaenicke]

Zitat von Redeemer:

Zitat von jaenicke:

Ich musste ziemlich viel davon wegnehmen.

Was denn?

Was bei welcher Version genau war müsste ich schauen. Einfach nur ein Beispiel:

Delphi-Quellcode:

function TMtclDialogThread.Get<T>(const AControlID: Integer): T;
var
  ResultControl: TMtclBaseControl;
begin
  if FControlsByID.TryGetValue(AControlID, ResultControl) and (ResultControl is T) then
    Result := T(ResultControl)
  else
    Result := nil;
end;

Das funktioniert ab XE problemlos. Unter Delphi 2010 jedoch nicht... Da muss man casten:

Delphi-Quellcode:

function TMtclDialogThread.Get<T>(const AControlID: Integer): T;
var
  ResultControl: TMtclBaseControl;
begin
  if FControlsByID.TryGetValue(AControlID, ResultControl) and (ResultControl is TClass(T)) then
    Result := T(ResultControl)
  else
    Result := TValue.Empty.AsType<T>;
end;

// EDIT:
Oder (ich glaube das geht erst ab XE6 oder so):

Delphi-Quellcode:

function TMtclDialogThread.GetNew<T>: T;
var
  ResultControl: T;
begin
  TThread.Synchronize(Self, procedure
    begin
      ResultControl := T.Create(Self.Handle, Self.GetNewControlID);
    end);
  Result := ResultControl;
end;

Das musste ich dann so machen:

Delphi-Quellcode:

function TMtclDialogThread.GetNew<T>: T;
var
  ResultControl: TMtclBaseControl;
begin
  TThread.Synchronize(Self, procedure
    begin
      ResultControl := TMtclBaseControlClass(T).Create(Self.Handle, Self.GetNewControlID);
    end);
  Result := T(ResultControl);
end;

[Stevie]

Zitat von Fukiszo:

Zitat von Stevie:

Vergisses, der Delphi 7 Compiler kann keine Generics.

Dann programmiert du zu selten.

YMMD

[Sherlock]

Zitat von Stevie:

Zitat von Fukiszo:

Zitat von Stevie:

Vergisses, der Delphi 7 Compiler kann keine Generics.

Dann programmiert du zu selten.

YMMD

Jung und voller Tatendrang der Padawan noch ist.

Sherlock

[Fukiszo]

Damit der Padawan dennoch bei seinem Delphi 7 bleiben kann hat er auch schon einen Plan,
mit neuerem Delphi eine .dll mit der Komponente erstellen aber Hauptprogramm bleibt D7.

Hir noch ein paahr schriebfahler zum lachen tot.


Grüße