funktion soll TStringList zurückliefern

[idontwantaname]

Hi !

ich mache mir gerade eine Funktion, die einen String anhand eines Zeichens teilen soll, das funktioniert auch, nur möchte ich, das die Funktion eine TStringList zurückliefert, ist sowas möglich ??

hier der Quellcode:

Delphi-Quellcode:

var Foo: TStringList

{Im FormCreate-Event:}
Foo := TStringList.Create;

{und im FormDestroy-Event:}
Foo.Free

{...}

procedure SplitString(Str: String; Chr: Char);
var   newStr,Buffer:String;
      Schleife: Integer;
begin
   newStr := Str + Chr;
   if(Pos(Chr,newStr) <> Length(newStr)) then
       for Schleife := 1 to Length(newStr) do
       begin
         if(newStr[Schleife] <> Chr) then
              Buffer := Buffer + newStr[Schleife]
           else begin
               Foo.Add(Buffer);
               Buffer := '';
           end
        end
    else
       Foo.Add(Str);
end;

[Dax]

Es ist relativ einfach. Du erstellst in deiner Funktion (vielleicht sogar direkt in der Result-Variable) eine Instanz von TStringList, die du dann bearbeitest und zurücklieferst.

Delphi-Quellcode:

procedure SplitString(Str: String; Chr: Char);
var   newStr,Buffer:String;
      Schleife: Integer;
      Foo: TStringList;
begin
   Foo := TStringList.Create;
   newStr := Str + Chr;
   if(Pos(Chr,newStr) <> Length(newStr)) then
       for Schleife := 1 to Length(newStr) do
       begin
         if(newStr[Schleife] <> Chr) then
              Buffer := Buffer + newStr[Schleife]
           else begin
               Foo.Add(Buffer);
               Buffer := '';
           end
        end
    else
       Foo.Add(Str);
    Result := Foo;
end;

[KLS]

Ich habe hier einen ziemlich ähnlichen code... etwas älter und weiß momentan nicht ob er korrekt läuft...

Delphi-Quellcode:

function SplitString(WasSuchen,WorinSuchen : String) : TStringList;
var
  Stelle : integer;
begin
  Result := TStringList.Create;
  Stelle := 1;
  if not (Worinsuchen[Length(WorinSuchen)] = WasSuchen) then WorinSuchen := WorinSuchen+WasSuchen;
  while Length(WorinSuchen) > 0 do if WorinSuchen[stelle] = WasSuchen then
  begin
    Result.Add(Copy(WorinSuchen,1,Stelle-1));
    WorinSuchen := copy(WorinSuchen,Stelle+1,length(WorinSuchen));
    Stelle := 1;
  end else inc(Stelle);
end;

[idontwantaname]

vielen dank,
komischer weise hab ich es zuerst auch so probiert, und es ging nicht :gruebel:
aber hauptsache jetzt funzt es :mrgreen:

nochmal danke :dp:

[Sprint]

Zitat:

Zitat von idontwantaname

ich mache mir gerade eine Funktion, die einen String anhand eines Zeichens teilen soll, das funktioniert auch, nur möchte ich, das die Funktion eine TStringList zurückliefert, ist sowas möglich ??

Delphi-Quellcode:

procedure SplitString(const Str: String; Chr: Char; Result: TStrings);
begin

  with Result do
  begin
    Clear;
    Delimiter := Chr;
    DelimitedText := Str;
  end;

end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  SplitString('abc;123;def;456;ghi;789', ';', Memo1.Lines);

end;

[Luckie]

Und beide Code Beispiele produzieren ein Speicherleck, oder wo gebt ihr eure Stringlisten wieder frei?

[Sprint]

Zitat:

Zitat von Luckie

Und beide Code Beispiele produzieren ein Speicherleck, oder wo gebt ihr eure Stringlisten wieder frei?

Mich kannst du nicht gemeint haben...

[idontwantaname]

das habe ich mich auch schon gefragt, die StringList wird zwar "gemacht", aber nicht mehr freigegeben, hat da jemand eine idee ??

[idontwantaname]

könnte das so gehen ??

Delphi-Quellcode:

with SplitString(Edit1.Text,' ') do
begin
  for Schleife := 0 to Count - 1 do
    Ausgabe := Ausgabe + Strings[Schleife] + #13#10;
  ShowMessage(Ausgabe);
  Free;
end;

[KLS]

Zitat:

Zitat von Luckie

Und beide Code Beispiele produzieren ein Speicherleck, oder wo gebt ihr eure Stringlisten wieder frei?

Ja schon richtig, programmieren aller M$ halt :)
Wenn wir schon dabei sind wie kann ich denn das result einer function wieder freigeben? Oder geht das nur indirekt?

[Dax]

So macht man das :thumb:

[edit]Ganz verrückte Leute (zB ich) geben keine Typen, sondern Typeninterfaces zurück, dann muss man sich um die freigabe des Speichers nicht mehr kümmern :angel2:

[Sanchez]

Ja, so könnte es gehen.
Du musst halt daran denken, die zurückgegebene Stringliste in der aufrufenden Funktion dann freizugeben.
Übrigens musst du in dem Beispiel nicht die Liste durchmarschieren und alle Elemetnte addieren.
Mit TStringliste.Text kommst du an den gesamten Inhalt.

grüße, daniel

[Dax]

Und wo wir schon dabei sind, du brauchst deine Funktion gar nicht. TStringList.Delimiter und TStringList.DelimitedText können das für dich tun :zwinker:

[idontwantaname]

danke für den tipp, wollte es halt selber machen :P
ne, wusste nur nicht, das es sowas gibt :mrgreen:

Zitat:

Zitat von Dax

Ganz verrückte Leute (zB ich) geben keine Typen, sondern Typeninterfaces zurück, dann muss man sich um die freigabe des Speichers nicht mehr kümmern :angel2:

und wie macht man sowas ??

[Dax]

Am besten kuckst du dir ein paar Interface-Tutorials an, an der entsprechenden DP-Sparte gibts sogar eins. ;)

Aber ein kleines Beispiel kann ja nicht Schaden :)

Delphi-Quellcode:

type
  IMyType = interface
    procedure SetText(New: string);
    procedure GetText: string;
    property Text: string read GetText write SetText;
  end;

  TMyType = class(TInterfacedObject, IMyType)
  private
    fText: string;
    // Die beiden Funktionen brauche ich wohl nicht zu vervollständigen ^^
    procedure SetText(New: string);
    procedure GetText: string;
  public
    property Text: string read GetText write SetText;
  end;

function GetTextWith(Text: string): IMyType;
begin
  Result := TMyType.Create;
  Result.Text := Text;
end;

Wenn du jetzt GetTextWith in einer Funktion(z.B. MyRead) aufrufst, wird die in GetTextWith erstellte Instanz von TMyType beim verlassen der Funktion (MyRead) zerstört, weil dort der Gültigkeitsbereich des Interfaces zuende ist.

Ich weiss, das Beispiel ist ein wenig dumm gewählt und die Erklärung nicht vollständig, aber ich will dir ja nicht den Spass verderben, die Tuts zu lesen :zwinker: