Funktion die TStrings ausgibt

[Bronko]

Eigentlich dürfte es doch kein Prob sein eine Funktion zu schreiben die TStrings ausgibt.
Aus irgendeinem Grund bekomm ich eine Zugriffsverletzung angezeigt.
Hab ich da irgendwas vergessen zu initialisieren oder so? :gruebel:

Delphi-Quellcode:

function ListeAusgeben:TStrings;
begin
 result.Append('Hallo=Test');
 result.Append('noch ein Beispieltext');
end;

[Stanlay Hanks]

Delphi-Quellcode:

function ListeAusgeben:TStrings; 
begin
Result := TStrings.Create;
.
.
.
end;

Hi. Ich glaube, man muss das Resultat erst erstellen. (Ich kann mich aber natürlich auch irren ;) )

Man liest sich, Stanlay :hi:

[Bronko]

Zitat:

Zitat von Stanlay Hanks

Delphi-Quellcode:

function ListeAusgeben:TStrings; 
begin
Result := TStrings.Create;
.
.
.
end;

Hi. Ich glaube, man muss das Resultat erst erstellen. (Ich kann mich aber natürlich auch irren ;) )

Man liest sich, Stanlay :hi:

*Arrgh*
Dass ich da nich selbst drauf gekommen bin :wall:
Klappt natürlich einwandfrei
thx

[Steve]

Zitat:

Zitat von Bronko

Klappt natürlich einwandfrei

Das verwirrt mich nun bisschen..
Du benutzt TStrings.Append, welches TStrings.Add aufruft. Das wiederum ruft TStrings.Insert auf, welches ABSTRACT ist..
Sollte dann nicht ein "Abstrakter Fehler" kommen? :wiejetzt:

Stephan

[Luckie]

Jetzt hast du aber ein Problem. wo gibst du das Objekt wieder frei? In der Funktion? dann kannst du es nicht zurückgegebn. Ich würde das Objekt als out Parameter übergeben.

Delphi-Quellcode:

procedure foo(out sl: TStrings);
begin
  sl.Add('Hello');
  sl.Add('world');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringList.Create;
  try
    foo(sl);
    ShowMessage(sl.Text);
  finally
    FreeAndNil(sl);
  end;
end;

[Bronko]

Zitat:

Zitat von Steve

Zitat:

Zitat von Bronko

Klappt natürlich einwandfrei

Das verwirrt mich nun bisschen..
Du benutzt TStrings.Append, welches TStrings.Add aufruft. Das wiederum ruft TStrings.Insert auf, welches ABSTRACT ist..
Sollte dann nicht ein "Abstrakter Fehler" kommen? :wiejetzt:

Stephan

Stimmt, den abstraken Fehler hatte ich heute schon ein paarmal...
Wie es aber der Zufall so will bin ich von den TStrings auf die TStringList umgestiegen und damit scheint das reibungslos zu klappen... http://io.philo.at/~hal/graphik/smileys/grin.gif

[CalganX]

Hi,
:gruebel: Ähm... Nein!? ;)
Da muss eine Zugriffsverletzung kommen, weil du auf ein nicht erstelltes Objekt (= nicht erstellte/festgelegte Speicherstelle) zugreifst.
Und das ist auch bei Abstrakten Methoden, besonders hier, weil du ja in erster Linie auf eine eigene Methode von TStringList zugreifst.

Chris

[Touchdown]

Man sollte von TStrings keine eigenen Instanzen bilden, nimm lieber TStringlist!

Es ist doch kein Problem sich eine Funktion zu bauen die ein Objekt zurück gibt, man weiss schließlich was man tut und gibt es an geeigneten Stellen wieder frei. Es gibt nun mal auch Objekte die länger im Speicher bleiben sollen usw.

[mirage228]

Zitat:

Zitat von Luckie

Jetzt hast du aber ein Problem. wo gibst du das Objekt wieder frei? In der Funktion? dann kannst du es nicht zurückgegebn. Ich würde das Objekt als out Parameter übergeben.

Delphi-Quellcode:

procedure foo(out sl: TStrings);
begin
  sl.Add('Hello');
  sl.Add('world');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList; // besser gleich TStringList ;)
