Split strings using string list

[himitsu]

Also in etwa so:

Delphi-Quellcode:

function GetBarcodeCode(intNR: Integer; AIndex: Integer = 7): AnsiString;
var
  Parse, Row: TStringList;
begin
  Result := '';
  Row := nil;
  Parse := TStringList.Create;
  try
    Row := TStringList.Create;
    Parse.Text := GetBarcodesResult;
    Row.Delimiter := ' ';
    Row.StrictDelimiter := True;
    if (intNr > 0) and (intNr <= Parse.Count) then begin
      Row.DelimitedText := Parse[intNR - 1];
      if (AIndex > 0) and (AIndex <= Row.Count) then
        Result := Row[AIndex - 1];
    end;
  finally
    Parse.Free;
    Row.Free;
  end;
end;