"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

"doppelten code" vermeiden?

"doppelten code" vermeiden?

Forumregeln