Wie kann ich eine TStringList als Rückgabewert einer Funktion realisieren.
Mein Problem ist, ich will aus einem Dialog in dem eine TStringList gefüllt wird
diese exportieren ins Hauptformular um dort sie weiterverarbeiten zu können.
Jetzt mache ich es so.
Hauptformular:
Delphi-Quellcode:
procedure TfrmMain.FormCreate(Sender: TObject);
begin
FVarList:=TStringList.Create;
end;
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
FVarList.Free;
end;
procedure TfrmMain.GetVarList;
begin
With TfrmVarList.Create(nil) do
begin
ShowModal;
FVarList:=GetList;
Realease
end;
end;
Dialog:
Delphi-Quellcode:
procedure TfrmVarList.FormCreate(Sender: TObject);
begin
FList:=TStringList.Create;
end;
procedure TfrmVarList.FormDestroy(Sender: TObject);
begin
FList.Free;
end;
function TfrmVarList.GetList:TStringList;
begin
Result:=FList;
end;
Das will aber nicht. Da gibts immer ne Zugriffsverletzung.