DevProject Manager (Projektverwaltung) 1.7.8

[xZise]

Zitat von Gaijin:

Aber hätte es nicht auch gereicht, wenn du die Vorlage, z.B. für CHM-Format umgeändert hättest?

Hmmm hätte Aber ich habe eigentlich nicht gegen meine Variante

Zitat von Gaijin:

Naja, ob man jetzt "sVersion := TToDoData.Version;" oder "sVersion := App.FieldByName('version');" schreibt macht keinen großen Unterschied.

Stimmt... Aber FieldByName() habe ich noch net gefunden in der API... (ah... ^^ Jetzt habe ich es gefunden )

[edit]Könnte ich (rein theroetisch) meine Daten da herholen?
Und wenn ja, wie komme ich an sie ran?[/edit]

[edit]Also so geht's net

Delphi-Quellcode:

function TMyPlugin.ExecMenuItem: Boolean;
var
  Data : TToDoData;
  Settings : TfrmSettings;
  f1 : TForm1;
begin
  Result := False;

  Settings := TfrmSettings.Create(nil);
  try
    f1 := TForm1.Create(nil);
    try
      Data := f1.ShowModal;
      Data.Version := App.FieldByName('Version');
      Settings.ShowModal(Data);
    finally
      FreeAndNil(f1);
    end;
  finally
    FreeAndNil(Settings);
  end;
end;

aber so

Delphi-Quellcode:

function TMyPlugin.ExecMenuItem: Boolean;
var
  Data : TToDoData;
  Settings : TfrmSettings;
  f1 : TForm1;
begin
  Result := False;

  Settings := TfrmSettings.Create(nil);
  try
    f1 := TForm1.Create(nil);
    try
      Data := f1.ShowModal;
      Data.Version := 'Bla';
      Settings.ShowModal(Data);
    finally
      FreeAndNil(f1);
    end;

  finally
    FreeAndNil(Settings);
  end;
end;

[/edit]