Extract word from string

[stoxx]

Or a general solution ...

Delphi-Quellcode:

function GetStringNr(const NR : integer; const Value : AnsiString; const delim : char = ';'): Ansistring; 
var i, idx : integer; 
    iOrd : byte; 
    Res : AnsiString; 
    Used : Integer; 
begin 
  Result := ''; 
  idx := 1; 
  Used := 0; 
  SetLength(Res, Length(Value)); 

  for i := 1 to length(Value) do 
  begin 
    if Value[i] = delim then 
       begin 
          inc(IDX); 
          continue; 
       end; 
    If IDX > NR then break; 
    if IDX = NR then 
     begin 
      inc(Used); 
      Res[used] := Value[i]; 
     end; 
  end; // von for 
   SetLength(Res, Used); 
   result := res; 
end;  // von GetStringNRh 

//============================================================================== 


procedure TForm1.Button1Click(Sender : TObject);
var Value1 : String;
    Value2 : String;
begin

Value1 := GetStringNR(1, listbox.items.strings[3], 'x');
Value2 := GetStringNR(2, listbox.items.strings[3], 'x');


end;