"doppelten code" vermeiden?

[SirThornberry]

So sollte es gehen

Delphi-Quellcode:

var helpstring: String;
begin
[...]
if Pos(' ', params) > 0 then helpstring := ' ' else helpstring := '';
[...]
NickInfo[high(NickInfo)].LongIP := Copy(params, 1, Pos(helpstring, params)-1);
Delete(params, 1, Pos(helpstring, params));