Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#1

Problem mit StringList als Property

  Alt 26. Apr 2008, 11:22
Hallo,

ich steh gerade so richtig auf dem Schlauch.

Ich versuche vergebens eine StringList als Property zu übergeben.

folgendes hab ich schon:

Unit in der die Property ist:
Delphi-Quellcode:
  private
    { Private-Deklarationen }
    //Ein-/Ausgabe
    FEinAusgabe_StringList_Tasten: TStringList;

    function GetEinAusgabe_StringList_Tasten: TStringList;
    procedure SetEinAusgabe_StringList_Tasten(Value: TStringList);
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    //Ein-/Ausgabe
    property EinAusgabe_StringList_Tasten : TStringList
      read GetEinAusgabe_StringList_Tasten write SetEinAusgabe_StringList_Tasten;

//----------------------------------PRIVATE-----------------------------------//

function TSymboleForm.GetEinAusgabe_StringList_Tasten: TStringList;
begin
  Result := (FEinAusgabe_StringList_Tasten);
end;

procedure TSymboleForm.SetEinAusgabe_StringList_Tasten(Value: TStringList);
begin
  FEinAusgabe_StringList_Tasten.Assign(Value);
end;

//-----------------------------------PUBLIC-----------------------------------//
Und der Aufruf aus der anderen Unit:
Delphi-Quellcode:
  with SymboleForm do
    begin
      //Eingabe-Paramter beschreiben
      EinAusgabe_StringList_Tasten := StringList_Tasten;

      //Symbole anzeigen
      If Execute then //hier wird die andere Form mit ShowModal aufgerufen
        begin
          StringList_Tasten.Assign(EinAusgabe_StringList_Tasten);
        end;
    end;
Wenn ich aber nun mir den Inhalt der StringList_Tasten anschau ist der leer obwohl
in der anderen Form die StringList FEinAusgabe_StringList_Tasten etwas beinhaltet.

Ach ja - ich möchte die StringList FEinAusgabe_StringList_Tasten von der anderen Form
beschreiben als auch auslesen.

Irgendwas mach ich falsch - nur was?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat