String an bestimmtem Zeichen Splitten

[FAlter]

Zitat von Alter Mann:

Delphi-Quellcode:

function  StringSplit(input : String; SeperatorChar : Char) : TStringList;
var
  SL : TStringList;
  S1, S2 : String;
begin
  SL := TStringList.Create;
  s1 := input;
  while POS(SeperatorChar, S1) <> 0 do
  begin
    S2 := Copy(S1, 1, POS(SeperatorChar, S1) -1);
    SL.Add(S2);
    S1 := Copy(S1, POS(SeperatorChar, S1) +1, Length(S1));
  end;
  SL.Add(S1);
  Result := SL;
end;

Hi,

und was machst du bei einer Exception?

Delphi-Quellcode:

function  ReturnsAnObject: TObject;

begin
  Result := TObject.Create;
  try
    ...
  except
    Result.Free; // <-- WICHTIG!
    raise;
  end;
end;

In deinem Fall wird dann die SL nicht freigegeben (aber natürlich auch nicht zurückgegeben).

Mfg
FAlter