begin
  sl := TStringList.Create;
  try
    foo(sl);
    ShowMessage(sl.Text);
  finally
    FreeAndNil(sl);
  end;
end;

Hi Luckie,

das out bzw. var kannst du dir bei diesem Beispiel sparen, da die Eigenschaften über die Properties bzw. über die Methoden geändert werden.

mfG
mirage228

[Luckie]

Könnte ich, aber so wird klare, was passiert. ;)

[Bronko]

Zitat:

Zitat von Touchdown

Man sollte von TStrings keine eigenen Instanzen bilden, nimm lieber TStringlist!

Zitat:

Zitat von Bronko

Wie es aber der Zufall so will bin ich von den TStrings auf die TStringList umgestiegen

http://io.philo.at/~hal/graphik/smileys/wink.gif

[Steve]

Zitat:

Zitat von Luckie

Jetzt hast du aber ein Problem. wo gibst du das Objekt wieder frei? In der Funktion? dann kannst du es nicht zurückgegebn.

Ich weiß nicht, wie sinnvoll das ist, aber müsste es nicht z.B. folgendermaßen auch funzen?

Delphi-Quellcode:

function neueSL : TStringList;
begin
  result := TStringList.Create;
  result.Append('TEST');
END;


procedure TForm1.Button1Click(Sender: TObject);
VAR
  SL : TStringList;
begin
  SL := neueSL;
  showMessage(SL.text);
  SL.Free;
end;

Stephan

edit: tippfehler

[lume96]

Zitat:

Zitat von Touchdown

Es ist doch kein Problem sich eine Funktion zu bauen die ein Objekt zurück gibt, man weiss schließlich was man tut und gibt es an geeigneten Stellen wieder frei. Es gibt nun mal auch Objekte die länger im Speicher bleiben sollen usw.

Hallo,
Tschuldigung, dass ich so reinplatze, aber wie gibt man ein Objekt wieder frei ?

Hatte vor kurzer Zeit ein ähnliches Problem ('ne Funktion die ein Bitmap zurück gibt). Hab's dann umgeschrieben, weil ich nicht wusste, wie ich das Bitmap ausserhalb der Funktion wieder frei geben kann.

[Matze]

Delphi-Quellcode:

Objekt.Free;

oder

Delphi-Quellcode:

FreeAndNil(Objekt);

Wie Luckie schon sagte. ;)

[Luckie]

Zitat:

Zitat von Steve

Ich weiß nicht, wie sinnvoll das ist, aber müsste es nicht z.B. folgendermaßen auch funzen?

Delphi-Quellcode:

function neueSL : TStringList;
begin
  result := TStringList.Create;
  result.Append('TEST');
END;


procedure TForm1.Button1Click(Sender: TObject);
VAR
  SL : TStringList;
begin
  SL := neueSL;
  showMessage(SL.text);
  SL.Free;
end;

Ja, das geht sicherlich, nur finde ich das etwas sehr unbersichtlich und man weiß nicht, ob der Aufrufer oder die Prozedur für das Aufräumen des Speichers verantwortlich ist. Das wird bei mir deutlich, das ich das Objekt übergeben muss, also muss es der Aufrufer erzeugen und ist somit auch wieder für das Freigeben verantwortlich.

[lume96]

Zitat:

Zitat von Matze

Delphi-Quellcode:

Objekt.Free;

oder

Delphi-Quellcode:

FreeAndNil(Objekt);

Wie Luckie schon sagte. ;)

Im Grossen und Ganzen war mir das schon klar, aber wenn ich folgende Funktion habe :

Delphi-Quellcode:

function TForm1.GetBitmap(const FName : string):TBitmap;
begin

   Result := TBitmap.Create;
   // anderer Code

end;

und sie so aufrufe :

Delphi-Quellcode:

   BitBtn.Glyph := GetBitmap('blahblahblah');

kann ich ja schlecht hinterher

Delphi-Quellcode:

FreeandNil(GetBitmap);
// oder
GetBitmap.free;

benutzen.

[Touchdown]

In diesem Fall brauchst du dich nicht weiter um diesen Speicherbereich kümmern, der TBitButton wird diesen Speicherbereich freigeben, sobald er selbst zerstört wird!