Strpos

Internφ programovacφ jazykSQL

function Strpos(var substr : string; var s : string) : short;

Parametry

substr °et∞zec znak∙
s °et∞zec znak∙

Popis

Funkce Strpos zjiÜ¥uje, zda °et∞zec substr je pod°et∞zcem °et∞zce s. Funkci lze pou₧φt i na °et∞zce delÜφ ne₧ 255 znak∙.

Hodnota funkce

Funkce vracφ index prvnφho znaku prvnφho v²skytu pod°et∞zce substr v °et∞zci s, pokud n∞jak² v²skyt existuje (°et∞zce se indexujφ od 1). Jinak funkce vracφ 0.

P°φklad extrakce jmΘna z nßzvu souboru a zapsßnφ do pohledu

  spom := Parametry[0].sablonywt+'\*.WPT';
  if Select_file(idx,spom) then begin
    while SubStr("\",spom) do
      StrDelete(spom,1,StrPos("\",spom));   // odstran∞nφ adresß°e
    if SubStr(".",spom) then                // odstran∞nφ p°φpony
      StrDelete(spom,StrPos(".",spom),StrLength(spom)-StrPos(".",spom)+1);
    u := spom;
    if not Set_item_value(idx,rec,6,u) then Info_box('Chyba','Set_item_value');

Viz