"doppelten code" vermeiden?

[Pseudemys Nelsoni]

hoi, in einem anderem thread hab ich diesen code gepostet gehabt:

Delphi-Quellcode:

      begin 
        Delete(params, 1, Pos(':', params)+1); 
        Trim(params); 
        while params <> '' do 
        begin 
          if Pos(' ', params) > 0 then 
          begin 
            SetLength(NickInfo, high(NickInfo)+1); 
            NickInfo[high(NickInfo)].Nick := Copy(params, 1, Pos(',', params)-1); 
            Delete(params, 1, Pos(',', params)); 
            NickInfo[high(NickInfo)].ClanID := Copy(params, 1, Pos(',', params)-1); 
            Delete(params, 1, Pos(',', params)); 
            NickInfo[high(NickInfo)].LongIP := Copy(params, 1, Pos(' ', params)-1); 
            Delete(params, 1, Pos(' ', params)); 
          end 
          else 
          begin 
            SetLength(NickInfo, high(NickInfo)+1); 
            NickInfo[high(NickInfo)].Nick := Copy(params, 1, Pos(',', params)-1); 
            Delete(params, 1, Pos(',', params)); 
            NickInfo[high(NickInfo)].ClanID := Copy(params, 1, Pos(',', params)-1); 
            Delete(params, 1, Pos(',', params)); 
            NickInfo[high(NickInfo)].LongIP := Copy(params, 1, Pos('', params)-1); 
            Delete(params, 1, Pos('', params)); 
          end; 
        end; 
      end;

wie man sieht sind der block oben und unten fast gleich, bis auf ' ' und '' (letzte beiden zeilen)

es geht darum das ich z.b die wörter aus einem string holen möchte, sagen wir mal der string sieht z.b so aus:

Zitat:

bla1 bla2 bla3 bla4 bla5

um alle wörter dort rauszubekommen müsste ich ja bis pos ' ' -1 kopieren.
beim letzten wort gibt es aber kein whitespace mehr, sondern das ende ''... nur dafür hab ich den ganzen code nochmal schreiben müssen? (siehe 2ten block)

es muss doch auch anders gehen oder?

mfg