Thema: Delphi Try..Finally

Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Try..Finally

  Alt 31. Aug 2003, 17:32
hoi,

ich habe folgende function geschrieben...

Delphi-Quellcode:
function Tokenize(s: string; index: integer; sep: char): string;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  Repeat
    if Pos(sep, s) <> 0 then
    begin
      sl.Add(Copy(s, 1, Pos(sep, s)-1));
      Delete(s, 1, Pos(sep, s));
    end
    else
    begin
      sl.Add(s);
      s := '';
    end;
  until s = '';
  Result := sl.Strings[index-1];
  sl.Free
end;
nunsagte mir ein freund das es besser wär da eine "try..Finally" anweisung mit unter zu bringen....aber wozu? es funkt doch alles? was wäre der vorteil?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat