Frame aus eigener Prozedur aufrufen

[pmros]

nahpets Vorschlag hat funktioniert (sogar ohne Quelltext das Problem gelöst )

allerdings heißt es procedure TFormMain.CNCCommandBox(H:String); Vielen Dank!

[Sir Rufo]

Wenn dir dieses if else Schlangenmonster zu unhandlich wird, kannst du ja nochmal nachfragen, denn das geht auch insgesamt eleganter.

[Alex_ITA01]

OffTopic...

@Sir Rufo:
zeigst du uns mal, wie du es lösen würdest?

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

[pmros]

Vermutlich reichen da die Kenntnisse nicht aus, die mir in einem Jahr reingewürgt worden sind Grundsätzlich ist das interessant, aber verlangt von mir intensiveres Befassen mit der Materie. Da ich aber auch mit meinen bescheidenen Mitteln (hoffentlich) zum Ziel kommen werde, überlass ich das mal anderen.