Delphi Function optimieren

Thema durchsuchen

Ansicht

Themen-Optionen

Function optimieren

Offene Frage von "delphinia"

Ein Thema von delphinia · begonnen am 21. Mär 2007 · letzter Beitrag vom 21. Mär 2007

Vorheriger Beitrag

Nächster Beitrag

chrisw

Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge

Delphi XE8 Professional

Re: Function optimieren

21. Mär 2007, 10:59

Man könnte das mit ein bzw zwei StringListen machen:

markieren

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;