Datenmodell automatisch erzeugen

[Sir Rufo]

Ähm, du weißt doch wie eine Klasse im Delphi-Code aussehen muss?

Jetzt schreibt man sich einen Code-Generator, der aus ein paar Vorgaben diese Klassen komplett erzeugt.

Du gibst vor

Code:

{"name":"TFoo",
[{"Name":"Name","type":"string","GetterSetterKind":"GS"}]}

und das Programme baut daraus

Delphi-Quellcode:

type
  TFoo = class
  private
    FName : string;
    function GetName : string;
    procedure SetName( const Value : string );
  public
    property Name : string read GetName write SetName;
  end;

procedure TFoo.SetName( const Value : string );
begin
  FName := Value;
end;

function GetName : string;
begin
  Result := FName;
end;