Frame aus eigener Prozedur aufrufen

[Sir Rufo]

Grobes Rezept:

• Für jeden Arbeitsschritt (H, G0, ...) eine Klasse (ableiten von einer Basisklasse, die wiederum von TPersistent abgeleitet ist)
• Für jede Klasse die ToString Methode überschreiben (damit geht die Anzeige in der Listbox wie von selbst)
• Lookup-Tabelle um zu der Datenklasse den passenden Frame zu finden
• Datenklasse dem Frame per Assign zuweisen
• Eingaben aus dem Frame der Datenklasse per Assign wieder zuweisen

Delphi-Quellcode:

var
  LFrame: TFrame;
  LData: TPersistent;

LFrame := FrameLookup.GetFrame( LData.ClassType );
LFrame.Assign( LData );
LFrame.Visible := True;

// Eingabedaten aus Frame übernehmen
LData.Assign( LFrame );

Vorteil: Ich brauche bei der Anzeige die konkrete Daten-/Frame-Klasse gar nicht kennen und kann die dadurch einheitlich behandeln.

Neue Daten-/Frame-Klassen lassen sich so einfach hinzufügen.