Function optimieren

[Moony]

Wie wärs damit:

Delphi-Quellcode:

  r   := '45_78_754#9254_486_715';
  txt := r;
  Lst := TStringList.Create;
  try
    for i := 0 to 5 do
    begin
      case i of
        2: mySign := '#'
        else mySign := '_';
      end;

      p1 := Pos(mySign, txt);
      if p1 > 0 then
         Lst.Add(Copy(txt, 1, p1 - 1))
      else Lst.Add(txt);
      txt := Copy(txt, p1 + 1, Length(txt) - p1);
    end;
    rs := Format('%s.%s.%s %s:%s:%s',[Lst.Strings[0],Lst.Strings[1],Lst.Strings[2],Lst.Strings[3],Lst.Strings[4],Lst.Strings[5]]);
  finally
    Lst.Free;
  end;

Die StringList kannst du auch gegen ein array[0..5] of String ersetzen.