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! <<