OmniXML TOmniXMLReader / TOmniXMLWriter

[Adrenalin]

Zitat von mirage228:

Und wenn Du mit Lines.Assign() arbeitest?

Memo1.Liens.Assign(Conf.MemoInhalt);

Knallts ebenfalls schon probiert

[Lemmy]

Und hast du schon mal den Debugger angeworfen und geschaut, warum es denn knallt? Es kann nur knallen, wenn was nicht initialisiert ist, versuch rauszufinden was nicht existiert und schau dann warum es nicht existiert...

[Adrenalin]

Zitat von Lemmy:

Und hast du schon mal den Debugger angeworfen und geschaut, warum es denn knallt? Es kann nur knallen, wenn was nicht initialisiert ist, versuch rauszufinden was nicht existiert und schau dann warum es nicht existiert...

Ich hoffe ich habs richtig gemacht aber so wirklich schlau, werd ich daraus auch nicht weil initialisiert ist die Stringliste laut Debuggger weiss jetzt auch nicht mehr weiter

[Lemmy]

mach mal vor das

Memo1.Lines.Text := Conf.MemoInhalt.Text; das hier:

Delphi-Quellcode:

  ShowMessage(Memo1.Name);
  ShowMessage(Conf.ClassName);
  ShowMessage(Conf.Memoinhalt.ClassName);

wo kommt die Fehlermeldung?

[Adrenalin]

Zitat von Lemmy:

mach mal vor das

Memo1.Lines.Text := Conf.MemoInhalt.Text; das hier:

Delphi-Quellcode:

  ShowMessage(Memo1.Name);
  ShowMessage(Conf.ClassName);
  ShowMessage(Conf.Memoinhalt.ClassName);

wo kommt die Fehlermeldung?

Ich glaub nun wirds ganz komisch weil es Knallt in der Zeile:

ShowMessage(Conf.Memoinhalt.ClassName); Also doch wieder nicht Initialisiert bzw Nil?

Versteh ich nicht da:

Delphi-Quellcode:

published
  constructor Create(const FileName: string); overload;


constructor TAppConf.Create(const FileName: string);
begin
  inherited create;
  FMemoInhalt := TStringList.Create;
end;

destructor TAppConf.Destroy;
begin
  FreeAndNil(FMemoInhalt); 
  inherited;
end;

Delphi-Quellcode:

  private
    FMemoInhalt: TStringList;

  published
     constructor Create(const FileName: string); overload;
     destructor Destroy; override;
     property MemoInhalt: TStringList read FMemoInhalt write FMemoInhalt;

Tha scheint zu stimmen, FMemoInhalt ist nil.

[Lemmy]

Hi,

Änder mal deine Klasse so ab:

Delphi-Quellcode:

type
  TAppConf = class(TPersistent)
  private
    FFileName: string;
    FTestPropName: string;
    FTestPropType: TTemplateType;
    FMemoInhalt: TStringList;
  public
     constructor Create(const FileName: string); overload;
     destructor Destroy; override;
     procedure LoadConf(const Filename: string);
     procedure SaveConf(const Filename: string);
     property MemoInhalt: TStringList read FMemoInhalt;
  published
     property TestPropName: string read FTestPropName write FTestPropName;
     property TestType: TTestType read FTestType write FTestType;
     property Filename: string read FFilename write FFilename;
     property MemoText: String read GetMemoText write SetMemoText;
  end;

und in GetMemoText udn SetMemoText gibts Du den Inhalt von FMemoInhalt zurück bzw. setzt diesen

Welche Delphiversion verwendest Du?

Grüße

[Adrenalin]

Zitat von Lemmy:

Hi,

Änder mal deine Klasse so ab:

Delphi-Quellcode:

type
  TAppConf = class(TPersistent)
  private
    FFileName: string;
    FTestPropName: string;
    FTestPropType: TTemplateType;
    FMemoInhalt: TStringList;
  public
     constructor Create(const FileName: string); overload;
     destructor Destroy; override;
     procedure LoadConf(const Filename: string);
     procedure SaveConf(const Filename: string);
     property MemoInhalt: TStringList read FMemoInhalt;
  published
     property TestPropName: string read FTestPropName write FTestPropName;
     property TestType: TTestType read FTestType write FTestType;
     property Filename: string read FFilename write FFilename;
     property MemoText: String read GetMemoText write SetMemoText;
  end;

und in GetMemoText udn SetMemoText gibts Du den Inhalt von FMemoInhalt zurück bzw. setzt diesen

Welche Delphiversion verwendest Du?

Grüße

Wie in beiden?

[Lemmy]

Delphi-Quellcode:

procedure SetMemoText(Value: String);
begin
  FMemoInhalt.Text := Value;
end;

function GetMemotext: String;
begin
  result := FMemoInhalt.Text;
end;

einmal lesen, einmal schreiben....

[Adrenalin]

Zitat von Lemmy:

Delphi-Quellcode:

procedure SetMemoText(Value: String);
begin
  FMemoInhalt.Text := Value;
end;

function GetMemotext: String;
begin
  result := FMemoInhalt.Text;
end;

einmal lesen, einmal schreiben....

Gleicher Fehler also nil

[mirage228]

Du rufst den falschen Konstruktor in Deinem Code auf.

Du erstellst das Objekt nur im constructor Create(String). In Deinem Code rufst Du aber Create() auf. Das lädt nur den Konstruktor der Parent-Klasse. Dort wird nix erstellt.

Änder Deinen Code ab, sodass auch im Create die StringList erzeugt wird, z.B. über eine Helfer-Methode. Alternativ kannst Du auch Deinen Konstruktur-Aufruf ändern. Dann läufts