String teilen

[brechi]

Delphi-Quellcode:

var j:= 0;
for i := 1 to length(s) do
begin
  if s[i] = '_' then inc(j);


  if j = 1 then
   beginstr := j;
  if j = 3 then
   endstr := j;
end;
s := copy(s,beginstr,endstr-beginstr+1);