Funkce Substr

Substr

function Substr(var s1, s2 : string) : Boolean;

Parametry

s1	°et∞zec znak∙, kter² mß b²t obsa₧en v °et∞zci s2
s2	°et∞zec znak∙

Popis

Funkce Substr zjiÜ¥uje, zda °et∞zec s1 je obsa₧en v °et∞zci s2. Mφsto, kde je obsa₧en, zde nehraje roli, m∙₧e b²t na zaΦßtku, uvnit° nebo na konci s2. V₧dy zßle₧φ na velikosti pφsmen.

Funkci lze pou₧φt i na °et∞zce delÜφ ne₧ 255 znak∙.

Hodnota funkce

Funkce vrßtφ TRUE, pokud je s1 obsa₧en v s2, jinak vrßtφ FALSE.

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