string zerlegen

[bitsetter]

Da es nicht mal in Delphi 6 die Funktion PosEx gibt hier noch eine andere Variante.

Delphi-Quellcode:

var
  LPos, Rpos: word;
begin
  //st= 'D: { 59789999999999 { 555aaa666bbb777ccc }}';
  LPos:= LastDelimiter('{', st);
  Rpos:= Pos('}}', st);
  caption:= Copy(st, Lpos+ 2, Rpos- LPos- 3);