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. ;)