Man könnte das mit ein bzw zwei StringListen machen:
Delphi-Quellcode:
sl := TStringList.Create;
sl1 := TStringList.Create;
sl.Delimiter := '_';
sl.DelimitedText := '45_78_754#9254_486_715';
sl1.Delimiter := '#';
sl1.DelimitedText := sl[2];
showmessage(Format('%s.%s.%s %s:%s:%s',[sl[0],sl[1],sl1[0],sl1[1],sl[3],sl[4]]);
sl.Free;
sl1.Free;
Vielleicht könnte man ja auch 'ne Kombination aus Deinem und meinem Code nehmen.
(Eine Stringlist für 2 Zahlen lohnt sich irgendwie nicht)
Christian