Thema: Delphi TStringList als Result

Einzelnen Beitrag anzeigen

Generalissimo

Registriert seit: 28. Aug 2003
187 Beiträge
 
Delphi 6 Enterprise
 
#1

TStringList als Result

  Alt 8. Jun 2004, 01:23
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.
  Mit Zitat antworten Zitat